LibreOffice 7.1 Bantuan
Mengembalikan ukuran berkas yang terbuka dalam byte.
Lof (NomorBerkas)
Long
NomorBerkas: Ekspresi numerik apa pun yang berisi nomor berkas yang ditentukan dalam pernyataan Open.
Untuk mendapatkan panjang berkas yang tidak terbuka, gunakan file FileLen fungsi.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM Harus varian
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Carilah #iNumber, 1 Posisi Baris di awal
Masukkan #iNumber,, "Ini adalah baris pertamateks" REM Isi dengan teks
Put #iNumber,, "Ini baris teks kedua"
Put #iNumber,, "Ini baris teks ketiga"
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,,"Ini baris teks yang baru"
Get #iNumber,1,sText
Get #iNumber,2,sText
Put #iNumber,20,"Ini adalah teks dalam catatan 20"
Print Lof(#iNumber)
Close #iNumber
End Sub