Paganahin ang JavaScript sa browser upang ipakita ang mga pahina ng Tulong sa LibreOfficeDev.
Ilagay ang # Statement
Sumulat ng isang tala sa isang kamag-anak na file o isang pagkakasunud-sunod ng mga byte sa isang binary file.
Gamitin Print# statement para mag-print ng data sa isang sequential text file. Gamitin Sumulat # pahayag upang magsulat ng data sa isang sunud-sunod na text file na may mga delimitating na character.

Ilagay ang [#]fileNum, [recordNum|filePos], variable
fileNum : Anumang integer expression na tumutukoy sa file na gusto mong sulatan.
recordNum, filePos : Para sa mga kamag-anak na file (random access file), ang numero ng talaan na gusto mong isulat.
Para sa mga binary file (binary access), ang posisyon ng byte sa file kung saan mo gustong magsimulang magsulat.
variable : Pangalan ng variable na gusto mong isulat sa file.
Tandaan para sa mga kamag-anak na file: Kung ang mga nilalaman ng variable na ito ay hindi tumutugma sa haba ng record na tinukoy sa Len sugnay ng Bukas statement, ang puwang sa pagitan ng dulo ng bagong nakasulat na tala at ang susunod na tala ay nababalutan ng umiiral na data mula sa file kung saan ka sumusulatan.
Tandaan para sa mga binary file: Ang mga nilalaman ng mga variable ay nakasulat sa tinukoy na posisyon, at ang file pointer ay ipinasok nang direkta pagkatapos ng huling byte. Walang natitira sa pagitan ng mga talaan.
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