Poznámka: Funkce, metoda, objekt nebo vlastnost popsaná v tomto tématu jsou zakázány, pokud je služba Microsoft Jet Expression Service spuštěna v režimu sandboxu, což brání vyhodnocení potenciálně nebezpečných výrazů. Další informace o režimu sandboxu najdete v nápovědě pro "režim sandboxu".

Vrátí hodnotu typu Long určující aktuální pozici pro čtení a zápis v souboru otevřeném pomocí příkazu Open .

Syntaxe

Seek( filenumber )

Požadované číslo souboruArgument je celé číslo obsahující platné Číslo souboru.

Poznámky

Funkce Hledání vrátí hodnotu mezi 1 a 2 147 483 647 (ekvivalentem 2^31 –1), včetně.

Následující popis popisuje návratové hodnoty pro každý režim přístupu k souborům.

Modus

Vrácená hodnota

Náhodné

Číslo dalšího přečteného nebo zapsaného záznamu

binární,výstup,připojení,vstup

Bajtová pozice, na které se provede další operace. První bajt v souboru je na pozici 1, druhý bajt je na pozici 2 atd.

Příklad

Poznámka: Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.

Tento příklad používá funkci Seek k vrácení aktuální pozice souboru. Příklad předpokládá TESTFILE je soubor obsahující záznamy uživatelem definovaného typu Record.

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

U souborů otevřených v náhodném režimu vrátí funkce Hledání počet dalších záznamů.

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)    LoopClose #1    ' Close file.

U souborů otevřených v jiných režimech než v náhodném režimu vrátí funkce Seek pozici bajtu, na které se provede další operace. Předpokládejme TESTFILE je soubor obsahující několik řádků textu.

Dim MyCharOpen "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) LoopClose #1    ' Close file.

Potřebujete další pomoc?

Chcete další možnosti?

Prozkoumejte výhody předplatného, projděte si školicí kurzy, zjistěte, jak zabezpečit své zařízení a mnohem více.

Komunity vám pomohou klást otázky a odpovídat na ně, poskytovat zpětnou vazbu a vyslechnout odborníky s bohatými znalostmi.