IBM Lotus Symphony


Funkcia Lof [Runtime]

Vráti veľkosť otvoreného súboru v bajtoch.

Syntax:

Lof (FileNumber)

Návratová hodnota:

Typ Long

Parametre:

FileNumber: Každý číselný výraz, obsahujúci číslo súboru, ktoré je špecifikované v príkaze Open.

Ikona Tip Ak chcete zistiť dĺžku súboru, ktorý nie je otvorený, použite funkciu FileLen.

Chybové kódy

5 Neplatné volanie procedúry

52 Nesprávny názov súboru alebo nesprávne číslo

Príklad:

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sText As Variant REM must be a Variant

Dim aFile As String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Random As #iNumber Len=32

Seek #iNumber,1 REM Position at start

Put #iNumber,, "Toto je prvý riadok textu" REM Fill with text

Put #iNumber,, "Toto je druhý riadok textu"

Put #iNumber,, "Toto je tretí riadok textu"

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,,"Toto je nový riadok textu"

Get #iNumber,1,sText

Get #iNumber,2,sText

Put #iNumber,20,"Toto je text v zázname 20"

Print Lof(#iNumber)

Close #iNumber

end sub


Spätná väzba na produkt | Ďalšia dokumentácia | Ochranné známky