Guida di LibreOffice 7.1
Restituisce la dimensione di un file in byte.
Lof (FileNumber)
Long
FileNumber (NumeroFile): espressione numerica contenente il numero del file specificato nell'istruzione Open.
Per determinare la lunghezza di un file non aperto, usate la funzione FileLen.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM Il tipo deve essere Variant
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 REM Posizione iniziale
Put #iNumber,, "Questa è la prima riga di testo" REM Riempie la riga di caratteri
Put #iNumber,, "Questa è la seconda riga di testo"
Put #iNumber,, "Questa è la terza riga di testo"
Seek #iNumber,2
Get #iNumber,,sText
Print sText
Close #iNumber
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Get #iNumber,2,sText
Put #iNumber,,"Questa è una nuova riga di testo"
Get #iNumber,1,sText
Get #iNumber,2,sText
Put #iNumber,20,"Questo è il testo del record 20"
Print Lof(#iNumber)
Close #iNumber
End Sub