Buksan ang Pahayag

Nagbubukas ng channel ng data.

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

pathname: Path at pangalan ng file na bubuksan. Kung susubukan mong basahin ang isang file na hindi umiiral (Access = Read), may lalabas na mensahe ng error. Kung susubukan mong magsulat sa isang file na hindi umiiral (Access = Sumulat), isang bagong file ay nilikha.

mode: Keyword na tumutukoy sa file mode. Mga wastong halaga: Idugtong (idagdag sa sequential file), Binary (Maaaring ma-access ang data ng mga byte gamit ang Get and Put), Input (magbubukas ng channel ng data para sa pagbabasa), Output (magbubukas ng channel ng data para sa pagsulat), at Random (nag-edit ng mga kamag-anak na file).

io: Keyword na tumutukoy sa uri ng pag-access. Mga wastong halaga: Basahin (read-only), Sumulat (write-only), Basahin ang Isulat (pareho).

pagla-lock: Keyword na tumutukoy sa katayuan ng seguridad ng isang file pagkatapos buksan. Mga wastong halaga: Ibinahagi (Ang file ay maaaring mabuksan ng iba pang mga application), I-lock ang Basahin (ang file ay protektado laban sa pagbabasa), I-lock ang Isulat (ang file ay protektado laban sa pagsusulat), I-lock Basahin Sumulat (tinatanggi ang pag-access ng file).

filenum: Anumang integer na expression mula 0 hanggang 511 upang ipahiwatig ang bilang ng isang libreng channel ng data. Pagkatapos ay maaari mong ipasa ang mga utos sa pamamagitan ng data channel upang ma-access ang file. Ang file number ay dapat matukoy ng FreeFile function kaagad bago ang Open statement.

recLen: Para sa Random i-access ang mga file, itakda ang haba ng mga talaan.

Maaari mo lamang baguhin ang mga nilalaman ng isang file na binuksan gamit ang Open statement. Kung susubukan mong buksan ang isang file na nakabukas na, may lalabas na mensahe ng error.

  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
      I-print ang #iNumber, "Ito ay isang linya ng teksto"
      I-print ang #iNumber, "Isa itong linya ng 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
      I-print ang #iNumber, "Ito ay isang linya ng teksto"
      I-print ang #iNumber, "Isa itong linya ng 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
  

Kung ang Bukas Ang pahayag ay sumusubok na magbukas ng isang file kung saan ang kasalukuyang gumagamit ay walang mga pahintulot sa pagbasa/pagsusulat, ang isang I/O error ay itataas.