Office
Přihlásit se

Funkce Loc

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

Syntaxe

Loc ( číslo_souboru )

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

Poznámky

V následujícím textu najdete vrácenou hodnotu pro jednotlivé režimy přístupu k souboru:

Režim:

Vrácená hodnota

Náhodné

Počet poslední záznam číst nebo zápisu do souboru.

Sekvenční

Aktuální pozici bajt v souboru dělenou 128. Však informace vrácené Loc pro sekvenční soubory použít ani povinné.

Binary

Pozice poslední bajt číst nebo zapisovat.


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 Loc se vrátíte na aktuální pozici pro čtení i zápis otevřeného souboru. V tomto příkladu předpokládá, že tento TESTFILE je textový soubor s několika řádky ukázková data.

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.
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.

×