Zeilen aus Textdatei werden falsch ausgegeben( FileReadLine )

Die Liste wird Rückwärts ausgegeben, weil du $i immer verringerst.
Aber das ist ja nur ein Ausschnitt vom Script, die hälfte der Variablen ist ja nicht deklariert

So? Habs nicht getestet...

Spoiler anzeigen

[autoit]

Func testen()
Local $i = 0
$file = FileOpen(@ScriptDir & "\test2.txt")

[/autoit] [autoit][/autoit] [autoit]

$start = ShellExecute("C:\lol\lol.exe")
Sleep(2000)
ControlClick("Fehlermeldung", "", "[CLASS:Button; INSTANCE:1]")
Sleep(3000)
ControlClick("lol", "", "[CLASS:Button; INSTANCE:1]")
Sleep(1000)

While 1
If WinWaitActive("[CLASS:ThunderRT6FormDC]") Then
$i += 1
$line = FileReadLine($file, $i)
if $line = -1 Then
FileClose($file)
ExitLoop
EndIf
Sleep(500)
MsgBox(0, "", $line)
EndIf
WEnd
EndFunc ;==>testen

[/autoit]

Zitat von oh-ha

Was mache ich da falsch ?

Du hast am Anfang eine leere For-Next schleife. Nachdem diese durchlaufen ist, ist $i = $CountLines. Danach rechnest du $i immer -1. Da du mit FileReadLine immer die Zeile $i ausliest, welche zuerst die letzte Zeile ist, und dann nach jedem Schleifendurchlauf 1 abnimmt, bist du also selbst schuld, dass du dein TextDokument rückwärts ausliest.

warum so kompliziert?

[autoit]

$aTasten = StringSplit(FileRead("Datei.txt"),@CRLF,3)
For $i = 0 to Ubound($aTasten)-1
MsgBox(0,"",$aTasten[$i])
Next

[/autoit]

du liest die zeilen in verkehrter reihenfolge aus
das passiert durch

[autoit]

$i = $i-1
$line = FileReadLine($file, $i)

[/autoit]

das heißt als erstes liest er die letze zeile
dan die vorletze ( wegen -1 )
du müsstest es also so machen

[autoit]

If $i = $CountLines Then ExitLoop
$i += 1
$line = FileReadLine($file, $i)

[/autoit]

dann brauchst du diese zeilen nichtmehr

[autoit]

For $i = 1 To $CountLines
Next

[/autoit]

ps:
du könntest die datei auch mit

[autoit]

_FileReadtoArray

[/autoit]

auslesen
dan wird jede zeile in ein array geschrieben

probiers mal so:

Spoiler anzeigen

[autoit]

Func testen()
$start = ShellExecute("C:\lol\lol.exe")
Sleep(2000)
ControlClick("Fehlermeldung","","[CLASS:Button; INSTANCE:1]")
Sleep(3000)
ControlClick("lol","","[CLASS:Button; INSTANCE:1]")
Sleep(1000)
WinWaitActive("[CLASS:ThunderRT6FormDC]")
dim $array
_FileReadToArray(@ScriptDir & "\test2.txt", $array)
for $i = 1 to $array[0]
MsgBox(0,"",$array[$i])
next
WEnd
EndFunc ;==>testen

[/autoit]

edit: man bin ich langsam

Ja array's haben mich auch etwas abgeschreckt.

Jetzt mach ich alles damit^^

vllt hilft das von BugFix: http://www.bug-fix.info/array_tut.htm