Hinweis
Die in diesem Thema beschriebene Funktion, Methode, Objekt oder Eigenschaft ist deaktiviert, wenn der Microsoft Jet-Ausdrucksdienst im Sandboxmodus ausgeführt wird, der die Auswertung potenziell unsicherer Ausdrücke verhindert. Weitere Informationen zum Sandboxmodus finden Sie, wenn Sie in der Hilfe nach "Sandboxmodus" suchen.
Gibt eine Zeichenfolge zurück, die Zeichen aus einer im Modus Input oder Binary geöffneten Datei enthält.
Syntax
Input(number, [# ] filenumber)
Die Syntax der Funktion Input weist die folgenden Argumente auf:
| Argument | Beschreibung |
|---|---|
| Zahl | Erforderlich. Ein gültiger numerischer Ausdruck, der die Anzahl der zurückzugebenden Zeichen angibt. |
| Dateinummer | Erforderlich. Eine beliebige gültige Dateinummer. |
Hinweise
Mit der Input-Funktion gelesene Daten werden in der Regel mit Print # oder Put in eine Datei geschrieben. Verwenden Sie diese Funktion nur für im Input- oder Binary-Modus geöffnete Dateien.
Im Gegensatz zur Anweisung Input # gibt die Input-Funktion alle gelesenen Zeichen zurück, einschließlich Kommas, Wagenrücklaufzeichen, Zeilenvorschubzeichen, Anführungszeichen und führende Leerzeichen.
Bei Dateien, die für binären Zugriff geöffnet wurden, wird beim Versuch, die Datei mit der Input-Funktion zu lesen, bis EOF den Wert True zurückgibt, ein Fehler generiert. Verwenden Sie beim Lesen von Binärdateien mit Input die Funktionen LOF und Loc anstelle von EOF, oder verwenden Sie Get mit der EOF-Funktion.
Hinweis
Verwenden Sie die InputB-Funktion für Bytedaten innerhalb von Textdateien. Bei InputB gibt number die Anzahl der zurückzugebenden Bytes an und nicht die Anzahl der zurückzugebenden Zeichen.
Beispiel
Hinweis
Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic for Applications). Wenn Sie weitere Informationen zum Arbeiten mit VBA wünschen, wählen Sie Entwicklerreferenz in der Dropdownliste neben Suchen aus, und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.
In diesem Beispiel wird die Funktion Input verwendet, um Zeichen einzeln aus einer Datei zu lesen und im Direktfenster auszugeben. In diesem Beispiel wird davon ausgegangen, dass TESTFILE es sich um eine Textdatei mit einigen Zeilen 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.