Differenze tra le versioni di "Eof"

Da Gambas-it.org - Wikipedia.
 
(3 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 è:
  fineFile = Eof(file)
+
  Eof(file) As Boolean
 
 
 
 
 
Esempio:
 
Esempio:
  '''Public''' Sub Button1_Click()
+
  Public Sub Main()
 
   
 
   
 
   Dim fl As File
 
   Dim fl As File
 
   Dim linea As String
 
   Dim linea As String
 
   
 
   
  fl = Open "<FONT Color=gray>''/percorso/del/file''</font>" For Read
+
  fl = Open "<FONT Color=darkgreen>''/percorso/del/file''</font>" For Read
 
   
 
   
 
  <FONT color=gray>' ''Finché non si è guinti alla fine del file...''</font>
 
  <FONT color=gray>' ''Finché non si è guinti alla fine del file...''</font>
  While Not Eof(fl)
+
  While Not <FONT color=#B22222>Eof</font>(fl)
 
  <FONT color=gray>' ''...legge una riga del file di testo...''</font>
 
  <FONT color=gray>' ''...legge una riga del file di testo...''</font>
    Line Input #fl, linea
+
    Line Input #fl, linea
 
  <FONT color=gray>' ''...e la mostra in console:''</font>
 
  <FONT color=gray>' ''...e la mostra in console:''</font>
    Print linea
+
    Print linea
  Wend
+
  Wend
 
   
 
   
  Close #fl
+
  fl.Close
 
   
 
   
  '''End'''
+
  End

Versione attuale delle 14: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