Pastaba
Šioje temoje aprašyta funkcija, metodas, objektas arba ypatybė išjungiama, jei "„Microsoft“ Jet" reiškinių tarnyba veikia smėlio dėžės režimu, kuris neleidžia įvertinti potencialiai nesaugių reiškinių. Daugiau informacijos apie smėlio dėžės režimą ieškokite žinyne "smėlio dėžės režimas".
Pateikia reikšmę Long, nurodančią dabartinę skaitymo/rašymo padėtį atidarytame faile.
Sintaksė
Loc(failo numeris)
Būtinas failo skaičiausargumentas yra bet koks leistinas sveikojo skaičiaus failo numeris.
Pastabos
Toliau aprašoma kiekvieno failų prieigos režimo grąžinama reikšmė:
| Režimas | Pateikiama reikšmė |
|---|---|
| Atsitiktinis | Paskutinio iš failo nuskaityto arba į jį įrašyto įrašo numeris. |
| Seka | Dabartinė baito vieta faile padalyta iš 128. Tačiau Loc pateikta informacija apie nuoseklius failus nėra nei naudojama, nei reikalaujama. |
| Dvejetainis | Paskutinio perskaityto arba įrašyto baito 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 siekiant grąžinti dabartinę skaitymo / rašymo padėtį atidarytame faile. Šiame pavyzdyje daroma prielaida, kad tai TESTFILE tekstinis failas su keliomis eilutėmis pavyzdinių duomenų.
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.