Anweisung Line Input#

Liest eine Zeile aus einer sequentiellen Datei in eine Variable.

Line Input #fileNum, variable

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 Zeichenfolgen aus einer geöffneten Datei in eine Variable einlesen. Zeichenfolgenvariablen werden bis zum ersten Wagenrücklauf (Asc = 13) oder Zeilenvorschub (Asc = 10) also zeilenweise gelesen, wobei die Zeilenendenmarken selbst nicht mit in die Zeichenfolge übernommen werden.

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