ເນື້ອໃນ

# ຄຳສັ່ງ Get

ອ່ານລະຄອນ (record) ຈາກໄຟລ໌ສຳພັນ, ຫຼື ລຳດັບຂອງໄບຕ໌ຈາກໄຟລ໌ບີນາຣີ ເຂົ້າໄປໃນຕົວປ່ຽນ.

ເບິ່ງຕື່ມ: ຄຳສັ່ງ PUT

### ໄວຍາກອນ:

    Get [#]fileNum, [recordNum|filePos], variable

### ພາຣາມິເຕີ:

fileNum: ນິພົດຈຳນວນຖ້ວນໃດໜຶ່ງທີ່ກຳນົດໝາຍເລກໄຟລ໌.

recordNum: ສຳລັບໄຟລ໌ທີ່ເປີດໃນໂໝດ Random, recordNum ແມ່ນໝາຍເລກຂອງລະຄອນທີ່ທ່ານຕ້ອງການອ່ານ.

ສຳລັບໄຟລ໌ທີ່ເປີດໃນໂໝດ Binary, filePos ແມ່ນຕຳແໜ່ງໄບຕ໌ໃນໄຟລ໌ທີ່ການອ່ານເລີ່ມຕົ້ນ.

ຫາກລະເວັ້ນ recordNum ແລະ filePos, ຕຳແໜ່ງປັດຈຸບັນ ຫຼື ລະຄອນຂໍ້ມູນປັດຈຸບັນຂອງໄຟລ໌ຈະຖືກນຳໃຊ້.

variable: ຊື່ຂອງຕົວປ່ຽນທີ່ຈະອ່ານຂໍ້ມູນເຂົ້າໄປ. ທ່ານສາມາດໃຊ້ຕົວປ່ຽນປະເພດໃດກໍໄດ້ ຍົກເວັ້ນຕົວປ່ຽນປະເພດວັດຖຸ (object variables).

### ຕົວຢ່າງ:

      Sub ExampleRandomAccess
          Dim iNumber As Integer
          Dim sText As Variant ' ຕ້ອງເປັນແບບ variant
          Dim aFile As String
          aFile = "C:\Users\ThisUser\data.txt"
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Seek #iNumber,1 ' ໄປທີ່ຕຳແໜ່ງເລີ່ມຕົ້ນ
          Put #iNumber, , "This is the first line of text" ' ຂຽນຂໍ້ຄວາມລົງໃນແຖວ
          Put #iNumber, , "This is the second line of text"
          Put #iNumber, , "This is the third line of 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
          Put #iNumber, , "This is a new text"
          Get #iNumber, 1, sText
          Get #iNumber, 2, sText
          Put #iNumber, 20, "This is the text in record 20"
          Print Lof(#iNumber)
          Close #iNumber
      End Sub

      Sub ExampleRandomAccess
          Dim iNumber As Integer
          Dim sText As Variant ' ຕ້ອງເປັນແບບ variant
          Dim aFile As String
          aFile = "~/data.txt"
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Seek #iNumber,1 ' ໄປທີ່ຕຳແໜ່ງເລີ່ມຕົ້ນ
          Put #iNumber, , "This is the first line of text" ' ຂຽນຂໍ້ຄວາມລົງໃນແຖວ
          Put #iNumber, , "This is the second line of text"
          Put #iNumber, , "This is the third line of 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
          Put #iNumber, , "This is a new text"
          Get #iNumber, 1, sText
          Get #iNumber, 2, sText
          Put #iNumber, 20, "This is the text in record 20"
          Print Lof(#iNumber)
          Close #iNumber
      End Sub

ຫົວຂໍ້ທີ່ກ່ຽວຂ້ອງ

ຄຳສັ່ງ Open

ຄຳສັ່ງ Put#

ຄຳສັ່ງ Close