Funzione Eof

Determina se il puntatore ha raggiunto la fine del file.

Sintassi:


Eof (intexpression As Integer)

Valore restituito:

Bool

Parametri:

Intexpression (EspressioneInt): espressione numerica intera che valuta il numero di un file aperto.

L'uso di EOF permette di evitare gli errori generati quando si cerca di immettere dati dopo la fine del file. Quando usate l'istruzione Input o Get per leggere i dati da un file, il puntatore viene fatto avanzare del numero di byte letti. Quando viene raggiunta la fine del file, EOF restituisce il valore "True" (-1).

Codici di errore:

5 Richiamo di procedura non valido

52 Nome file o numero file errato

Esempio:


  Sub ExampleWorkWithAFile
      Dim iNumber As Integer
      Dim sLine As String
      Dim aFile As String
      Dim sMsg As String
      aFile = "C:\Users\ThisUser\data.txt"
      iNumber = Freefile
      Open aFile For Output As #iNumber
      Print #iNumber, "Questa è una riga di testo"
      Print #iNumber, "Questa è un'altra riga di testo"
      Close #iNumber
      iNumber = Freefile
      Open aFile For Input As iNumber
      While Not eof(iNumber)
          Line Input #iNumber, sLine
          If sLine <>"" Then
              sMsg = sMsg & sLine & chr(13)
          End If
      Wend
      Close #iNumber
      MsgBox sMsg
  End Sub


  Sub ExampleWorkWithAFile
      Dim iNumber As Integer
      Dim sLine As String
      Dim aFile As String
      Dim sMsg As String
      aFile = "~/data.txt"
      iNumber = Freefile
      Open aFile For Output As #iNumber
      Print #iNumber, "Questa è una riga di testo"
      Print #iNumber, "Questa è un'altra riga di testo"
      Close #iNumber
      iNumber = Freefile
      Open aFile For Input As iNumber
      While Not eof(iNumber)
          Line Input #iNumber, sLine
          If sLine <>"" Then
              sMsg = sMsg & sLine & chr(13)
          End If
      Wend
      Close #iNumber
      MsgBox sMsg
  End Sub

Istruzione Close

Istruzione Print#

D'oh! You found a bug (text/sbasic/shared/03020202.xhp#Input_h1 not found).

Istruzione Open