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 wartość typu Liczba długa określającą bieżącą pozycję odczytu/zapisu w otwartym pliku.
Składnia
Loc( numer pliku )
Wymaganyargumenttypu filenumber to dowolny prawidłowy numer pliku całkowity.
Uwagi
Poniżej opisano zwracane wartości dla każdego trybu dostępu do pliku:
Tryb |
Wartość zwracana |
Losowe |
Numer ostatniego rekordu odczytanego z pliku lub zapisanego w pliku. |
Sekwencyjnego |
Bieżąca pozycja bajtu w pliku podzielona przez 128. Jednak informacje zwracane przez Loc dla kolejnych plików nie są używane ani wymagane. |
Binarny |
Pozycja ostatniego bajtu odczytanego lub napisanego bajtu. |
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 Loc zwraca bieżącą pozycję odczytu/zapisu w otwartym pliku. W tym przykładzie założono, że TESTFILE jest plikiem tekstowym zawierającym kilka wierszy przykładowych danych.
Dim MyLocation, MyLine
' Open file just created. Open "TESTFILE" For Binary As #1 ' Loop until end of file. Do While MyLocation < LOF(1) ' Read character into variable. MyLine = MyLine & Input(1, #1) ' Get current position within file. MyLocation = Loc(1) ' Print to the Immediate window. Debug.Print MyLine; Tab; MyLocation Loop Close #1 ' Close file.