ຄຳສັ່ງ Open

ເປີດຊ່ອງທາງຂໍ້ມູນ.

Open pathname For mode [Access io] [locking] As [#]filenum [Len=recLen]

pathname: ເສັ້ນທາງ ແລະ ຊື່ຂອງໄຟລ໌ທີ່ຈະເປີດ. ຫາກທ່ານພະຍາຍາມອ່ານໄຟລ໌ທີ່ບໍ່ມີຢູ່ (Access = Read), ຂໍ້ຄວາມສະແດງຂໍ້ຜິດພາດຈະປາກົດຂຶ້ນ. ຫາກທ່ານພະຍາຍາມຂຽນລົງໃນໄຟລ໌ທີ່ບໍ່ມີຢູ່ (Access = Write), ໄຟລ໌ໃໝ່ຈະຖືກສ້າງຂຶ້ນ.

mode: ຄຳສຳຄັນທີ່ກຳນົດໂໝດຂອງໄຟລ໌. ຄ່າທີ່ໃຊ້ໄດ້: Append (ຂຽນຕໍ່ທ້າຍໄຟລ໌ລຳດັບ), Binary (ເຂົ້າເຖິງຂໍ້ມູນເປັນໄບຕ໌ໂດຍໃຊ້ Get ແລະ Put), Input (ເປີດຊ່ອງທາງຂໍ້ມູນສຳລັບການອ່ານ), Output (ເປີດຊ່ອງທາງຂໍ້ມູນສຳລັບການຂຽນ), ແລະ Random (ແກ້ໄຂໄຟລ໌ແບບສຳພັນ).

io: ຄຳສຳຄັນທີ່ກຳນົດປະເພດການເຂົ້າເຖິງ. ຄ່າທີ່ໃຊ້ໄດ້: Read (ອ່ານຢ່າງດຽວ), Write (ຂຽນຢ່າງດຽວ), Read Write (ທັງສອງຢ່າງ).

locking: ຄຳສຳຄັນທີ່ກຳນົດສະຖານະຄວາມປອດໄພຂອງໄຟລ໌ຫຼັງຈາກເປີດ. ຄ່າທີ່ໃຊ້ໄດ້: Shared (ໄຟລ໌ອາດຖືກເປີດໂດຍແອັບພລິເຄຊັນອື່ນ), Lock Read (ໄຟລ໌ຖືກປ້ອງກັນບໍ່ໃຫ້ອ່ານ), Lock Write (ໄຟລ໌ຖືກປ້ອງກັນບໍ່ໃຫ້ຂຽນ), Lock Read Write (ປະຕິເສດການເຂົ້າເຖິງໄຟລ໌).

filenum: ນິພົດຈຳນວນຖ້ວນໃດໜຶ່ງແຕ່ 0 ຫາ 511 ເພື່ອບອກໝາຍເລກຂອງຊ່ອງທາງຂໍ້ມູນທີ່ວ່າງຢູ່. ຈາກນັ້ນທ່ານສາມາດສົ່ງຄຳສັ່ງຜ່ານຊ່ອງທາງຂໍ້ມູນເພື່ອເຂົ້າເຖິງໄຟລ໌. ໝາຍເລກໄຟລ໌ຕ້ອງຖືກກຳນົດໂດຍຟັງຊັນ FreeFile ກ່ອນຄຳສັ່ງ Open ທັນທີ.

recLen: ສຳລັບໄຟລ໌ເຂົ້າເຖິງແບບ Random, ໃຫ້ກຳນົດຄວາມຍາວຂອງລະຄອນ (records).

ທ່ານສາມາດແກ້ໄຂເນື້ອໃນຂອງໄຟລ໌ທີ່ຖືກເປີດດ້ວຍຄຳສັ່ງ Open ເທົ່ານັ້ນ. ຫາກທ່ານພະຍາຍາມເປີດໄຟລ໌ທີ່ເປີດຢູ່ແລ້ວ, ຂໍ້ຄວາມສະແດງຂໍ້ຜິດພາດຈະປາກົດຂຶ້ນ.

  Sub ExampleWorkWithAFile
      Dim iNumber As Integer
      Dim sLine As String
      Dim aFile As String
      Dim sMsg As String
      aFile = "C:\Users\ThisUser\data.txt"
      iNumber = Freefile
      Open aFile For Output As #iNumber
      Print #iNumber, "This is a line of text"
      Print #iNumber, "This is another line of text"
      Close #iNumber
      iNumber = Freefile
      Open aFile For Input As iNumber
      While Not eof(iNumber)
          Line Input #iNumber, sLine
          If sLine <>"" Then
              sMsg = sMsg & sLine & chr(13)
          End If
      Wend
      Close #iNumber
      MsgBox sMsg
  End Sub

  Sub ExampleWorkWithAFile
      Dim iNumber As Integer
      Dim sLine As String
      Dim aFile As String
      Dim sMsg As String
      aFile = "~/data.txt"
      iNumber = Freefile
      Open aFile For Output As #iNumber
      Print #iNumber, "This is a line of text"
      Print #iNumber, "This is another line of text"
      Close #iNumber
      iNumber = Freefile
      Open aFile For Input As iNumber
      While Not eof(iNumber)
          Line Input #iNumber, sLine
          If sLine <>"" Then
              sMsg = sMsg & sLine & chr(13)
          End If
      Wend
      Close #iNumber
      MsgBox sMsg
  End Sub
  

ຫາກຄຳສັ່ງ Open ພະຍາຍາມເປີດໄຟລ໌ທີ່ຜູ້ໃຊ້ປັດຈຸບັນບໍ່ມີສິດອ່ານ/ຂຽນ, ຈະເກີດຂໍ້ຜິດພາດ I/O ຂຶ້ນ.