IBM Lotus Symphony


Lof-funksjonen [kjøretid]

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

Syntaks:

Lof (Filnummer)

Returverdi:

Lang

Parametere:

Filnummer: Et numerisk uttrykk som inneholder filnummeret som er angitt i Open-setningen.

Tipsikon For å hente lengden på en fil som ikke er åpen, bruker du FileLen-funksjonen.

Feilkoder

5 Ugyldig prosedyrekall

52 Ugyldig filnavn eller nummer

Eksempel:

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sText As Variant REM må være en Variant

Dim aFile As String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Random As #iNumber Len=32

Seek #iNumber,1 REM Posisjon ved start

Put #iNumber,, "Dette er første linje med tekst" REM Fyll med tekst

Put #iNumber,, "Dette er andre linje med tekst"

Put #iNumber,, "Dette er tredje linje med tekst"

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 linje med 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


Tilbakemelding om produktet | Annen dokumentasjon | Varemerker