Office
Logi sisse

Funktsioon Loc

Märkus.: Soovime pakkuda teie keeles kõige ajakohasemat spikrisisu niipea kui võimalik. See leht on tõlgitud automaatselt ja sellel võib leiduda grammatikavigu või ebatäpsusi. Tahame, et sellest sisust oleks teile abi. Palun märkige selle lehe allservas, kas sellest teabest oli teile kasu või mitte. Soovi korral saab ingliskeelset artiklit lugeda siit.

Märkus.: Kui Microsoft Jet Expression Service töötab liivakastirežiimis, mis takistab potentsiaalselt ebaturvaliste avaldiste väärtustamist, on käesolevas artiklis kirjeldatud funktsioon, meetod, objekt või atribuut keelatud. Liivakastirežiimi kohta lisateabe saamiseks otsige spikrist sõna „liivakastirežiim”.

Tagastab pikk, mis määrab selle asukoha lugemis-ja kirjutamisõigusega avatud faili.

Süntaks

Loc ( filenumber )

Nõutav filenumberargument on mis tahes kehtiv täisarv failinumber.

Märkused

Järgnevalt iga faili juurdepääsu režiimi tagastatav väärtus:

Režiim

Tagastusväärtus

Juhuslik

Viimase kirje lugeda või kirjutada faili arv.

Järjestikune

Praeguse bait 128 jagatud faili asukoht. Siiski teave tagastatud Loc järjestikku failide jaoks on kasutatud ega nõutav.

Kahendandmed

Asukoht viimase bait lugeda või kirjutada.


Näide

Märkus.: Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.

Selles näites kasutatakse funktsiooni Loc selle asukoha lugemis-ja kirjutamisõigusega avatud faili tagastamiseks. Selles näites eeldab, et TESTFILE on paar rida Näidisandmete tekstifail.

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.
Täiendage Office'i kasutamise oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×