Какая команда возвращает указатель на текущий файл

[Pupkin]

Проблема такова: необходимо зациклить перебор строчек в ворде до конца открытого файла. Команда Do While Not EOF(1) выдает ошибку "Неверный номер файла". По совету хелпа перебираю номера от 1 до 511 (ну, не все, конечно, а выборочно ), результат тот же.
Называйте меня как хотите, но помогите новичку опеределить этот указатель на файл.

[Antonariy]

Хмм... А как открываем файл?

[ANDLL]

По совету хелпа перебираю номера от 1 до 511 (ну, не все, конечно, а выборочно ),

Интересный хелп. Называется он "вредные советы" надо полагать?

[vvs_adm]

Да ладно, чувства юмора у вас нету Прикалывается просто чувак...

[Twister]

Код: Выделить всё

EOF(1)

? Оригинально...

Попробуй

Код: Выделить всё

ff=FreeFile
open "file.txt" for input as #ff
do while not EOF(ff)
'...
loop
close #ff

[Matew]

do while wot EOF(ff)

Опечатка в тему! Действительно вот он EOF. (если не догадался, то это not)

[Nicky]

ИМХО указатель тут полбеды. Чел хочет так получить строчки из _ворда_

[Хакер]

ну а что ему мешает открыть winword.exe

[Pupkin]

Хмм... А как открываем файл?

Файл руками открываем, а потом из него вырезаем куски по условию... Но не суть, вот как обозначить, что это вырезание нужно проделывать до конца файла?

[Хакер]

А как происходит вырезание, Input или Get.
1 - там есть такой параметр как длина
2 - входной буффер устнави заранее, - сделай такой длины, сколько нужно прочитать. Например используя Space()

/_____ 888
\

[Antonariy]

Хмм... А как открываем файл?

Файл руками открываем, а потом из него вырезаем куски по условию... Но не суть, вот как обозначить, что это вырезание нужно проделывать до конца файла?

Вот руками и вырезай, а глазами ищи последнюю строчку.

Если бы было не суть, не спрашивал бы.

[Twister]

do while wot EOF(ff)

Опечатка в тему! Действительно вот он EOF. (если не догадался, то это not)

Да, мне и самому понравилось... Но я уж поправил.