Davon lernt man unnötige Schleifen sparen und Hilfe lesenKonne hat geschrieben:@ts-soft
Schon aber davon lernt man ja nix. Er sollte halt wissen wie man ne liste durchiteriert.

Davon lernt man unnötige Schleifen sparen und Hilfe lesenKonne hat geschrieben:@ts-soft
Schon aber davon lernt man ja nix. Er sollte halt wissen wie man ne liste durchiteriert.
Spaetestens wenn die ersten Bugs, nach dem auslesen, auftauchen .ts-soft hat geschrieben:[...]Das gibt sich meist im Laufe der Zeit.
Code: Alles auswählen
;Beispiel 1
Debug "until"
NewList Zeilen.s()
If OpenFile(1,"Neu Textdokument.txt")=0
Debug "Konnte File nicht laden"
Else
Repeat
AddElement(Zeilen())
Zeilen()=ReadString()
Until Eof(1)<>0
CloseFile(1)
Debug "--------------"
ForEach Zeilen()
Debug Zeilen()
Next
Debug "--------------"
EndIf
ClearList(Zeilen())
;Beispiel 2
Debug "wend"
If OpenFile(1,"Neu Textdokument.txt")=0
Debug "Konnte File nicht laden"
Else
While Eof(1) = 0
AddElement(Zeilen())
Zeilen()=ReadString()
Wend
CloseFile(1)
Debug "--------------"
ForEach Zeilen()
Debug Zeilen()
Next
Debug "--------------"
EndIf