Funzione EOF
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 |
|---|---|---|
FileNumber non esiste. |
||
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)
Note per gli sviluppatori di applicazioni per Smart Device
Questa funzione non è supportata.
Requisiti
Spazio dei nomi:Microsoft.VisualBasic
**Modulo:**FileSystem
**Assembly:**Visual Basic Runtime Library (in Microsoft.VisualBasic.dll)