Contenuto
Indice 🔎︎

# 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

Argomenti correlati

Istruzione Close

Istruzione Print#

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

Istruzione Open