Eof Function

Tinutukoy kung ang file pointer ay umabot na sa dulo ng isang file.

Syntax:


Eof (intexpression Bilang Integer)

Ibinalik na halaga:

Bool

Mga Parameter:

Interpresyon: Anumang integer expression na nagsusuri sa bilang ng isang bukas na file.

Gamitin ang EOF upang maiwasan ang mga error kapag sinubukan mong makakuha ng input sa dulo ng isang file. Kapag ginamit mo ang Input o Get statement para magbasa mula sa isang file, ang file pointer ay na-advance ayon sa bilang ng mga byte na nabasa. Kapag naabot na ang dulo ng isang file, ibinabalik ng EOF ang value na "True" (-1).

Mga error code:

5 Di-wastong procedure call

52 Di-wastong pangalan ng file o numero ng file

Halimbawa:


  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
      I-print ang #iNumber, "Ito ay isang linya ng teksto"
      I-print ang #iNumber, "Isa itong linya ng text"
      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
      I-print ang #iNumber, "Ito ay isang linya ng teksto"
      I-print ang #iNumber, "Isa itong linya ng text"
      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