IBM Lotus Symphony


Funktionen Lof [Runtime]

Returnerer størrelsen på en åben fil i byte.

Syntaks:

Lof (Filnummer)

Returværdi:

Long

Parametre:

Filnnummer: Et numerisk udtryk, der indeholder det filnummer, som blev angivet i Open-sætningen.

Ikonen Tip Længden på en fil, som ikke er åben, kan hentes med funktionen FileLen.

Fejlkoder

5 Ugyldigt procedurekald

52 Forkert filnavn eller -nummer

Eksempel:

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


Produktfeedback | Yderligere dokumentation | Varemærker