Isi

# Fungsi Eof

Menentukan apakah penunjuk berkas telah mencapai akhir berkas.

### Sintaksis:

    Eof (EkspresiInt As Integer)

### Return type:

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

Topik Terkait

Close Statement

Print# Statement

Input# Statement

Open Statement