IBM Lotus Symphony
|
Determina si el puntero del archivo ha alcanzado el final de un archivo.
Eof (intexpression As Integer)
Lógico
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).
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