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 |
||
| (5 versioni intermedie di uno stesso utente non sono mostrate) | |||
| Riga 1: | Riga 1: | ||
La funzione '''Eof''' restituisce il valore booleano di ''vero'', se si è guinti alla fine del file. | La funzione '''Eof()''' restituisce il valore booleano di ''vero'', se si è guinti alla fine del file. | ||
La sintassi è: | La sintassi è: | ||
Eof(file) As Boolean | |||
Esempio: | Esempio: | ||
Public Sub Main() | |||
Dim fl As File | Dim fl As File | ||
Dim linea As String | |||
fl = Open "<FONT Color=darkgreen>''/percorso/del/file''</font>" For Read | |||
<FONT color= | <FONT color=gray>' ''Finché non si è guinti alla fine del file...''</font> | ||
While Not <FONT color=#B22222>Eof</font>(fl) | |||
<FONT color= | <FONT color=gray>' ''...legge una riga del file di testo...''</font> | ||
Line Input #fl, linea | |||
<FONT color= | <FONT color=gray>' ''...e la mostra in console:''</font> | ||
Print linea | |||
Wend | |||
fl.Close | |||
End | |||
Versione attuale delle 15:48, 10 giu 2024
La funzione Eof() restituisce il valore booleano di vero, se si è guinti alla fine del file.
La sintassi è:
Eof(file) As Boolean
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