Eof: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
Nessun oggetto della modifica |
Nessun oggetto della modifica |
||
| Riga 11: | Riga 11: | ||
Dim linea As String | Dim linea As String | ||
fl = Open " | fl = Open "<FONT Color=gray>''/percorso/del/file''</font>" For Read | ||
<FONT color= | <FONT color=gray>' ''Finché non si è guinti alla fine del file...''</font> | ||
While Not Eof(fl) | While Not Eof(fl) | ||
<FONT color= | <FONT color=gray>' ''...legge una riga del file di testo...''</font> | ||
Line Input #fl, linea | Line Input #fl, linea | ||
<FONT color= | <FONT color=gray>' ''...e la mostra in console:''</font> | ||
Print linea | Print linea | ||
Wend | Wend | ||
Versione delle 15:56, 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 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