IBM Lotus Symphony


Funkcija Lof [izvajalno okolje]

Vrne velikost odprte datoteke v bajtih.

Skladnja:

Lof (FileNumber)

Vrnjena vrednost:

Dolgo celo število

Parametri:

FileNumber: Katerikoli številski izraz, ki vsebuje številko datoteke, ki je bila podana v stavku Open.

Ikona nasveta Če želite pridobiti dolžino datoteke, ki ni odprta, uporabite funkcijo FileLen.

Kode napak

5 Neveljavni klic procedure

52 Napačno ime ali številka datoteke

Primer:

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,, "This is the first line of text" REM Fill with text

Put #iNumber,, "This is the second line of text"

Put #iNumber,, "This is the third line of text"

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,,"To je nova vrstica besedila"

Get #iNumber,1,sText

Get #iNumber,2,sText

Put #iNumber,20,"To je besedilo v zapisu 20"

Print Lof(#iNumber)

Close #iNumber

end sub


Povratne informacije o izdelku | Dodatna dokumentacija | Blagovne znamke