IBM Lotus Symphony
|
Palauttaa avatun tiedoston koon tavuina.
Lof (FileNumber)
Suurkokonaisluku
FileNumber: Mikä tahansa numeerinen lauseke, joka sisältää Open-lauseessa määritetyn tiedoston numeron.
![]() |
Jos haluat poimia sellaisen tiedoston pituuden, jota ei ole avattu, käytä FileLen-funktiota. |
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