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 rámci otevřeného souboru.

Syntaxe

Loc( číslo souboru )

PovinnýArgumentfilenumber je libovolné platné celé číslo Číslo souboru.

Poznámky

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 posledního záznamu přečteného ze souboru nebo zapsaného do souboru

Sekvenční

Aktuální pozice bajtu v souboru dělená hodnotou 128. Informace, které loc vrací pro sekvenční soubory, se však nepoužívají ani nevyžadují.

Binární

Pozice posledního bajtu přečteného nebo zapsaného.

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.

V tomto příkladu se funkce Loc používá k vrácení aktuální pozice pro čtení a zápis v otevřeném souboru. Tento příklad předpokládá, že TESTFILE je textový soubor s několika řádky ukázkových dat.

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; MyLocationLoopClose #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.