Office
Vpis

Funkcija Loc

Opomba: Najnovejšo vsebino pomoči v vašem jeziku vam želimo zagotoviti v najkrajšem možnem času. Ta stran je bila prevedena z avtomatizacijo in lahko vsebuje slovnične napake ali nepravilnosti. Naš namen je, da bi bila vsebina za vas uporabna. Ali nam lahko na dnu te strani sporočite, ali so bile informacije za vas uporabne? Tukaj je angleški članek za preprosto referenco.

Opomba: V tej temi opisana funkcija, metoda, predmet ali lastnost, je onemogočena, če se izvaja storitev Microsoft Jet Expression Service v načinu peskovnika, ki preprečuje vrednotenje morebitno nevarnih izrazov. Za več informacij o načinu peskovnika poiščite »način peskovnika« v pomoči.

Vrne podatkovni tip dolgo navede trenutni položaj branje/pisanje v odprte datoteke.

Sintaksa

Loc ( filenumber )

Zahtevani filenumberargument je kateri koli veljaven celo številka datoteke.

Pripombe

To so opisani vrnjene vrednosti za način dostopa vsake datoteke:

Način

Vrnjena vrednost

Naključno

Število zadnji zapis v datoteko ali prebrana.

Zaporedne

Trenutno bajtno mesto v datoteki, deljeno s 128. Vendar pa informacije, ki jih vrne Loc za zaporedne datoteke je uporabljeno niti zahtevano.

Binarno

Položaj zadnji bajt zapisovanje ali branje.


Primer

Opomba: V spodnjih primerih je prikazana uporaba te funkcije v modulu Visual Basic for Applications (VBA). Če želite več informacij o delu z modulom VBA, izberite Vsebina za razvijalce na spustnem seznamu ob možnosti Iskanje in v iskalno polje vnesite enega ali več izrazov.

V tem primeru funkcija Loc Vrne trenutni položaj branje/pisanje v odprte datoteke. V tem primeru je predvideno, da TESTFILE je besedilna datoteka z nekaj vrstic vzorčne podatke.

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.
Razširite poznavanje Officea
Oglejte si izobraževanje
Prvi dobite nove funkcije
Pridružite se programu Office Insider

Vam je bila informacija v pomoč?

Zahvaljujemo se vam za povratne informacije.

Zahvaljujemo se vam za povratne informacije. Videti je, da bi vam prišla prav pomoč enega od naših Officeovih agentov za podporo.

×