Are you calling the "READ" command more than once? Each time it is called, a new line is read/
Hi rupy,
best way to do it is with one example. My *.txt file is reading an integer and two strings as you can see:
1002 'Description' 'Comment'
1003 'Description' 'Comment'
So the statement READ in the program looks like this:
REPEAT
READ Readfile (Num,Descrip::0::2,Coment::0::2)
....
UNTIL STATUS<>0
Using the loop allows to read the next line until a new end of line is found. As you can see there are no tabs only spaces and remember to do the formatting of the data you want to read in order to extract the content from the *.txt file.
I'm having trouble reading txt file.
I need to read only the first line of text file. I'm getting error 2021 if line is shorter or longer than 10 characters.
PROGRAM READER
%NOLOCKGROUP
VAR
f_file : FILE
s_code : STRING[10]
i_code : INTEGER
STATUS : INTEGER
BEGIN
s_code = ''
i_code = 0
--SET_FILE_ATR (f_file, ATR_UF)
-- Opening file
WRITE ('', CR)
WRITE ('', CR)
WRITE ('Opening ...', CR)
OPEN FILE f_file ('ro', 'MC:test.txt')
STATUS = IO_STATUS (f_file)
IF STATUS <> 0 THEN
WRITE ('Open status: ', STATUS, CR)
ENDIF
-- Writing to file
--WRITE f_datoteka ('This is line 1', CR)
-- Reading from file
WRITE ('Reading ...', CR)
READ f_file (s_code::10)
--READ f_file (i_code)
STATUS = IO_STATUS (f_file)
IF STATUS <> 0 THEN
WRITE ('Read status: ', STATUS, CR)
ENDIF
-- Writing code
WRITE ('Code: ', s_code, CR)
--WRITE ('Code: ', i_code, CR)
CLOSE FILE f_file
END READEREven if I use READ f_file (s_code) instead of READ f_file (s_code::10) I'm getting an error: Uninitialised data used ...
As I understand manual, READ should return string even if it is shorter than specified and truncate if it is longer...
What am I doing wrong?
