Applies ToAccess dla Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

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 MyCharOpen "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.LoopClose #1    ' Close file.

Potrzebujesz dalszej pomocy?

Chcesz uzyskać więcej opcji?

Poznaj korzyści z subskrypcji, przeglądaj kursy szkoleniowe, dowiedz się, jak zabezpieczyć urządzenie i nie tylko.

Społeczności pomagają zadawać i odpowiadać na pytania, przekazywać opinie i słuchać ekspertów z bogatą wiedzą.