Page 1 of 1
Проблема с readline
Posted: Wed Apr 01, 2015 7:32 pm
by atikin
При выполнении такого кода выводятся строки файла без первой буквы, почему?
Code: Select all
read:
file "matrix.txt" read x
if x > -1 then
file "matrix.txt" readline t$
print t$
pause 0.1
goto read
else
goto loop
endif
loop:
goto loop
Re: Проблема с readline
Posted: Wed Apr 01, 2015 9:16 pm
by Фант
При работе с файлами учитывайте положение указателя файла.
Если Вы записали в файл какуюто информацию, то указатель файла встает в конец этой строки в готовности записать новую информацию.
Если Вы сразу попытаетесь информацию получить командой file...readline t$, то в Вашем случае ничего не произойдет-потому что указатель файла стоит в конце и читать команде нечего.
Для изменения положения указателя файла есть команда FILE N$ SETPOS N, где N место в файле куда надо перемести указатель. Допустим если n=0, то указатель переместится в самое начало файла.
Re: Проблема с readline
Posted: Thu Apr 02, 2015 2:44 am
by Mr. Kibernetik
Потому что первая буква считывается командой
file "matrix.txt" read x
Re: Проблема с readline
Posted: Thu Apr 02, 2015 2:49 pm
by atikin
Mr. Kibernetik wrote:Потому что первая буква считывается командой
file "matrix.txt" read x
Изменил на
x = file_end("matrix.txt")
Работает