Eof Fonksiyonu
Dosya işaretçisinin bir dosyanın sonuna gelip gelmediğini belirler.
Sözdizimi:
Eof(Tamsayı olarak İfade)
Dönen değer:
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.
Örnek:
Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "First line of text"
Print #iNumber, "Metnin bir diğer satı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