İçerikler
Dizin 🔎︎

# Eof Fonksiyonu

Dosya işaretçisinin bir dosyanın sonuna gelip gelmediğini belirler.

### Sözdizimi:

    Eof(Tamsayı olarak İfade)

### Dönüş değeri:

Bool

### Parametreler:

İfade: Açık bir dosyanın sayısı olarak değerlendirilen herhangi tamsayıdır.

Dosya sonunu geçmeden girdi çekme sırasında hatalardan kaçınmak için EOF kullanın. Input veya Get durumlarını dosya okumak için kullandığınızda, dosya göstergeci okunan bayt kadar ilerler. Dosya sonuna gelindiğinde, EOF "Doğru" (-1) değerini döndürür.

### Hata kodları:

5 Geçersiz yordam çağrısı

52 Geçersiz dosya adı veya numarası

### Örnek:

      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, "Bu metnin bir satırıdır"
          Print #iNumber, "Bu, metnin bir diğer satırıdır"
          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

İlgili Konular

Close Statement

Print# Statement

Input# Statement

Open Statement