IBM Lotus Symphony


Función Eof [Ejecución]

Determina si el puntero del archivo ha alcanzado el final de un archivo.

Sintaxis:

Eof (intexpression As Integer)

Valor de retorno:

Lógico

Parámetros:

Intexpression: cualquier expresión que evalúe al número de un archivo abierto.

Utilice EOF para evitar errores cuando intente obtener una entrada una vez superado el final de un archivo. Cuando se utiliza la instrucción Input o Get para leer datos de un archivo, el puntero del archivo avanza el número de bytes leídos. Cuando se alcanza el final de un archivo, EOF devuelve el valor "True" (-1).

Códigos de error

5 Inicio del proceso no válido

52 Nombre de archivo o número incorrectos

Ejemplo:

Sub ExampleWorkWithAFile

Dim iNumero As Integer

Dim sLinea As String

Dim aArchivo As String

Dim sMsg as String

aArchivo = "c:\data.txt"

iNumero = Freefile

Open aArchivo For Output As #iNumero

Print #iNumero, "Primera línea de texto"

Print #iNumero, "Otra línea de texto"

Close #iNumero

iNumero = Freefile

Open aArchivo For Input As iNumero

While not eof(iNumero)

Line Input #iNumero, sLinea

If sLine <>"" then

sMsg = sMsg & sLine & chr(13)

end if

wend

Close #iNumero

Msgbox sMsg

End Sub


Comentarios del producto | Documentación adicional | Marcas registradas