Funkcija Loc

Važno :  Ovaj je članak strojno preveden. Pogledajteizjavu o odricanju od odgovornosti. Verziju ovog članka na engleskom potražite ovdje.

Napomena : Funkcija, način, objekt ili svojstvo koje su opisane u ovoj temi onemogućeno je ako Microsoft Jet Expression Service izvodi u načinu rada s memorijom za testiranje, što sprječava potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s memorijom za testiranje ključnoj riječi "način rada s memorijom za testiranje" u sustavu pomoći.

Vraća dugu vrijednost koja određuje trenutni položaj za čitanje/pisanje u otvorene datoteke.

Sintaksa

Loc ( filenumber )

Potrebne filenumberargument je bilo koji valjani cijeli broj broj datoteke.

Napomene

Sljedeće opisuje povratnu vrijednost za način pristupa svake datoteke:

Način rada

Povratna vrijednost

Slučajni

Broj zadnji zapis čitanja ili zapisati datoteku.

Nizu

Trenutni položaj bajta u datoteci podijeljen 128. Međutim, informacije vratio Loc za uzastopne datoteke se ne koristi niti obavezno.

Binarni

Mjesto zadnje bajtni ili upisanog.


Primjer

Napomena : Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.

U ovom se primjeru koristi funkcija Loc da biste se vratili na trenutni položaj za čitanje/pisanje u otvorene datoteke. U ovom se primjeru pretpostavlja da TESTFILE je tekstna datoteka s nekoliko redaka ogledne 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.

Napomena : Izjava o odricanju od odgovornosti za strojni prijevod: ovaj je članak preveo računalni sustav bez ljudske intervencije. Microsoft nudi strojne prijevode da bi korisnicima koji ne razumiju engleski omogućio čitanje sadržaja o Microsoftovim proizvodima, uslugama i tehnologijama. Budući da je preveden strojno, članak možda sadrži pogreške u vokabularu, sintaksi ili gramatici.

Proširite svoje vještine
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

Hvala vam na povratnim informacijama!

Hvala vam na povratnim informacijama! Čini se da bi vam pomoglo kad bismo vas povezali s nekim od naših agenata podrške za Office.

×