LibreOffice 7.1 laguntza
Irekitako fitxategiaren tamaina itzultzen du bytetan.
Lof (FitxategiZenbakia)
Long
FitxategiZenbakia: Open instrukzioan zehaztutako fitxategi-zenbakia duen zenbakizko adierazpen oro.
Ireki gabeko fitxategi baten luzera lortzeko, erabili FileLen funtzioa.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM Aldagaia izan behar du
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 REM Hasieran kokatzen du
Put #iNumber,, "Hau testuaren lehen lerroa da" REM Bete lerroa testuarekin
Put #iNumber,, "Hau testuaren bigarren lerroa da"
Put #iNumber,, "Hau testuaren hirugarren lerroa da"
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,,"Hau testuko lerro berria da"
Get #iNumber,1,sText
Get #iNumber,2,sText
Put #iNumber,20,"Hau 20. erregistroko testua da"
Print Lof(#iNumber)
Close #iNumber
End Sub