Freigeben über


Input-Funktion

Gibt einen String-Wert zurück, der Zeichen aus einer im Modus Input oder Binary geöffneten Datei enthält.

Syntax

Input(number, [ # ]filenumber)

Die Syntax der Input-Funktion besteht aus folgenden Teilen:

Bestandteil Beschreibung
number Erforderlich. Ein gültiger numerischer Ausdruck, der die Anzahl der zurückzugebenden Zeichen angibt.
filenumber Erforderlich. Eine gültige Dateinummer.

Rückgabewert

String

Hinweise

Mit der Eingabefunktion gelesene Daten werden in der Regel mit Print # oder Put in eine Datei geschrieben. Verwenden Sie diese Funktion nur bei Dateien, die im Modus Input oder Binary geöffnet sind.

Im Gegensatz zur Input # -Anweisung gibt die Input-Funktion alle gelesenen Zeichen zurück, einschließlich Kommas, Wagenrückläufe, Zeilenvorschub, Anführungszeichen und führende Leerzeichen.

Wenn Dateien für den Binärzugriff geöffnet wurden, generiert ein Versuch, die Datei mithilfe der Eingabefunktion zu lesen, bis EOFTrue zurückgibt, einen Fehler. Verwenden Sie die Funktionen LOF und Loc anstelle von EOF beim Lesen von Binärdateien mit Input, oder verwenden Sie Get , wenn Sie die EOF-Funktion verwenden.

Hinweis

Verwenden Sie die InputB-Funktion für Byte-Daten in Textdateien. Bei InputB gibt Anzahl die Anzahl der Bytes an, die zurückgegeben werden sollen, und nicht die Anzahl der Zeichen.

Beispiel

This example uses the Input function to read one character at a time from a file and print it to the Immediate window. Es wird davon ausgegangen, dass es sich bei TESTFILE um eine Textdatei mit einigen Zeilen von Beispieldaten handelt.

Dim MyChar
Open "TESTFILE" For Input As #1    ' Open file.
Do While Not EOF(1)    ' Loop until end of file.
    MyChar = Input(1, #1)    ' Get one character.
    Debug.Print MyChar    ' Print to the Immediate window.
Loop
Close #1    ' Close file.

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.