Contenido

# Función Eof

Determina si el puntero de archivo ha llegado al final de este.

### Sintaxis:

    Eof (ExpresiónEntero As Integer)

### Valor de retorno:

Bool (lógico)

### Parámetros:

Intexpression: Cualquier expresión de entero que devuelva un número de un archivo abierto.

EOF se utiliza para evitar errores al intentar obtener datos más allá del final de un archivo. Cuando se utiliza la instrucción Input o Get para leer de un archivo, el puntero de archivo avanza según el número de bytes leídos. Cuando se llega al final del archivo, EOF devuelve el valor «True» (-1).

### Códigos de error:

5 Llamada a procedimiento no válida

52 Nombre de archivo o número incorrectos

### Ejemplo:

      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, "Este es un renglón de texto"
          Print #iNumero, "Este es otro renglón de texto"
          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, "Este es un renglón de texto"
          Print #iNumero, "Este es otro renglón de texto"
          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

Temas relacionados

Close Statement

Instrucción Print#

Input# Statement

Open Statement