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
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.

×