Line Input#-uttrykket

Les ei linje frå ei sekvensiell fil til ein variabel.

Syntaks:

Diagram over uttrykket Line Input


Line Input #fileNum, variable

Parametrar:

FileNum: Nummeret på den fila som inneheld dataa som skal lesast. Fila må vera opna med uttrykket «Open» ved å bruka nøkkelordet INPUT.

variable: Namnet på variabelen som resultatet er lagra i.

Ved hjelp av uttrykket Line Input# kan du lesa strengar frå ei open fil inn i ein variabel. Strengvariablane vert lesne linje for linje fram til det første retur (Asc=13) eller linjeskiftet (Asc=10). Merke for linjeslutt vert ikkje teke med i resultatstrengen.

Eksempel:


  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, "Dette er ei tekstlinje"
      Print #iNumber, "Dette er ei tekstlinje til"
      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, "Dette er ei tekstlinje"
      Print #iNumber, "Dette er ei tekstlinje til"
      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-uttrykket

Print#-uttrykket

Write#-uttrykket