IBM Lotus Symphony
|
Returnerer størrelsen på en åben fil i byte.
Lof (Filnummer)
Long
Filnnummer: Et numerisk udtryk, der indeholder det filnummer, som blev angivet i Open-sætningen.
![]() |
Længden på en fil, som ikke er åben, kan hentes med funktionen FileLen. |
Sub DirekteAdgangEksempel
Dim iNummer As Integer
Dim sTekst As Variant REM Skal være Variant
Dim aFil As String
aFil = "c:\data.txt"
iNummer = Freefile
Open aFil For Random As #iNummer Len=32
Seek #iNummer,1 REM Placér i starten
Put #iNummer,, "Dette er første linje tekst" REM Udfyld med tekst
Put #iNummer,, "Dette er anden linje tekst"
Put #iNummer,, "Dette er tredje linje tekst"
Seek #iNummer,2
Get #iNummer,,sTekst
Print sTekst
Close #iNummer
iNummer = Freefile
Open aFil For Random As #iNummer Len=32
Get #iNummer,2,sTekst
Put #iNummer,,"Dette er en ny linje tekst"
Get #iNummer,1,sTekst
Get #iNummer,2,sTekst
Put #iNummer,20,"Dette er teksten i post nr. 20"
Print Lof(#iNummer)
Close #iNummer
End Sub