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