Funzione EOF

Articolo
09/12/2008

Aggiornamento: novembre 2007

Restituisce un valore booleano True quando viene raggiunta la fine di un file aperto in modalità Random o di Input sequenziale.

Public Function EOF(ByVal FileNumber As Integer) As Boolean

Parametri

FileNumber
Obbligatorio. Valore Integer nel quale è incluso qualsiasi numero di file valido.

Eccezioni

Tipo di eccezione	Numero di errore	Condizione
IOException	52	FileNumber non esiste.
IOException	54	Modalità di accesso ai file non valida.

Se si esegue l'aggiornamento delle applicazioni Visual Basic 6.0 che utilizzano la gestione degli errori non strutturata, vedere la colonna "Numero di errore". È possibile confrontare il numero di errore con la Proprietà Number (oggetto Err). Se possibile, tuttavia, si consiglia di sostituire il controllo dell'errore con la procedura illustrata nella sezione Cenni preliminari sulla gestione strutturata delle eccezioni per Visual Basic.

Note

È consigliabile utilizzare la funzione EOF per evitare errori determinati da richieste di input successive al raggiungimento della fine del file.

La funzione EOF restituisce False fino a quando non viene raggiunta la fine del file. In caso di file aperti per l'accesso Random o Binary, la funzione EOF restituisce False fino a quando l'ultima funzione eseguita FileGet non è in grado di leggere un intero record.

In caso di file aperti per l'accesso Binary, verrà generato un errore se si tenta di leggere il file utilizzando la funzione Input finché EOF non restituisce True. Utilizzare le funzioni LOF e Loc anziché EOF quando si leggono i file binari mediante Input oppure Get quando si utilizza la funzione EOF. In caso di file aperti per Output, EOF restituisce sempre True.

Esempio

Nell'esempio riportato di seguito la funzione EOF viene utilizzata per individuare la fine di un file. Nell'esempio Testfile è un file di testo contenente alcune righe di testo.

Dim TextLine As String
' Open file.
FileOpen(1, "TESTFILE", OpenMode.Input)
' Loop until end of file.
Do While Not EOF(1) 
' Read line into variable.
   TextLine = LineInput(1)
' Display result in a message box.
   MsgBox("End of file reached at " & TextLine)
Loop
FileClose(1)