Wie geht das mit enzelnen strings?
Danke euch um die Hilfe... (Die ich immer so oft brauche

Fox
Code: Alles auswählen
If ReadFile(0, "bla.txt") ; wenn die Datei geöffnet werden konnte, setzen wir fort... ; sich wiederholende Schleife bis das Ende der Datei ("end of file") erreicht ist
Debug ReadString(0) ; Zeile für Zeile im Debugger-Fenster anzeigen
CloseFile(0) ; schließen der zuvor geöffneten Datei
Else
MessageRequester("Fehler","Datei nicht gefunden")
EndIf
Code: Alles auswählen
If ReadFile(0, "bla.txt") ; wenn die Datei geöffnet werden konnte, setzen wir fort... ; sich wiederholende Schleife bis das Ende der Datei ("end of file") erreicht ist
ReadString(0)
Debug ReadString(0) ; Zeile für Zeile im Debugger-Fenster anzeigen
CloseFile(0) ; schließen der zuvor geöffneten Datei
Else
MessageRequester("Fehler","Datei nicht gefunden")
EndIf
Code: Alles auswählen
If ReadFile(0, "Text.txt") ; wenn die Datei geöffnet werden konnte, setzen wir fort...
While Eof(0) = 0 ; sich wiederholende Schleife bis das Ende der Datei ("end of file") erreicht ist
Debug ReadString(0) ; Zeile für Zeile im Debugger-Fenster anzeigen
Wend
CloseFile(0) ; schließen der zuvor geöffneten Datei
Else
MessageRequester("Information","Konnte Datei nicht öffnen!")
EndIf
Code: Alles auswählen
n = 4 ; 4.string auslesen
If ReadFile(0, "bla.txt")
; Für den n-ten string:
For z = 1 To n-1
ReadString(0)
Next
Debug ReadString(0)
CloseFile(0)
Else
MessageRequester("Fehler","Datei nicht gefunden")
EndIf