Funkcija „Loc“

Napomena: Želimo da vam što pre pružimo najnoviji sadržaj pomoći čim na vašem jeziku. Ova stranica je prevedena automatski i može da sadrži gramatičke greške ili netačnosti. Naš cilj je da ovaj sadržaj bude koristan. Možete li nam na dnu ove stranice saopštiti da li su vam informacije bile od koristi? Ovo je članak na engleskom jeziku za brzu referencu.

Napomena: Funkcija, metod, objekat ili svojstvo opisane u ovoj temi je onemogućen ako Microsoft Jet Expression usluge pokrenut u "sandbox" režim, što sprečava od potencijalno nebezbedne izraze. Za više informacija o "sandbox" režim potražite”„sandbox „režim” u pomoći.

Daje dugo koji određuje trenutni položaj za čitanje/pisanje u otvorenoj datoteci.

Sintaksa

Loc ( brojdatoteke )

Potreban brojdatotekeargument je bilo koji važeći ceo broj broj datoteke.

Napomene

Sledeći primer opisuje vraćene vrednosti za svaki režim pristupa datoteci:

Režim

Povratna vrednost

Nasumične

Broj poslednjeg zapisa pročitanog iz datoteke ili upisuje u datoteku.

Sekvencijalni

Trenutni položaj bajta u datoteci podeljen sa 128. Međutim, informacije o vratio Loc za sekvencijalne datoteke se ne koristi niti neophodno.

Binarni

Pozicija zadnji bajt čita ili upisuje.


Primer

Napomena: Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Ako vam je potrebno više informacija o radu sa VBA modulom, izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite jedan ili više termina u polje za pretragu.

Ovaj primer koristi funkciju Loc da biste se vratili na trenutni položaj čitanje/pisanje u otvorenoj datoteci. Ovaj primer pretpostavlja da taj TESTFILE tekstualna datoteka sa nekoliko linija probnih podataka.

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.
Razvijte Office veštine
Istražite obuku
Prvi nabavite nove funkcije
Pridružite se Office Insider korisnicima

Da li su vam ove informacije koristile?

Hvala vam na povratnim informacijama!

Hvala za povratne informacije! Zvuči da će biti od pomoći ako vas povežemo sa našim agentima Office podrške.

×