Funkcja Input

Uwaga: Funkcja, metoda, obiekt lub właściwość opisana w tym temacie jest wyłączona, jeśli usługa wyrażeń programu Microsoft Jet działa w trybie piaskownicy, co uniemożliwia ocenę 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 wejściowym lub binarnym.

Składnia

Input(liczba;[ # ] liczba_plików)

W składni funkcji Wprowadzania występują następujące argumenty:

Argument

Opis

number

Argument wymagany. Każda prawidłowa wyrażenie numeryczne określająca liczbę zwracanych znaków.

numer_pliku

Argument wymagany. Dowolne prawidłowe numer pliku.


Spostrzeżenia

Dane odczytywane za pomocą funkcji Wprowadzania są zazwyczaj zapisywane w pliku za pomocą funkcji Drukuj # lub Umieść. Tej funkcji należy używać tylko w przypadku plików otwartych w trybie wprowadzania lubw trybie binarnym.

W przeciwieństwie do instrukcji Input #, funkcja Input zwraca wszystkie odczytywane znaki, w tym przecinki, znaki powrotu karetki, kanały 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 Wprowadzania do momentu, aż funkcja EOF zwróci wartość Prawda, zostanie wygenerowany błąd. Używanie funkcji LOF i Loc zamiast funkcji EOF podczas odczytywania plików binarnych za pomocą funkcji Inputlub używanie funkcji Get podczas używania funkcji EOF.

Uwaga:  Użyj funkcji InputB dla danych bajtowych zawartych w plikach tekstowych. W przypadku danych wejściowychB liczba określa liczbę zwracanych bajtów, 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 funkcja Input odczytała jeden znak na raz z pliku i wydrukowała go w oknie bezpośrednim. W tym przykładzie założono, TESTFILE jest plikiem tekstowym 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.

Potrzebna dalsza pomoc?

Rozwijaj umiejętności związane z pakietem Office
Poznaj szkolenia
Uzyskuj nowe funkcje w pierwszej kolejności
Dołącz do niejawnych testerów pakietu Office