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
