Функция EOF

Примечание : Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений Microsoft Jet выполняется в режиме песочницы, который не позволяет рассчитывать потенциально небезопасные выражения. Для получения дополнительных сведений выполните в справке поиск по словам "режим песочницы".

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

Синтаксис

EOF( номер_файла )

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

Замечания

Функция EOF служит для предотвращения ошибок при попытке ввода данных после достижения конца файла.

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

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

Пример

Примечание : В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.

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

Dim InputData
' Open file for input.
Open "MYFILE" For Input As #1
' Check for end of file.
Do While Not EOF(1)
' Read line of data.
Line Input #1, InputData
' Print to the Immediate window.
Debug.Print InputData
Loop
' Close file.
Close #1
Совершенствование навыков
Перейти к обучению
Первоочередный доступ к новым возможностям
Присоединиться к программе предварительной оценки Office

Были ли сведения полезными?

Спасибо за ваш отзыв!

Благодарим за отзыв! Возможно, будет полезно связать вас с одним из наших специалистов службы поддержки Office.

×