Loc funkcija

Pastaba: Norėtume jums kuo greičiau pateikti naujausią žinyno turinį jūsų kalba. Šis puslapis išverstas automatiškai, todėl gali būti gramatikos klaidų ar netikslumų. Mūsų tikslas – padaryti, kad šis turinys būtų jums naudingas. Gal galite šio puslapio apačioje mums pranešti, ar informacija buvo naudinga? Čia yra straipsnis anglų kalba, kuriuo galite pasinaudoti kaip patogia nuoroda.

Pastaba: Funkcija, metodą, objektų ir ypatybių šioje temoje aprašyta yra išjungta, jei Microsoft Jet išraiškų tarnyba veikia smėlio dėžės režimą, kuris trukdo galimai nesaugių reiškinių įvertinti. Daugiau informacijos apie smėlio dėžės režimą, ieškokite "smėlio dėžės režimo" žinyne.

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

Sintaksė

Loc ( failo numeris )

Būtinas failo numerisargumentas yra neleistina sveikojo skaičiaus failo numeris.

Pastabos

Toliau aprašoma reikšmę kiekvieno failo prieigos režimu:

Režimas

Pateikiama reikšmė

Atsitiktinis

Skaičius, paskutinio įrašo skaityti arba įrašyti į failą.

Sekos

Baito padėtis faile, padalintas iš 128. Tačiau informacijos pateikė Loc sekos failų yra naudojamas nei būtina.

Dvejetainis

Paskutinė baitų ar padėtį.


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 pateikti dabartinę skaitymo/rašymo vietą atidarytame faile. Šiame pavyzdyje daroma prielaida, kad TESTFILE yra tekstinio failo kelias eilutes duomenų pavyzdžius.

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.
Tobulinkite savo „Office“ įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×