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, ktorá určuje aktuálnu pozíciu čítania alebo zapisovania v otvorenom súbore.
Syntax
Loc(číslo súboru)
Povinný argument číslo súboruje ľubovoľné platné číslo celočíselného súboru.
Poznámky:
V nasledujúcej časti nájdete popis vrátenej hodnoty 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 zo súboru alebo zapísaného do súboru. |
| Sekvenčné | Aktuálna bajtová pozícia v súbore vydelená hodnotou 128. Informácie, ktoré funkcia Loc vráti pre sekvenčné súbory, sa však nepoužívajú ani nevyžadujú. |
| Binárny súbor | Pozícia posledného bajtu čítaného alebo zapí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 čítania alebo zapisovania v rámci otvoreného súboru. 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.