Uwaga
Funkcja, metoda, obiekt lub właściwość opisane w tym temacie są wyłączone, jeśli usługa wyrażeń Microsoft Jet działa w trybie piaskownicy, co uniemożliwia ocenę potencjalnie niebezpiecznych wyrażeń. Aby uzyskać więcej informacji o trybie piaskownicy, wyszukaj termin "tryb piaskownicy" w Pomocy.
Zwraca ciąg zawierający znaki z pliku otwartego w trybie danych wejściowych lub binarnym .
Składnia
Input(number, [# ] numer_pliku)
W składni funkcji Wejście występują następujące argumenty:
| Argumenty argumentów | 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 odczytywane za pomocą funkcji Input są zwykle zapisywane do pliku za pomocą polecenia Print # lub Put. Tej funkcji należy używać tylko w przypadku plików otwartych w trybie wejściowym lub binarnym .
W przeciwieństwie do instrukcji Input # funkcja Input zwraca wszystkie odczytywane znaki, w tym przecinki, znaki powrotu karetki, wysuwu wiersza, cudzysłowy i spacje wiodące.
W przypadku plików otwartych w celu uzyskania dostępu binarnego próba odczytania pliku przy użyciu funkcji Input do momentu, aż funkcja EOF zwróci wartość True , spowoduje wygenerowanie błędu. Użyj funkcji LOF i Loc zamiast funkcji EOF podczas odczytywania plików binarnych za pomocą danych wejściowych lub funkcji Get podczas korzystania z funkcji EOF .
Uwaga
Funkcji InputB należy używać do obsługi danych bajtowych zawartych w plikach tekstowych. W przypadku funkcji InputB, argument liczba określa liczbę bajtów do zwrócenia, a nie liczbę znaków do zwrócenia.
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 funkcja Input służy do odczytywania po jednym znaku z pliku i drukowania go do okna bezpośredniego . W tym przykładzie założono, że TESTFILE jest to plik tekstowy z kilkoma wierszami danych przykładowych.
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.