Office
Přihlásit se

Funkce Seek

Poznámka: Snažíme se pro vás co nejrychleji zajistit aktuální obsah nápovědy ve vašem jazyce. Tato stránka byla přeložena automaticky a může obsahovat gramatické chyby nebo nepřesnosti. Naším cílem je to, aby pro vás byl její obsah užitečný. Mohli byste nám prosím dát ve spodní části této stránky vědět, jestli vám informace v článku pomohly? Pokud byste se rádi podívali na jeho anglickou verzi, najdete ji tady.

Poznámka: Funkce, metody, objektu nebo vlastnosti popsaných v tomto tématu je vypnutá, když běží služba Microsoft Jet výraz v režimu izolovaného prostoru, který brání hodnocení potenciálně nebezpečných výrazů. Další informace o režimu izolovaného prostoru vyhledejte v nápovědě "režim izolovaného prostoru".

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

Syntaxe

Hledání ( číslo_souboru )

Povinný číslo_souboruArgument je celé obsahující platné Číslo souboru.

Poznámky

Hledání vrátí hodnotu 1 až 2 147 483 647 (ekvivalent 2 ^ 31-1), včetně.

V následujícím textu najdete vrácených hodnotách pro jednotlivé režimy přístupu k souboru.

Režim:

Vrácená hodnota

Náhodné

Počet další záznam číst nebo zapisovat

Binární
výstup
připojení,
zadání vstupních hodnot

Pozice bajtu niž další operace probíhá. První bajt v souboru je v místě 1 je druhý bajt 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 hledání vrátit aktuální umístění souboru. Příklad předpokládá, že je soubor obsahující záznamy uživatelský typ RecordTESTFILE .

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

U souborů otevřených v režimu náhodná řešení vrátí počet dalšího záznamu.

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.

Pro soubory otevřené v jiném než náhodném režimu vrací funkce Seek bajtu niž další operace probíhá. Předpokládejme, že TESTFILE je soubor obsahující několik řádků textu.

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.
Rozšiřte své dovednosti s Office
Projít školení
Získejte nové funkce jako první
Připojte se k účastníkům programu Office Insiders

Byly tyto informace užitečné?

Děkujeme vám za zpětnou vazbu.

Děkujeme vám za váš názor. Vypadá to, že bude užitečné, když vás spojíme s některým z našich agentů z podpory Office.

×