IBM Lotus Symphony
|
Devuelve el tamaño de un archivo abierto en bytes.
Lof (FileNumber)
Largo
FileNumber: cualquier expresión numérica que contiene el número de archivo que se especifica en la instrucción Open.
![]() |
Para obtener la longitud de un archivo que no está abierto, utilice la función FileLen. |
Sub ExampleRandomAccess
Dim iNumero As Integer
Dim sTexto As Variant REM debe ser una variante
Dim aArchivo As String
aArchivo = "c:\data.txt"
iNumero = Freefile
Open aFile For Random As #iNumero Len=32
Seek #iNumero,1 REM Posición al principio
Put #iNumero,, "Es la primera línea de texto" REM Rellenar con texto
Put #iNumero,, "Es la segunda línea de texto"
Put #iNumero,, "Es la tercera línea de texto"
Seek #iNumero,2
Get #iNumero,,sTexto
Print sTexto
Close #iNumero
iNumero = Freefile
Open aFile For Random As #iNumero Len=32
Get #iNumero,2,sTexto
Put #iNumero,,"Es una línea nueva de texto"
Get #iNumero,1,sTexto
Get #iNumero,2,sTexto
Put #iNumero,20,"Es el texto del registro 20"
Print Lof(#iNumero)
Close #iNumero
end sub