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 izolovaného prostoru (sandbox), který znemožňuje vyhodnocení potenciálně nebezpečných výrazů. Další informace o režimu izolovaného prostoru vyhledáte zadáním dotazu "režim izolovaného prostoru" v nápovědě.
Vrátí hodnotu Long určující aktuální pozici čtení/zápisu v otevřeném souboru.
Syntaxe
Loc(číslo_souboru)
Požadovaný argument filenumberje libovolné platné celé číslo souboru.
Poznámky
Následující text popisuje návratovou hodnotu pro každý režim přístupu k souborům:
| Režim | 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 bajtů v souboru dělená 128. Informace vrácené funkcí Loc pro sekvenční soubory se však nepoužívají ani nevyžadují. |
| Binární | Pozice posledního přečteného nebo zapsaného bajtu. |
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 čtení a zápisu v otevřeném souboru. V tomto příkladu se předpokládá, že TESTFILE jde o 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.