ຄຳສັ່ງ Write#

ຂຽນຂໍ້ມູນລົງໃນໄຟລ໌ຂໍ້ຄວາມແບບລຳດັບທີ່ມີຕົວອັກສອນແຍກ.

ໃຊ້ຄຳສັ່ງ Print# ເພື່ອພິມຂໍ້ມູນລົງໃນໄຟລ໌ຂໍ້ຄວາມແບບລຳດັບ. ໃຊ້ຄຳສັ່ງ Put# ເພື່ອຂຽນຂໍ້ມູນລົງໃນໄຟລ໌ບີນາຣີ ຫຼື ໄຟລ໌ແບບສຸ່ມ.

Write [#fileNum] {,|;} expression [, …]

fileNum: ນິພົດຕົວເລກໃດໜຶ່ງທີ່ປະກອບມີໝາຍເລກໄຟລ໌ທີ່ຖືກກຳນົດໂດຍຄຳສັ່ງ Open ສຳລັບໄຟລ໌ນັ້ນໆ.

expression list: ຕົວປ່ຽນ ຫຼື ນິພົດທີ່ທ່ານຕ້ອງການໃສ່ໃນໄຟລ໌, ແຍກກັນດ້ວຍເຄື່ອງໝາຍຈຸດ.

ຫາກລະເວັ້ນລາຍການນິພົດ, ຄຳສັ່ງ Write ຈະເພີ່ມແຖວຫວ່າງໃສ່ໃນໄຟລ໌.

ເພື່ອເພີ່ມລາຍການນິພົດລົງໃນໄຟລ໌ໃໝ່ ຫຼື ໄຟລ໌ທີ່ມີຢູ່ແລ້ວ, ໄຟລ໌ນັ້ນຕ້ອງຖືກເປີດໃນໂໝດ Output ຫຼື Append.

ສະຕຣິງທີ່ທ່ານຂຽນຈະຖືກລ້ອມຮອບດ້ວຍເຄື່ອງໝາຍຄຳເວົ້າ ແລະ ແຍກດ້ວຍເຄື່ອງໝາຍຈຸດ. ທ່ານບໍ່ຈຳເປັນຕ້ອງໃສ່ຕົວແຍກເຫຼົ່ານີ້ໃນລາຍການນິພົດ.

ທຸກໆຄຳສັ່ງ Write ຈະສົ່ງອອກສັນຍະລັກຈົບແຖວເປັນລາຍການສຸດທ້າຍ.

ຕົວເລກທີ່ມີຕົວແຍກທົດສະນິຍົມຈະຖືກປ່ຽນຕາມການຕັ້ງຄ່າທ້ອງຖິ່ນ (locale settings).

  Sub ExampleWrite
      Dim iCount As Integer
      Dim sValue As String
      iCount = Freefile
      Open "C:\Users\ThisUser\data.txt" For Output As iCount
      sValue = "Hamburg"
      Write #iCount,sValue,200
      sValue = "New York"
      Write #iCount,sValue,300
      sValue = "Miami"
      Write #iCount,sValue,450
      Close #iCount
  End Sub
  

  Sub ExampleWrite
      Dim iCount As Integer
      Dim sValue As String
      iCount = Freefile
      Open "~/data.txt" For Output As iCount
      sValue = "Hamburg"
      Write #iCount,sValue,200
      sValue = "New York"
      Write #iCount,sValue,300
      sValue = "Miami"
      Write #iCount,sValue,450
      Close #iCount
  End Sub