LibreOffice 7.1 Help
Возвращает размер открытого файла в байтах.
Lof (Номер_файла)
Long
Номер_файла. Любое числовое выражение, которое содержит номер файла, указанный в инструкции Open.
Чтобы получить длину файла, который не открыт, используйте функцию FileLen.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM переменная должна быть типа Variant
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 REM Позиция в начале
Put #iNumber,, "Это первая строка текста" REM Заполнение текстом
Put #iNumber,, "Это вторая строка текста"
Put #iNumber,, "Это третья строка текста"
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,,"Это новая строка текста"
Get #iNumber,1,sText
Get #iNumber,2,sText
Put #iNumber,20,"Это текст в записи 20"
Print Lof(#iNumber)
Close #iNumber
End Sub