EOF (Función)

Artículo
10/07/2008

Actualización: noviembre 2007

Devuelve un valor Boolean True cuando se llega al final de un archivo abierto para Random o Input de tipo secuencial.

Public Function EOF(ByVal FileNumber As Integer) As Boolean

Parámetros

FileNumber
Requerido. Integer que contiene algún número de archivo válido.

Excepciones

Tipo de excepción	Número de error	Condición
IOException		FileNumber no existe.
IOException		El modo de archivo no es válido.

Consulte la columna "Número de error" si está actualizando aplicaciones de Visual Basic 6.0 que utilizan el control de errores no estructurado. (Se puede comparar el número de error con respecto a Number (Propiedad, objeto Err)). Sin embargo, siempre que sea posible, se debe considerar la sustitución de dicho control de errores por Información general sobre el control estructurado de excepciones de Visual Basic.

Comentarios

EOF se utiliza para evitar el error generado al intentar obtener datos más allá del final de un archivo.

La función EOF devuelve False hasta que se llega al final del archivo. En el caso de archivos abiertos para acceso Random o Binary, EOF devuelve False hasta que la última función FileGet ejecutada ya no puede leer un registro completo.

En los archivos abiertos para acceso Binary, se genera un error al intentar leer el archivo mediante la función Input hasta que EOF devuelve True. Utilice las funciones LOF y Loc en lugar de EOF cuando se lean archivos binarios con Input o utilice Get cuando se utilice la función EOF. En archivos abiertos para Output, EOF siempre devuelve True.

Ejemplo

En este ejemplo se utiliza la función EOF para detectar el final de un archivo. En este ejemplo se supone que Testfile es un archivo de texto con pocas líneas de texto.

Dim TextLine As String
' Open file.
FileOpen(1, "TESTFILE", OpenMode.Input)
' Loop until end of file.
Do While Not EOF(1) 
' Read line into variable.
   TextLine = LineInput(1)
' Display result in a message box.
   MsgBox("End of file reached at " & TextLine)
Loop
FileClose(1)