Line Input# Statement

Nagbabasa ng isang linya mula sa isang sequential na file patungo sa isang variable.

Syntax:

Line Input Statement diagram


Line Input #fileNum, variable

Mga Parameter:

fileNum : Bilang ng file na naglalaman ng data na gusto mong basahin. Dapat ay nabuksan nang maaga ang file gamit ang Open statement gamit ang key word na INPUT.

variable : Ang pangalan ng variable na nag-iimbak ng resulta.

Gamit ang Line Input# pahayag, maaari mong basahin ang mga string mula sa isang bukas na file patungo sa isang variable. Binabasa ang mga variable ng string ng linya-by-line hanggang sa unang carriage return (Asc=13) o linefeed (Asc=10). Ang mga marka ng pagtatapos ng linya ay hindi kasama sa resultang string.

Halimbawa:


  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

Buksan ang Pahayag

Print# Statement

Sumulat ng # Pahayag