LibreOffice 7.3 Hjælp
Returnerer størrelsen af en åben fil i bytes.
Lof (FileNumber)
Long
FileNumber: Ethvert numerisk udtryk, som indeholder det filnummer, som er angivet i Open-sætningen.
For at få længden på en fil som ikke er åben, brug funktionen FileLen.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM Skal være en variant
Dim aFile As String
aFile = "C:\Users\ThisUser\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 REM Position ved begyndelse
Put #iNumber, , "Det er den første tekstlinje" ' Fyld linjen med tekst
Put #iNumber, , "Dette er den anden tekstlinje"
Put #iNumber, , "Dette er den tredje tekstlinje "
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, , "Dette er en ny tekst"
Get #iNumber, 1, sText
Get #iNumber, 2, sText
Put #iNumber, 20, "Dette er teksten i post 20"
Print Lof(#iNumber)
Close #iNumber
End Sub
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' Må være en variant
Dim aFile As String
aFile = "~/data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Søg #iNumber,1 ' Begyndelsesposition
Put #iNumber, , "Dette er den første tekstlinje" ' Fyld linjen med tekst
Put #iNumber, , "Dette er den anden tekstlinje"
Put #iNumber, , "Dette er den tredje tekstlinje"
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, , "Dette er en ny tekst"
Get #iNumber, 1, sText
Get #iNumber, 2, sText
Put #iNumber, 20, "Dette er teksten i post 20"
Print Lof(#iNumber)
Close #iNumber
End Sub