Text file example reading problem

[TexasPete]

This is and example of the text file reading example right out of the manual.
The only thing that I changed was the text file name. It does not work.
It read only one line of text and closed.
From what I can tell it is check for and end of file.
Can any one see the error !

OPENCONSOLE
DEF myfile:FILE
DEF ln:STRING
IF(OPENFILE(myfile,"test.TXT","R") = 0)
   IF(READ(myfile,ln) = 0)
            PRINT ln
   ENDIF
   CLOSEFILE myfile
   PRINT "File read successfully"
ELSE
   PRINT "File could not be opened"
ENDIF
PRINT "Press Any Key To Close"
DO:UNTIL INKEY$ <> ""
CLOSECONSOLE
END

Thanks
Texas Pete

[LarryMc]

The program did exactly what it was programmed to do.
If you had moved down to the very next example you would have seen the example that reads until it hits the end of file marker.
If you want to read multiple lines you have to have a loop.

I know you said you were use to more documentation.
More documentation isn't much good unless you actually read it.

The READ command:

Return value
Returns 0 on success or -1 if the file could not be read.

so this

Code Select Expand

IF(READ(myfile,ln) = 0)
reads a line from the file and if it was successful it prints it with the next line.

Changing a section of the code inserts a WHILE-ENDWHILE loop that
reads and prints the lines untilk the end of the file is reached.

Code Select Expand

while EOF(myfile)=0
IF(READ(myfile,ln) = 0)
            PRINT ln
ENDIF
endwhile

It's in the documentation.

Larry

[TexasPete]

Thanks a lot larry,