IBM Lotus Symphony


Lof-funktio [käytönaikainen]

Palauttaa avatun tiedoston koon tavuina.

Syntaksi:

Lof (FileNumber)

Palautusarvo:

Suurkokonaisluku

Parametrit:

FileNumber: Mikä tahansa numeerinen lauseke, joka sisältää Open-lauseessa määritetyn tiedoston numeron.

Vihjekuvake Jos haluat poimia sellaisen tiedoston pituuden, jota ei ole avattu, käytä FileLen-funktiota.

Virhekoodit

5 Virheellinen toimintokutsu

52 Virheellinen tiedoston nimi tai numero

Esimerkki:

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sText As Variant REM Tähän on määritettävä muunnos

Dim aFile As String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Random As #iNumber Len=32

Seek #iNumber,1 REM Paikka alussa

Put #iNumber,, "Tämä on ensimmäinen tekstirivi" REM Täyttää rivin tekstillä

Put #iNumber,, "Tämä on toinen tekstirivi"

Put #iNumber,, "Tämä on kolmas tekstirivi"

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,,"Tämä on uusi tekstirivi"

Get #iNumber,1,sText

Get #iNumber,2,sText

Put #iNumber,20,"Tämä on tietueen 20 teksti"

Print Lof(#iNumber)

Close #iNumber

end sub


Palautetta tuotteesta | Lisäohjeet | Tavaramerkit