Line Input# Statement

Reads a line from a sequential file into a variable.

Sintaxi:

Diagrama d'estats d'entrada de línia


Line Input #fileNum, variable

Paràmetres :

fileNum Nombre del fitxer que conté les dades que voleu llegir. El fitxer s'ha d'haver obert per avant amb l'expressió Open utilitzant la paraula clau INPUT.

variable: The name of the variable that stores the result.

Amb l'expressió Line Input#, podeu llegir cadenes d'un fitxer obert en una variable. Les variables de cadena es lligen línia a línia fins al primer salt de carro (Asc=13) o línia nova (Asc=10). Les marques de final de línia no s'inclouen a la cadena resultant.

Exemple :


  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, "Això és una línia de text"
      Print #iNumber, "Això és una altra línia de 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

Expressió

Print# Expressió

Expressió Write#