IBM Lotus Symphony


Функция Eof [встроенная]

Определяет, достиг ли указатель файла конца файла.

Синтаксис:

Eof (целочисленное-выражение As Integer)

Возвращаемое значение:

Bool

Параметры:

целочисленное-выражение — любое целочисленное выражение, равное номеру открытого файла.

Функция Eof позволяет избежать ошибок, возникающих при попытке прочитать данные за пределами конца файла. При чтении данных файла оператором Input или Get указатель файла смещается на число прочитанных байтов. По достижении конца файла функция Eof возвращает True (-1).

Коды ошибок

5 Недопустимый вызов процедуры

52 Неправильное имя или номер файла

Пример:

Sub ExampleWorkWithAFile

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

Dim sMsg as String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Output As #iNumber

Print #iNumber, "Первая строка файла"

Print #iNumber, "Вторая строка файла"

Close #iNumber

iNumber = Freefile

Open aFile For Input As iNumber

While not eof(iNumber)

Line Input #iNumber, sLine

If sLine <>"" then

sMsg = sMsg & sLine & chr(13)

end if

wend

Close #iNumber

Msgbox sMsg

End Sub


Комментарии по продукту | Дополнительная документация | Товарные знаки