Applies To„Access“, skirta „Microsoft 365“ Access 2021 Access 2019 Access 2016

Pastaba: Šioje temoje aprašyta funkcija, metodas, objektas arba ypatybė yra išjungta, jei "Microsoft Jet Expression Service" veikia smėlio dėžės režimu, kuris neleidžia įvertinti galimai nesaugių reiškinių. Jei reikia daugiau informacijos apie smėlio dėžės režimą, žinyne ieškokite "smėlio dėžės režimas".

Pateikia ilgą skaičių, nurodantį dabartinę skaitymo / rašymo vietą atidarytame faile.

Sintaksė

Loc( failo numeris )

Reikiamas failo numerisargumentas yra bet kuris galiojantis sveikasis skaičius failo numeris.

Pastabos

Toliau aprašoma kiekvieno failo prieigos režimo grąžinama reikšmė:

Moda

Pateikiama reikšmė

Atsitiktinis

Paskutinio įrašo, iš kurio skaitoma arba rašoma į failą, skaičius.

Nuoseklius

Dabartinė baitų padėtis faile, padalyta iš 128. Tačiau Loc pateikta nuoseklių failų informacija nenaudojama ir nėra būtina.

Dvejetainis

Paskutinio baito, perskaityto arba parašyto, padėtis.

Pavyzdys

Pastaba: Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.

Šiame pavyzdyje naudojama funkcija Loc , kad būtų grąžinta dabartinė skaitymo / rašymo padėtis atidarytame faile. Šiame pavyzdyje daroma prielaida, kad TESTFILE yra tekstinis failas su keliomis duomenų pavyzdžio eilutėmis.

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; MyLocationLoopClose #1    ' Close file.

Reikia daugiau pagalbos?

Norite daugiau parinkčių?

Sužinokite apie prenumeratos pranašumus, peržiūrėkite mokymo kursus, sužinokite, kaip apsaugoti savo įrenginį ir kt.

Bendruomenės padeda užduoti klausimus ir į juos atsakyti, pateikti atsiliepimų ir išgirsti iš ekspertų, turinčių daug žinių.