Eof

Da Gambas-it.org - Wikipedia.
Versione del 2 gen 2013 alle 17:29 di Vuott (Discussione | contributi) (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(...)

(diff) ← Versione meno recente | Versione attuale (diff) | Versione più recente → (diff)

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

  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