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; MyLocation
Loop
Close #1 ' Close file.
