Функция EOF

Статья
11/05/2008

Обновлен: Ноябрь 2007

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

Public Function EOF(ByVal FileNumber As Integer) As Boolean

Параметры

FileNumber
Обязательный параметр. Integer, содержащее правильный номер файла.

Исключения

Тип исключения	Номер ошибки	Условия
IOException	52	FileNumber не существует.
IOException	54	Недопустимый режим файла.

См. столбец "Номер ошибки", если выполняется обновление приложений Visual Basic 6.0, в которых используется неструктурированная обработка ошибок. (Можно сравнить номер ошибки с Свойство Number (объект Err).) Однако, по возможности, следует заменять такую обработку ошибок на Обзор структурной обработки исключений в Visual Basic.

Заметки

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

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

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

Пример

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

Dim TextLine As String
' Open file.
FileOpen(1, "TESTFILE", OpenMode.Input)
' Loop until end of file.
Do While Not EOF(1) 
' Read line into variable.
   TextLine = LineInput(1)
' Display result in a message box.
   MsgBox("End of file reached at " & TextLine)
Loop
FileClose(1)