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 |
numer |
Argument wymagany. Wszystkie prawidłowe wyrażenie numeryczne określające liczbę zwracanych znaków. |
numer pliku |
Argument wymagany. Wszystkie prawidłowe numer pliku. |
Spostrzeżenia
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 TESTFILE jest plikiem tekstowym zawierającym 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.