Hi,
wen kennt das nicht. Da programiert man sich einen Wolf und andauernd bekommt man beim komiplieren diese Meldung:
WARNING: $"variablenname": possibly used before declaration.
Damit man jetzt nicht mühsam die Variablen raussuchen muß, habe ich einen Variabeln Grabber gebaut.
Vielleicht kann es ja jemand gebauchen
ANLEITUNG:
1.) Den kompletten inhalt der Box "AU3Check errors" markieren und in die Zwischenablage kopieren.
2.) "Variablen Grabber" ausführen.
3.) Das Ergebnis wird in einem Notpadfenster geöffnet und kann jetzt bequem kopiert werden um es in das Script ein zu kopieren.
"ACHTUNG","Am Ende einer Variablen Kette darf kein Kommata stehen !"
Code
$now = @YDAY & @MON & @MDAY & @HOUR & @MIN & @SEC
$inifile = @TempDir & "\VAR" & $now
clipget()
run("notepad " & @TempDir & "" & $now)
WinWaitActive("Unbenannt - Editor")
Sleep(1000)
ControlClick("Editor","Die Datei","Button1")
;~ Send("{ENTER}")
Send("^v")
$y=1
Do
Send("^{HOME}")
Send("+{END}")
Send("^x")
Sleep(10)
$temp = ClipGet()
;~ MsgBox(0,"CLIPGET",$temp)
if $temp <> "" Then $temp2 = StringSplit($temp,": possibly used before declaration",1)
if not @error Then $temp3 = StringSplit($temp2[1],"WARNING: ",1)
if not @error Then $temp4 = StringLeft($temp3[2],1)
if not @error Then $temp5 = '"' & $temp4 & '"'
if not @error Then $temp6 = StringInStr($temp5,'"$"')
;~ msgBox(0,"",$temp6)
if $temp6 = 1 Then
IniWrite($inifile,"VARIABLEN",$temp3[2],1)
;~ MsgBox(0,"",$temp3[2])
EndIf
Sleep(10)
ClipPut("")
Send("{DEL}")
Send("^a")
Send("^c")
$clip_end = ClipGet()
;~ MsgBox(0,"clip",$clip_end)
Until ClipGet() = ""
Send("!{F4}")
Sleep(100)
ControlClick("Editor","Die Datei","Button2")
$file = FileOpen($inifile & ".txt",2)
FileWrite($file, "DIM ")
$variablen = IniReadSection($inifile,"VARIABLEN")
For $i = 1 To $variablen[0][0]
FileWrite($file, $variablen[$i][0] & ", ")
Next
Run("notepad " & @TempDir & "\VAR" & $now & ".txt")
ExitBeispiel für eine Ausgabe.
DIM $InfoGUI, $left, $top, $with, $height, $MyhWnd, $SRCCOPY,