Funkcia Loc

Dôležité: Tento článok je strojovo preložený, prečítajte si vyhlásenie. Anglickú verziu tohto článku nájdete tu a môžete ju použiť ako referenciu.

Poznámka: Funkcia, metóda, objekt alebo vlastnosť popísaná v tejto téme je vypnutá, ak je služba Microsoft Jet Expression Service spustená v režime karanténneho skriptu, ktorý bráni vo vyhodnotení potenciálne nebezpečných výrazov. Ďalšie informácie o režime karanténneho skriptu získate po vyhľadaní výrazu „režim karanténneho skriptu“ v Pomocníkovi.

Vráti hodnotu typu Long, ktorá určuje aktuálnu pozíciu čítanie a zápis v rámci otvoreného súboru.

Syntax

Loc( filenumber )

Vyžaduje filenumberargument je žiadne platné celé číslo číslo súboru.

Poznámky

Vrátené hodnoty pre jednotlivé režimy prístupu k súboru sú popísané v nasledujúcej tabuľke.

Režim

Vrátená hodnota

Random

Číslo posledného záznamu prečítaného zo súboru alebo zapísaného do súboru.

Sequential

Aktuálna pozícia v bajtoch v súbore delená číslom 128. Informácie vrátené funkciou Loc pre za sebou nasledujúce súbory sa však ani nepoužívajú, ani nepožadujú.

Binary

Pozícia posledného prečítaného alebo zapísaného bajtu.


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 sa funkcia Loc používa na vrátenie aktuálnej pozície na čítanie alebo zápis v otvorenom súbore. V tomto príklade sa vychádza z predpokladu, že súbor TESTFILE je 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.

Poznámka: Vyhlásenie týkajúce sa strojového prekladu: Tento článok bol preložený počítačovým systémom bez zásahu človeka. Poskytovaním týchto strojových prekladov umožňuje spoločnosť Microsoft aj používateľom, ktorí nehovoria po anglicky, využívať obsah o produktoch, službách a technológiách spoločnosti Microsoft. Článok bol preložený strojovo, môže preto obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky.

Rozšírte svoje zručnosti práce s balíkom Office
Preskúmať školenie
Buďte medzi prvými, ktorí získajú nové funkcie
Pridajte sa k insiderom pre Office

Boli tieto informácie užitočné?

Ďakujeme za vaše pripomienky!

Ďakujeme vám za pripomienky. Pravdepodobne vám pomôže, ak vás spojíme s pracovníkom podpory pre Office.

×