Lof-funksjonen
Returnerer storleiken på ei opna fil i byte.
Lof (Filnummer) som Long
Long
Filnummer: Eit taluttrykk som inneheld filnummeret spesifisert i Open-uttrykket.
For å få lengda på ei fil som ikkje er opna, bruk funksjonen FileLen.
5 Ugyldig prosedyreoppkall
52 Ugyldig filnamn eller filnummer
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' Må vera ein variant
Dim aFile As String
aFile = "C:\Users\ThisUser\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' Startposisjonen
Put #iNumber,, "Dette er den første tekstlinja" ' Fyll linja med tekst
Put #iNumber,, "Dette er den andre tekstlinja"
Put #iNumber,, "Dette er den tredje tekstlinja"
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 ein ny tekst"
Get #iNumber, 1, sText
Get #iNumber, 2, sText
Put #iNumber,20, "Dette er teksten i datapost 20"
Print Lof(#iNumber)
Close #iNumber
End Sub
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' Må vera ein variant
Dim aFile As String
aFile = "~/data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' Startposisjonen
Put #iNumber,, "Dette er den første tekstlinja" ' Fyll linja med tekst
Put #iNumber,, "Dette er den andre tekstlinja"
Put #iNumber,, "Dette er den tredje tekstlinja"
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 ein ny tekst"
Get #iNumber, 1, sText
Get #iNumber, 2, sText
Put #iNumber,20, "Dette er teksten i datapost 20"
Print Lof(#iNumber)
Close #iNumber
End Sub