Fungsi Eof

Menentukan apakah penunjuk berkas telah mencapai akhir berkas.

Sintaksis:


Eof (EkspresiInt As Integer)

Nilai balikan:

Bool

Parameter:

Intexpression: Ekspresi integer apa pun yang mengevaluasi ke jumlah berkas yang terbuka.

Inggris laporan masalah dengan ini string EOF digunakan untuk menghindari kesalahan ketika Anda mencoba untuk mendapatkan masukan dari akhir file. Bila Anda menggunakan Input atau mendapatkan pernyataan untuk membaca dari sebuah file, file pointer dilanjutkan oleh jumlah byte yang membaca. Ketika mencapai akhir file, EOF mengembalikan nilai "True"-(1).

Kode kesalahan:

5 Tidak sah dalam pemanggilan prosedur

52 Nama berkas atau angka yang buruk

Contoh:


  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, "Ini adalah baris teks"
      Print #iNumber, "Ini adalah baris teks yang lain"
      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, "This is another line of 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