Eingabefunktion
Hinweis: Die in diesem Thema beschriebenen Funktionen, Methoden, Objekte oder Eigenschaften sind deaktiviert, wenn der Microsoft Jet-Ausdrucksdienst im Sandkastenmodus ausgeführt wird, wodurch die Auswertung potenziell unsicherer Ausdrücke verhindert wird. Um weitere Informationen zum Sandbox-Modus zu erhalten, suchen Sie in der Hilfe nach „Sandbox-Modus".
Gibt eine Zeichenfolge zurück, die Zeichen aus einer im Eingabe- oder Binärmodus geöffneten Datei enthält.
Syntax
Input( Zahl, [ # ] Dateinummer )
Die Syntax der Input- Funktion hat die folgenden Argumente:
Streit | Beschreibung |
Nummer | Erforderlich. Jeder gültige numerische Ausdruck, der die Anzahl der zurückzugebenden Zeichen angibt. |
Dateinummer | Erforderlich. Jede gültige Dateinummer. |
Bemerkungen
Daten, die mit der Input -Funktion gelesen werden, werden normalerweise mit Print # oder Put in eine Datei geschrieben. Verwenden Sie diese Funktion nur mit Dateien, die im Eingabe- oder Binärmodus geöffnet wurden.
Im Gegensatz zur Input # -Anweisung gibt die Input- Funktion alle gelesenen Zeichen zurück, einschließlich Kommas, Wagenrückläufe, Zeilenvorschübe, Anführungszeichen und führende Leerzeichen.
Bei Dateien, die für den binären Zugriff geöffnet sind, erzeugt ein Versuch, die Datei mit der Input -Funktion zu lesen, bis EOF True zurückgibt, einen Fehler. Verwenden Sie die LOF- und Loc -Funktionen anstelle von EOF , wenn Sie Binärdateien mit Input lesen, oder verwenden Sie Get , wenn Sie die EOF- Funktion verwenden.
Hinweis: Verwenden Sie die InputB- Funktion für Bytedaten, die in Textdateien enthalten sind. Bei InputB gibt Zahl die Anzahl der zurückzugebenden Bytes und nicht die Anzahl der zurückzugebenden Zeichen an.
Beispiel
Hinweis: Die folgenden Beispiele veranschaulichen die Verwendung dieser Funktion in einem Visual Basic for Applications (VBA)-Modul. Um weitere Informationen zum Arbeiten mit VBA zu erhalten, wählen Sie Entwicklerreferenz in der Dropdown-Liste neben Suchen aus und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.
In diesem Beispiel wird die Input -Funktion verwendet, um jeweils ein Zeichen aus einer Datei zu lesen und im Direktfenster auszugeben. Dieses Beispiel geht davon aus, dass TESTFILE eine Textdatei mit einigen Zeilen Beispieldaten ist.
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.
No comments:
Post a Comment