Поделиться через


Функция EOF

Возвращает аргумент Integer, содержащий логическое значение True, когда достигнут конец файла, открытого для случайного или последовательного ввода.

Синтаксис

EOF(filenumber)

Обязательный аргументfilenumber — это целое число, содержащее любой допустимый номер файла.

Замечания

Используйте функцию EOF, чтобы избежать ошибок, вызываемых попытками выполнить ввод после конца файла.

Функция EOF возвращает значение False, пока не будет достигнут конец файла. Если файлы открыты для случайного или двоичного доступа, EOF возвращает значение False , пока последняя выполненная инструкция Get не сможет прочитать всю запись.

Если файлы открыты для двоичного доступа, попытка прочитать файл с помощью функции Input до тех пор, пока EOF не вернет значение True , создает ошибку. Используйте функции LOF и Loc вместо EOF при чтении двоичных файлов с помощью входных данных или get при использовании функции EOF . Когда файлы открыты для вывода, функция EOF всегда возвращает True.

Пример

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

Dim InputData
Open "MYFILE" For Input As #1    ' Open file for input.
Do While Not EOF(1)    ' Check for end of file.
    Line Input #1, InputData    ' Read line of data.
    Debug.Print InputData    ' Print to the Immediate window.
Loop
Close #1    ' Close file.

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.