Внешние дополнения к редактору SciTE

#include <array.au3>

Global $aDefined[1], $aNotDefined[1], $Result

$Code = ClipGet()
;~ разрезаем данные из буфера обмена построчно
$aCode = StringSplit($Code, @CRLF, 1)

;~ начинаем перебирать эти строки
for $x = 1 to $aCode[0]
;~ 	добавлем пробел в конце каждой строки, чтобы нормально отрабатывали регулярные выражения ниже
    $aCode[$x] = $aCode[$x] & " "
;~ 	Если строка начинается с комментария, то удаляем ее. Чтобы переменные в комментариях не учитывались
	$aCode[$x] = StringRegExpReplace($aCode[$x], "^;.+", "", 1)
;~ 	отрезаем концы строк, где идет объявление переменных-стилей для GUI (так как их не нужно объявлять)
    $aCode[$x] = StringRegExpReplace($aCode[$x], " (BitAND|BitNOT|BitOR)\(.+", "")
;~ 	находим все переменные в строке и создаем массив из них
    Local $aMat = StringRegExp($aCode[$x], "(\$\w+)\W", 3)
    if @error = 0 Then
;~ 		если в этой строке есть Global, Dim, Local (т.е. если эти переменные объявляются)
        if StringRegExp($aCode[$x], "(?i:Global|Dim|Local)") Then
;~ 			то начинаем перебирать эти переменные
            for $i = 0 to Ubound($aMat) - 1
;~ 				если переменной нет в массиве aDefined, то заносим в этот массив
                if Not StringInStr(_ArrayToString($aDefined, " "), $aMat[$i]) Then _ArrayAdd($aDefined, $aMat[$i])
				Next
;~ 		а если в этой строке НЕТ Global, Dim, Local (т.е. если эти переменные НЕ объявляются)
        Else
;~ 			то начинаем перебирать эти переменные
            for $i = 0 to Ubound($aMat) - 1
;~ 				если переменной нет в массиве aDefined (т.е. если она не определена), то заносим ее в массив aNotDefined
                if Not StringInStr(_ArrayToString($aDefined, " "), $aMat[$i]) Then _ArrayAdd($aNotDefined, $aMat[$i])
            Next
        EndIf
    EndIf
Next

;~ оставляем только уникальные элементы в $aNotDefined
$aNotDefined = _ArrayUnique($aNotDefined)

;~ разделяем запятыми элементы aNotDefined и выводим в консоль
For $x = 1 to UBound($aNotDefined) - 1
    $Result = $Result & $aNotDefined[$x] & ", "
Next

$Result = StringTrimLeft($Result, 2)
$Result = StringTrimRight($Result, 2)

ConsoleWrite($Result & @CRLF)

$Form1 = GUICreate("NSR-авто", $iMINGuiX, $iMINGuiY, -1, -1, BitOR($WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_CAPTION))

$Form1 = GUICreate("NSR-авто", $iMINGuiX, $iMINGuiY, -1, -1,

#NoTrayIcon

If $CmdLine[0] = 0 Then Exit

$sScriptFile = $CmdLine[1]

If $CmdLine[0] > 1 Then
	$sSelectedCode = StringRegExpReplace($CmdLineRaw, "/Selection:(.*)$", "\1")
Else
	$sSelectedCode = ClipGet()
EndIf

$sScriptRead = FileRead($sScriptFile)
$sScriptContent = StringRegExpReplace($sScriptRead, "(?is)[\r\n]+?\h*Func\h+\w+\(.*EndFunc", "")
$sFuncsContent = StringRegExpReplace($sScriptRead, "(?is).*(\h*Func\h+\w+\(.*EndFunc[^\r\n]*).*", "\1")

$sVars = _GenerateUnDeclaredVarsList($sSelectedCode, $sScriptContent, $sFuncsContent, "Local")

$hGUI = GUICreate("UnDeclared Vars List", 400, 120)
GUICtrlCreateLabel("Copy undeclared variables list?", 20, 20)
$nVars_Input = GUICtrlCreateInput($sVars, 20, 50, 360, 20)
$nOK_Btn = GUICtrlCreateButton("OK", 20, 90, 70, 20)
$nCancel_Btn = GUICtrlCreateButton("Cancel", 100, 90, 70, 20)
GUISetState()

While 1
	Switch GUIGetMsg()
		Case -3, $nCancel_Btn
			Exit
		Case $nOK_Btn
			ClipPut(GUICtrlRead($nVars_Input))
			Exit
	EndSwitch
WEnd

Func _GenerateUnDeclaredVarsList($sSelCode, $sScriptContent, $sFuncsContent, $sDimMethod = "Local")
	Local $sFuncParamsLine, $aVars, $sVars, $i
	
	If StringRegExp($sSelCode, 'Func\h*\w+\(.*\)(?s).*\r?\n\h*Func\h*\w+\(.*\)') Then
		MsgBox(48, @ScriptName, 'Please select only ONE function (including the "Func Name()" part).')
		Exit
	EndIf
	
	$sFuncParamsLine = StringRegExpReplace($sSelCode, '(?si).*(?:\r?\n)?\h*Func\h*\w+\(((?-s).*)\).*', '\1')
	
	If @error Or @extended = 0 Then
		MsgBox(48, @ScriptName, 'Please select function (including the "Func Name()" part).')
		Exit
	EndIf
	
	$sSelCode = StringRegExpReplace($sSelCode, '(?si)(?:\r?\n)?\h*Func\h*\w+\(.*?\)', '')
	$aVars = StringRegExp($sSelCode, "[^\(=,]?(\$\w+)\h*(?:\[[^\[\]]+\])?\h*?=", 3)
	$sVars = ""
	
	For $i = 0 To UBound($aVars)-1
		If Not StringRegExp($sFuncParamsLine, "(,\h*)?\Q" & $aVars[$i] & "\E(,\h*|\h*=)?") And _
			Not StringRegExp($sScriptContent, "(?i)[\r\n]*?\h*?Global\h+(\$\w+,\h*?)?\Q" & $aVars[$i] & "\E") And _
			Not StringInStr("," & $sVars & ",", "," & $aVars[$i] & ",") Then
			
			$sVars &= $aVars[$i] & ","
		EndIf
	Next
	
	$sVars = StringRegExpReplace($sVars, ",+$", "")
	$sVars = StringRegExpReplace($sVars, ",", ", ")
	
	If $sVars = '' Then
		MsgBox(48, @ScriptName, 'Variables not found.')
		Exit
	EndIf
	
	Return $sDimMethod & " " & $sVars
EndFunc