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( Zahl, [# ] Dateinummer)
Die Syntax der Funktion Input weist die folgenden Argumente auf:
|
Argument |
Beschreibung |
|
Zahl |
Erforderlich. Ein beliebiger gültiger Numerischer Ausdruck, der die Anzahl der zurückzugebenden Zeichen angibt. |
|
Dateinummer |
Erforderlich. 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 Zahl die Anzahl der zurückzugebenden Bytes anstelle der Anzahl der zurückzugebenden Zeichen an.
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. Dabei wird vorausgesetzt, dass TESTFILE eine Textdatei mit ein paar Zeilen Beispieldaten ist.
Dim MyCharOpen "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.LoopClose #1 ' Close file.
