Uwaga
Funkcja, metoda, obiekt lub właściwość opisane w tym temacie są wyłączone, jeśli usługa wyrażeń Microsoft Jet działa w trybie piaskownicy, co uniemożliwia ocenę potencjalnie niebezpiecznych wyrażeń. Aby uzyskać więcej informacji o trybie piaskownicy, wyszukaj termin "tryb piaskownicy" w Pomocy.
Zwraca wartość długą, określającą bieżącą pozycję odczytu/zapisu w otwartym pliku.
Składnia
Loc(numer_pliku)
Wymagany argument numeru plikujest dowolnym prawidłowym numerem pliku typu Integer.
Uwagi
Poniżej opisano wartość zwracaną dla każdego trybu dostępu do pliku:
| Tryb | Wartość zwracana |
|---|---|
| Losowe | Numer ostatniego rekordu odczytanego lub zapisanego w pliku. |
| Sekwencyjne | Bieżąca pozycja bajtu w pliku podzielona przez 128. Jednak informacje zwracane przez funkcję Loc dla kolejnych plików nie są ani używane, ani wymagane. |
| Plik binarny | Pozycja ostatniego odczytanego lub zapisanego 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 to plik tekstowy z kilkoma wierszami danych przykładowych.
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.