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