IBM Lotus Symphony
|
Определяет, достиг ли указатель файла конца файла.
Eof (целочисленное-выражение As Integer)
Bool
целочисленное-выражение — любое целочисленное выражение, равное номеру открытого файла.
Функция Eof позволяет избежать ошибок, возникающих при попытке прочитать данные за пределами конца файла. При чтении данных файла оператором Input или Get указатель файла смещается на число прочитанных байтов. По достижении конца файла функция Eof возвращает True (-1).
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