Funkcija „Loc“

Važno : Ovaj članak je mašinski preveden, pogledajte odricanje odgovornosti. Pogledajte verziju ovog članka na engleskom jeziku ovde za 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čni

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.

Napomena : Odricanje odgovornosti za mašinski prevod: Ovaj članak je preveo računarski sistem bez ljudske intervencije. Microsoft nudi ove mašinske prevode da bi pomogao korisnicima koji ne govore engleski da uživaju u sadržaju o Microsoft proizvodima, uslugama i tehnologijama. Budući da je članak mašinski preveden, može da sadrži greške u rečniku, sintaksi ili gramatici.

Unapredite 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.

×