Eof: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
Nessun oggetto della modifica |
Nessun oggetto della modifica |
||
| Riga 6: | Riga 6: | ||
Esempio: | Esempio: | ||
'''Public''' Sub | '''Public''' Sub Main() | ||
Dim fl As File | Dim fl As File | ||
| Riga 21: | Riga 21: | ||
Wend | Wend | ||
Close | fl.Close | ||
'''End''' | '''End''' | ||
Versione delle 15:57, 6 gen 2017
La funzione Eof restituisce il valore booleano di vero, se si è guinti alla fine del file.
La sintassi è:
fineFile = Eof(file)
Esempio:
Public Sub Main()
Dim fl As File
Dim linea As String
fl = Open "/percorso/del/file" For Read
' Finché non si è guinti alla fine del file...
While Not Eof(fl)
' ...legge una riga del file di testo...
Line Input #fl, linea
' ...e la mostra in console:
Print linea
Wend
fl.Close
End