Функция

EOF

Синтаксис

EOF(filenumber)

Функция EOF проверяет, достигнут ли конец файла. С помощью этой функции можно избежать ошибок, возникающих при попытках чтения или записи после достижения конца файла. Функция возвращает значение типа Integer, содержащее логическое значение True, при достижении конца файла.

Параметры

Замечания

При использовании с файлами, открытыми в режиме Random или Binary, функция EOF возвращает значение True, если последней выполненной инструкции Get не удалось считать целую запись; в противном случае возвращается значение False. Для файлов, открытых для доступа в режиме Binary, попытка чтения файла с помощью функции Input до возвращения функцией EOF значения True приводит к ошибке. При чтении двоичных файлов с помощью функции Input следует вместо функции EOF использовать функции LOF и Loc или использовать с функцией EOF инструкцию Get.

Пример использования

'в примере функция EOF используется для обнаружения
'конца файла, предполагается, что MYFILE является
'текстовым файлом, который содержит несколько строк текста

Dim InputData
'открываем файл для чтения под номером 1
Open "MYFILE" For Input As #1
Do While Not EOF(1) 'проверяем не достигнут ли конец файла
  Line Input #1, InputData 'читаем строку данных
  Debug.Print InputData 'выводим данные в окно отладки
Loop
Close #1 'закрываем файл

Дополнительная информация

Категория: Работа с файловой системой

Еще функции: CurDir, Dir, EOF, FileAttr, FileDateTime, FileLen, FreeFile, GetAttr, Input, Loc, LOF, Seek

Логин:

Пароль:

Регистрация, забыли пароль?