Uwaga
Funkcja, metoda, obiekt lub właściwość opisana w tym temacie jest wyłączona, jeśli usługa wyrażeń Microsoft Jet działa w trybie piaskownicy, co uniemożliwia oszacowanie potencjalnie niebezpiecznych wyrażeń. Aby uzyskać więcej informacji na temat trybu piaskownicy, wyszukaj "tryb piaskownicy" w Pomocy.
Zwraca ciąg zawierający znaki z pliku otwartego w trybie wprowadzania lub w trybie binarnym .
Składnia
Input(number, [# ] filenumber)
W składni funkcji wprowadzania występują następujące argumenty:
| Argument | Opis |
|---|---|
| number | Argument wymagany. Dowolne prawidłowe wyrażenie liczbowe określające liczbę zwracanych znaków. |
| numer pliku | Argument wymagany. Dowolny prawidłowy numer pliku. |
Uwagi
Dane odczytane za pomocą funkcji Wprowadzania są zwykle zapisywane w pliku za pomocą opcji Drukuj # lub Put. Tej funkcji należy używać tylko w przypadku plików otwartych w trybie wprowadzania danych lub w trybie binarnym .
W przeciwieństwie do instrukcji Input # funkcja Wejście zwraca wszystkie odczytywane znaki, w tym przecinki, znaki powrotu karetki, kanały wierszy, cudzysłowy i spacje wiodące.
Po otwarciu plików w celu uzyskania dostępu binarnego próba odczytu pliku przy użyciu funkcji wprowadzania do momentu zwrócenia przez EOF wartości Prawda spowoduje wygenerowanie błędu. Używaj funkcji LOF i Loc zamiast EOF podczas czytania plików binarnych za pomocą danych wejściowych lub używaj funkcji Get podczas korzystania z funkcji EOF .
Uwaga
Funkcja InputB służy do danych bajtowych zawartych w plikach tekstowych. W przypadku funkcji InputBliczba określa liczbę bajtów, które mają zostać zwrócone, a nie liczbę zwracanych znaków.
Przykład
Uwaga
Poniższe przykłady przedstawiają sposób użycia tej funkcji w module języka Visual Basic for Applications (VBA). Aby uzyskać dodatkowe informacje na temat pracy w języku VBA, wybierz pozycję Dokumentacja dewelopera z listy rozwijanej obok przycisku Wyszukaj i wprowadź odpowiednie terminy w polu wyszukiwania.
W tym przykładzie użyto funkcji Wprowadzania do odczytywania pojedynczego znaku z pliku i drukowania go w oknie bezpośrednim . W tym przykładzie założono, że jest to TESTFILE plik tekstowy zawierający kilka wierszy przykładowych danych.
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.