Wie verwende ich die Line Input #-Anweisung in VBA?

Die `Line Input #`-Anweisung in VBA (Visual Basic for Applications) wird verwendet, um eine vollständige Zeile aus einer Textdatei einzulesen. Diese Anweisung liest die Zeile bis zum Zeilenendezeichen, schließt aber das Zeilenendezeichen selbst nicht ein. Hier ist ein grundlegendes Beispiel, wie du die `Line Input #`-Anweisung verwenden kannst:

Datei öffnen: Zuerst musst du die Datei öffnen, aus der du lesen möchtest. Dies erfolgt mit der `Open`-Anweisung.
Zeilenweise Lesen: Verwende die `Line Input #`-Anweisung, um einzelne Zeilen in eine Variable einzulesen.
Datei schließen: Nachdem du alle benötigten Daten eingelesen hast, solltest du die Datei mit der `Close`-Anweisung schließen.

Hier ist ein Beispielskript, das diese Schritte demonstriert:

Sub ReadFileLineByLine()
    Dim filePath As String
    Dim fileNumber As Integer
    Dim textLine As String
    
    ' Pfad zur Textdatei
    filePath = "C:PfadzurDatei.txt"
    
    ' Dateinummer zuweisen
    fileNumber = FreeFile
    
    ' Datei öffnen im Lesemodus
    Open filePath For Input As #fileNumber
    
    ' Zeilenweise Lesen der Datei
    Do While Not EOF(fileNumber)
        Line Input #fileNumber, textLine
        ' Verarbeitung der eingelesenen Zeile
        Debug.Print textLine
    Loop
    
    ' Datei schließen
    Close #fileNumber
End Sub

Erläuterungen:

`filePath`: Enthält den vollständigen Pfad zur Textdatei, die du lesen möchtest. Diesen musst du entsprechend anpassen.
`FreeFile`: Gibt eine freie Dateinummer zurück, die zum Öffnen der Datei verwendet werden kann.
`Open … For Input As #fileNumber`: Öffnet die Datei im Lesemodus.
`Do While Not EOF(fileNumber)`: Schleife, die bis zum Ende der Datei (`EOF`) läuft.
`Line Input #fileNumber, textLine`: Liest eine Zeile aus der Datei und speichert sie in der Variable `textLine`.
`Debug.Print textLine`: Gibt die eingelesene Zeile im Direktfenster aus (wird in der Regel für Debugging-Zwecke verwendet).
`Close #fileNumber`: Schließt die geöffnete Datei.

Stelle sicher, dass der Dateipfad gültig ist und das Makro die Berechtigung hat, die Datei zu lesen. Wenn du mit größeren Dateien oder speziellen Zeichencodierungen arbeitest, könnten zusätzliche Anpassungen notwendig sein.

facebooklinkedin