Hi!
Ich bastle gerade mit OPENFILE herum und da tritt ein seltsamer Fehler auf!
Wenn ich die Anwendung mit einer Textfile durch laufen lasse (unten angefügt), dann bricht mir das Programm im ersten Durchlauf ab, obwohl noch 2 weitere Zeilen einzulesen wären.
Hab ich da irgendwo den Fehler drin?
Gruß
W.
ok = OPENFILE(1, "test.txt", TRUE)
WHILE TRUE
READLINE 1, a$
ok = ENDOFFILE(1)
DEBUG ok
IF ok = 0 THEN BREAK
WEND
PRINT a$, 0, 0
PRINT x, 0, 20
SHOWSCREEN
KEYWAIT
[attachment deleted by admin]
Kleiner Denkfehler!
Endoffile() gibt solange 0 zurück wie es was zum auslesen gibt :nana:
ok = OPENFILE(1, "test.txt", TRUE)
WHILE ENDOFFILE(1) = 0
READLINE 1, a$
PRINT a$, 0, 0
SHOWSCREEN
KEYWAIT
WEND
Also liefert es 1 zurück, wenn nix mehr da ist? :'(
Ok, mein Fehler! Danke!!! :good:
Sagt doch der name schon ENDOFFILE :x
Ich hatte es halt so verstanden:
1 --> da kommt noch was
0 --> Aus
Tja, wie bereits geschrieben --> Denkfehler meinerseits... :nana: