Guida di LibreOffice 7.5
Restituisce la dimensione di un file in byte.
Lof (FileNumber) As Long
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 ' Deve essere una variante
Dim aFile As String
aFile = "C:\Users\ThisUser\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' Posizione iniziale
Put #iNumber, , "Questa è la prima riga di testo" ' Riempie la riga con testo
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, ,"Questo è un nuovo 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
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' Deve essere una variante
Dim aFile As String
aFile = "~/data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' Posizione iniziale
Put #iNumber, , "Questa è la prima riga di testo" ' Riempie la riga con testo
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, ,"Questo è un nuovo 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