Функция Eof

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

Синтаксис:


Eof (intexpression As Integer)

Return value:

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:\Users\ThisUser\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


  Sub ExampleWorkWithAFile
      Dim iNumber As Integer
      Dim sLine As String
      Dim aFile As String
      Dim sMsg As String
      aFile = "~/data.txt"
      iNumber = Freefile
      Open aFile For Output As #iNumber
      Print #iNumber, "This is a line of text"
      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