ເນື້ອໃນ

# ຄຳສັ່ງ Put#

ຂຽນລະຄອນ (record) ລົງໃນໄຟລ໌ສຳພັນ ຫຼື ລຳດັບຂອງໄບຕ໌ລົງໃນໄຟລ໌ບີນາຣີ.

ໃຊ້ຄຳສັ່ງ Print# ເພື່ອພິມຂໍ້ມູນລົງໃນໄຟລ໌ຂໍ້ຄວາມແບບລຳດັບ. ໃຊ້ຄຳສັ່ງ Write# ເພື່ອຂຽນຂໍ້ມູນລົງໃນໄຟລ໌ຂໍ້ຄວາມແບບລຳດັບທີ່ມີຕົວອັກສອນແຍກ.

### ໄວຍາກອນ:

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

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

fileNum: ນິພົດຈຳນວນຖ້ວນໃດໜຶ່ງທີ່ກຳນົດໄຟລ໌ທີ່ທ່ານຕ້ອງການຂຽນລົງ.

recordNum, filePos: ສຳລັບໄຟລ໌ສຳພັນ (ໄຟລ໌ເຂົ້າເຖິງແບບສຸ່ມ), ແມ່ນໝາຍເລກຂອງລະຄອນທີ່ທ່ານຕ້ອງການຂຽນ.

ສຳລັບໄຟລ໌ບີນາຣີ (ການເຂົ້າເຖິງແບບບີນາຣີ), ແມ່ນຕຳແໜ່ງຂອງໄບຕ໌ໃນໄຟລ໌ທີ່ທ່ານຕ້ອງການເລີ່ມຂຽນ.

variable: ຊື່ຂອງຕົວປ່ຽນທີ່ທ່ານຕ້ອງການຂຽນລົງໃນໄຟລ໌.

ໝາຍເຫດສຳລັບໄຟລ໌ສຳພັນ: ຫາກເນື້ອໃນຂອງຕົວປ່ຽນນີ້ບໍ່ກົງກັບຄວາມຍາວຂອງລະຄອນທີ່ລະບຸໄວ້ໃນສ່ວນ Len ຂອງຄຳສັ່ງ Open, ຊ່ອງວ່າງລະຫວ່າງທ້າຍຂອງລະຄອນທີ່ຂຽນໃໝ່ ແລະ ລະຄອນຖັດໄປຈະຖືກເຕີມດ້ວຍຂໍ້ມູນທີ່ມີຢູ່ແລ້ວຈາກໄຟລ໌ທີ່ທ່ານກຳລັງຂຽນລົງ.

ໝາຍເຫດສຳລັບໄຟລ໌ບີນາຣີ: ເນື້ອໃນຂອງຕົວປ່ຽນຈະຖືກຂຽນລົງໃນຕຳແໜ່ງທີ່ລະບຸ, ແລະ ຕົວຊີ້ໄຟລ໌ຈະຖືກແຊກລົງທັນທີຫຼັງຈາກໄບຕ໌ສຸດທ້າຍ. ຈະບໍ່ມີຊ່ອງວ່າງລະຫວ່າງລະຄອນ.

### ຕົວຢ່າງ:

      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

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

ຄຳສັ່ງ Close

ຄຳສັ່ງ Get

ຄຳສັ່ງ Open