Eof: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
(Nuova pagina: La funzione '''Eof''' restituisce il valore booleano di ''vero'', se si è guinti alla fine del file. La sintassi è: fineFile = Eof(file) Esempio: '''Public''' Sub Button1_Click(...) |
Nessun oggetto della modifica |
||
| Riga 9: | Riga 9: | ||
Dim fl As File | Dim fl As File | ||
Dim linea As String | |||
fl = Open "percorso_del_file" For Read | fl = Open "percorso_del_file" For Read | ||
Versione delle 18:30, 2 gen 2013
La funzione Eof restituisce il valore booleano di vero, se si è guinti alla fine del file.
La sintassi è:
fineFile = Eof(file)
Esempio:
Public Sub Button1_Click()
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
Close #fl
End