Funkcja Seek

Ważne : Ten artykuł został przetłumaczony maszynowo, zobacz zastrzeżenie. Angielskojęzyczną wersję tego artykułu można znaleźć tutaj .

Uwaga : Funkcja, metody, obiektu lub właściwości opisane w tym temacie jest wyłączona, jeśli usługa wyrażeń programu Microsoft Jet działa w trybie piaskownicy, co uniemożliwia oceny potencjalnie niebezpieczne wyrażenia. Aby uzyskać więcej informacji na temat trybu piaskownicy wyszukaj ciąg "tryb piaskownicy" w Pomocy.

Zwraca wartość typu Liczba długa określającą bieżącą pozycję odczytu/zapisu w pliku otwartym za pomocą instrukcji Open .

Składnia

Wyszukiwania ( numer_pliku )

Wymagane numer_plikuargument jest liczbą całkowitą, zawierające prawidłowe numer pliku.

Spostrzeżenia

Wyszukiwanie zwraca wartość od 1 do 2 147 483 647 (równoważna 2 ^ 31 – 1) włącznie.

Poniżej opisano wartości zwracane w przypadku każdego trybu dostępu do pliku.

Tryb

Wartość zwracana

Przypadkowe

Numer następnego rekordu odczytu lub zapisu

Binarny,
wynik
Dołączanie,
danych wejściowych

Pozycja bajtu, w którym odbywa się następnej operacji. Pierwszy bajt w pliku jest na pozycji 1, drugi bajt znajduje się na pozycji 2 i tak dalej.


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 wyszukiwania Zwraca bieżące położenie pliku. W przykładzie założono, że TESTFILE znajduje się plik zawierający rekordy typ danych zdefiniowany przez użytkownika Record.

Type Record    ' Define user-defined type.
ID As Integer
Name As String * 20
End Type

W przypadku plików otwartych w trybie losowo wyszukiwania zwraca liczbę następnego rekordu.

Dim MyRecord As Record    ' Declare variable.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Do While Not EOF(1) ' Loop until end of file.
Get #1, , MyRecord ' Read next record.
' Print record number to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.

W przypadku plików otwartych w trybach innych niż tryb losowo wyszukiwania zwraca Pozycja bajtu, w którym odbywa się następnej operacji. Załóżmy, że TESTFILE to plik zawierający kilka wierszy tekstu.

Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file for reading.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Read next character of data.
' Print byte position to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.

Uwaga : Zrzeczenie dotyczące tłumaczenia maszynowego: Ten artykuł został przetłumaczony przez system komputerowy bez interwencji człowieka. Firma Microsoft udostępnia te tłumaczenia maszynowe, aby ułatwić użytkownikom, którzy nie znają języka angielskiego, korzystanie z zawartości dotyczącej produktów, usług i technologii firmy Microsoft. Ponieważ ten artykuł został przetłumaczony maszynowo, może zawierać błędy w słownictwie, składniowe lub gramatyczne.

Rozwijaj swoje umiejętności
Poznaj szkolenia
Uzyskuj nowe funkcje w pierwszej kolejności
Dołącz do niejawnych testerów pakietu Office

Czy te informacje były pomocne?

Dziękujemy za opinię!

Dziękujemy za opinię! Wygląda na to, że połączenie Cię z jednym z naszych agentów pomocy technicznej pakietu Office może być pomocne.

×