Poznámka
Funkcia, metóda, objekt alebo vlastnosť, ktoré sú popísané v tejto téme, sú vypnuté, ak je služba Microsoft Jet Expression Service spustená v režime karantény, ktorý zabraňuje vo vyhodnocovaní možných nebezpečných výrazov. Ďalšie informácie o režime karantény nájdete vyhľadaním výrazu „režim karantény“ v Pomocníkovi.
Vráti hodnotu typu Long určujúcu aktuálnu pozíciu na čítanie a zapisovanie v otvorenom súbore.
Syntax
Loc(číslo súboru)
Povinný argument číslovania súborovje ľubovoľné platné celé číslo súboru.
Poznámky:
Nasledujúca téma popisuje vrátenú hodnotu pre každý režim prístupu k súboru:
| Režim | Vrátená hodnota |
|---|---|
| Náhodné | Číslo posledného záznamu prečítaného alebo zapísaného do súboru. |
| Sekvenčné | Aktuálna pozícia bajtu v súbore vydelená číslom 128. Informácie vrátené funkciou Loc pre sekvenčné súbory sa však nepoužívajú ani nevyžadujú. |
| Binárne | Umiestnenie posledného bajtu prečítaného alebo napísaného. |
Príklad
Poznámka
Nasledujúce príklady ukazujú použitie tejto funkcie v module jazyka Visual Basic for Applications (VBA). Ak chcete získať ďalšie informácie o práci s jazykom VBA, vyberte z rozbaľovacieho zoznamu vedľa položky Hľadať možnosť Odkaz pre vývojára a do vyhľadávacieho poľa zadajte nejaké výrazy.
V tomto príklade je funkcia Loc použitá na vrátenie aktuálnej pozície na čítanie a zapisovanie v otvorenom súbore. V tomto príklade sa predpokladá, že TESTFILE ide o textový súbor s niekoľkými riadkami vzorových údajov.
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.