Kumuha ng Pahayag

Nagbabasa ng tala mula sa isang kamag-anak na file, o isang pagkakasunud-sunod ng mga byte mula sa isang binary file, sa isang variable.

Tingnan din ang: ILAGAY Pahayag

Syntax:

Kunin ang diagram ng Pahayag


Kunin ang [#]fileNum, [recordNum|filePos], variable

Mga Parameter:

fileNum: Anumang integer expression na tumutukoy sa numero ng file.

recordNum: Para sa mga file na binuksan sa Random mode, recordNum ay ang numero ng tala na gusto mong basahin.

Para sa mga file na binuksan sa Binary mode, filePos ay ang byte na posisyon sa file kung saan nagsisimula ang pagbabasa.

Kung recordNum at filePos ay tinanggal, ang kasalukuyang posisyon o ang kasalukuyang talaan ng data ng file ay ginagamit.

variable: Pangalan ng variable na babasahin. Maliban sa mga variable ng object, maaari mong gamitin ang anumang uri ng variable.

Halimbawa:


  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

Buksan ang Pahayag

Ilagay ang # Statement

Isara ang Pahayag