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 liczbę całkowitą zawierającą wartość wartość logicznaTrue po osiągnięciu końca pliku otwartego dla danych wejściowychlosowych lub sekwencyjnych.
Składnia
EOF( filenumber )
Wymaganyargumenttypu filenumber to liczba całkowita zawierająca dowolne prawidłowe numer pliku.
Uwagi
Użyj funkcji EOF , aby uniknąć błędu wygenerowanego przez próbę uzyskania danych wejściowych na końcu pliku.
Funkcja EOF zwraca wartość Fałsz do momentu osiągnięcia końca pliku. Gdy pliki są otwierane w celu uzyskania dostępu losowego lub binarnego , funkcja EOF zwraca wartość Fałsz , dopóki ostatnia wykonana instrukcja Get nie będzie w stanie odczytać całego rekordu.
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 . Gdy pliki są otwierane dla danych wyjściowych, funkcja EOF zawsze zwraca wartość Prawda.
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 do wykrycia końca pliku jest używana funkcja EOF . W tym przykładzie założono, że MYFILE jest plikiem tekstowym zawierającym kilka wierszy tekstu.
Dim InputData' Open file for input.Open "MYFILE" For Input As #1' Check for end of file.Do While Not EOF(1) ' Read line of data. Line Input #1, InputData ' Print to the Immediate window. Debug.Print InputData Loop' Close file.Close #1
