Inhalte
Index 🔎︎

# Anweisung Line Input#

Liest eine Zeile aus einer sequentiellen Datei in eine Variable.

### Syntax:

    Line Input #fileNum, variable

### Parameter:

fileNum: Nummer der Datei, welche die zu lesenden Daten enthält. Die Datei muss zuvor mit der Anweisung Open mit dem Schlüsselwort INPUT geöffnet worden sein.

variable: Der Name der Variablen, die das Ergebnis speichert.

Mit Hilfe der Anweisung Line Input# können Sie Zeichenketten aus einer geöffneten Datei in eine Variable einlesen. String-Variablen werden bis zum ersten Carriage-Return (Asc = 13) oder Line Feed (Asc = 10), also zeilenweise gelesen, wobei die Zeilenendenmarken selbst nicht mit in die Zeichenkette übernommen werden.

### Beispiel:

      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, "Das ist eine Zeile Text"
          Print #iNumber, "Das ist eine weitere Zeile 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, "Das ist eine Zeile Text"
          Print #iNumber, "Das ist eine weitere Zeile 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

Verwandte Themen

Anweisung Open

Anweisung Print#

Anweisung Write#