Funzione Eof
Determina se il puntatore ha raggiunto la fine del file.
Sintassi:
Eof (intexpression As Integer)
Valore restituito:
Bool
Parametri:
Intexpression (EspressioneInt): espressione numerica intera che valuta il numero di un file aperto.
L'uso di EOF permette di evitare gli errori generati quando si cerca di immettere dati dopo la fine del file. Quando usate l'istruzione Input o Get per leggere i dati da un file, il puntatore viene fatto avanzare del numero di byte letti. Quando viene raggiunta la fine del file, EOF restituisce il valore "True" (-1).
Esempio:
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, "Prima riga di testo"
Print #iNumber, "Altra riga di testo"
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