LibreOffice 7.1 abi
Tagastab avatud faili suuruse baitides.
Lof (FileNumber)
Long
FileNumber: suvaline arvavaldis, mis sisaldab lauses Open määratud faili numbrit.
Sellise faili pikkuse toomiseks, mis pole avatud, kasuta funktsiooni FileLen.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM Peab olema variant-tĂĽĂĽpi
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 REM Algne asukoht
Put #iNumber,, "See on teksti esimene rida" REM Täida tekstiga
Put #iNumber,, "See on teksti teine rida"
Put #iNumber,, "See on teksti kolmas rida"
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,,"See on teksti uus rida"
Get #iNumber,1,sText
Get #iNumber,2,sText
Put #iNumber,20,"See on tekst kirjes 20"
Print Lof(#iNumber)
Close #iNumber
End Sub