ຄຳສັ່ງ Write

ເນື້ອໃນ

# ຄຳສັ່ງ 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

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

ຄຳສັ່ງ Open

ຄຳສັ່ງ Print#

ຄຳສັ່ງ Put#

ຄຳສັ່ງ Close

ກະລຸນາສະໜັບສະໜູນພວກເຮົາ!