If ReadFile(0,"c:\gldat_neu.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() ; 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
sich kein Debugger-Fenster öffnet?
Die Text-Datei in "C:\" ist vorhanden und wird auch geöffnet.
kajott hat geschrieben:Was komisch ist, da ich den Code aus der Hilfe von Purebasic habe (Readfile).
Nur den Dateinamen habe ich meinen Bedingungen angepasst!
Zumindest funktionierts jetzt. Danke!
Ist ein kleiner bekannter Fehler in der Hilfe. Wenn man aber logisch drüber nachdenkt, kommt man auch zur Lösung:
While Eof(0) <> 0 ; Weil ende des files wahr, entspricht ungleich unwahr
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.