Funkcija Loc

Napomena:  Željeli bismo vam pružiti najnoviji sadržaj pomoći što je brže moguće i to na vašem jeziku. Ova je stranica strojno prevedena te može sadržavati gramatičke pogreške ili netočnosti. Naša je namjera da vam ovaj sadržaj bude koristan. Možete li nam pri dnu ove stranice javiti jesu li vam ove informacije bile korisne? Kao referencu možete pogledati i članak na engleskom jeziku .

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 iz ili upisanog 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 bajt 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.
Proširite svoje vještine korištenja sustava Office
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.

×