IBM Lotus Symphony


Función Lof [Ejecución]

Devuelve el tamaño de un archivo abierto en bytes.

Sintaxis:

Lof (FileNumber)

Valor de retorno:

Largo

Parámetros:

FileNumber: cualquier expresión numérica que contiene el número de archivo que se especifica en la instrucción Open.

Icono de consejo Para obtener la longitud de un archivo que no está abierto, utilice la función FileLen.

Códigos de error

5 Inicio del proceso no válido

52 Nombre de archivo o número incorrectos

Ejemplo:

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


Comentarios del producto | Documentación adicional | Marcas registradas