Line Input #-AnweisungLine Input # statement

Liest eine einzelne Zeile aus einer geöffneten sequenziellen Datei und weist sie einer String-Variablen zu.Reads a single line from an open sequential file and assigns it to a String variable.

SyntaxSyntax

Line Input #filenumber, varnameLine Input #filenumber, varname


Die Syntax der Line Input #-Anweisung besteht aus folgenden Teilen:The Line Input # statement syntax has these parts:

TeilPart BeschreibungDescription
filenumberfilenumber Erforderlich.Required. Eine gültige Dateinummer.Any valid file number.
varnamevarname Erforderlich.Required. Gültiger Variablenname vom Typ Variant oder String.Valid Variant or String variable name.

HinweiseRemarks

Mit Line Input # gelesene Daten werden in der Regel mit Print # aus einer Datei geschrieben.Data read with Line Input # is usually written from a file with Print #.

Die Line Input #-Anweisung liest eine Datei Zeichen für Zeichen bis zu einem Wagenrücklauf (Chr(13)) oder einer Wagenrücklauf/Zeilenvorschub-Sequenz (Chr(13) + Chr(10)).The Line Input # statement reads from a file one character at a time until it encounters a carriage return (Chr(13)) or carriage return-linefeed (Chr(13) + Chr(10)) sequence. Wagenrücklauf/Zeilenvorschub-Sequenzen werden nicht an die Zeichenfolge angefügt, sondern übersprungen.Carriage return-linefeed sequences are skipped rather than appended to the character string.

BeispielExample

In diesem Beispiel wird die Line Input #-Anweisung verwendet, um eine Zeile aus einer sequenziellen Datei zu lesen und einer Variablen zuzuweisen.This example uses the Line Input # statement to read a line from a sequential file and assign it to a variable. Es wird davon ausgegangen, dass es sich bei TESTFILE um eine Textdatei mit einigen Zeilen von Beispieldaten handelt.This example assumes that TESTFILE is a text file with a few lines of sample data.

Dim TextLine 
Open "TESTFILE" For Input As #1 ' Open file. 
Do While Not EOF(1) ' Loop until end of file. 
 Line Input #1, TextLine ' Read line into variable. 
 Debug.Print TextLine ' Print to the Immediate window. 
Loop 
Close #1 ' Close file. 

Siehe auchSee also

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.