Function ng Lof
Ibinabalik ang laki ng isang bukas na file sa bytes.
Lof (FileNumber) Hangga't
Long
FileNumer: Anumang numeric na expression na naglalaman ng file number na tinukoy sa Bukas pahayag.
Upang makuha ang haba ng isang file na hindi bukas, gamitin ang FileLen function.
5 Di-wastong procedure call
52 Di-wastong pangalan ng file o numero ng file
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText Bilang Variant ' Dapat ay isang variant
Dim aFile As String
aFile = "C:\Users\ThisUser\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Maghanap ng #iNumber,1 ' Posisyon sa simula
Ilagay ang #iNumber, , "Ito ang unang linya ng teksto" ' Punan ang linya ng teksto
Ilagay ang #iNumber, , "Ito ang pangalawang linya ng text"
Ilagay ang #iNumber, , "Ito ang ikatlong linya ng 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
Ilagay ang #iNumber, , "Ito ay isang bagong text"
Get #iNumber, 1, sText
Get #iNumber, 2, sText
Ilagay ang #iNumber, 20, "Ito ang text sa record 20"
Print Lof(#iNumber)
Close #iNumber
End Sub
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText Bilang Variant ' Dapat ay isang variant
Dim aFile As String
aFile = "~/data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Maghanap ng #iNumber,1 ' Posisyon sa simula
Ilagay ang #iNumber, , "Ito ang unang linya ng teksto" ' Punan ang linya ng teksto
Ilagay ang #iNumber, , "Ito ang pangalawang linya ng text"
Ilagay ang #iNumber, , "Ito ang ikatlong linya ng 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
Ilagay ang #iNumber, , "Ito ay isang bagong text"
Get #iNumber, 1, sText
Get #iNumber, 2, sText
Ilagay ang #iNumber, 20, "Ito ang text sa record 20"
Print Lof(#iNumber)
Close #iNumber
End Sub