Napomena: Funkcija, način, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression servis pokrenut u načinu rada s izdvojenom funkcijom, čime se sprječava vrednovanje potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s izdvojenom pomoću pretraživanja potražite u odjeljku "Izdvojeni način rada".

Vraća dugo određivanje postojećeg položaja za čitanje/zapisivanje unutar otvorene datoteke.

Sintaksa

Loc ( filename )

Obaveznoargument naziv datoteke je bilo koji valjani cijeli broj datoteke.

Napomene

U nastavku se opisuje Povratna vrijednost za svaki način pristupa datoteci:

Mod

Vraćena vrijednost

Slučajno

Broj zadnjeg zapisa koji se čita ili piše u datoteci.

Sekvencijalni

Sadašnji položaj bajta u datoteci podijeljen sa 128. Informacije koje loc za sekvencijalne datoteke vraćaju nisu korištene ni obavezne.

Binary

Položaj posljednjeg čitanja ili pismenog bajta.


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 funkcija loc koristi za vraćanje postojećeg položaja za čitanje/zapisivanje unutar otvorene datoteke. U ovom se primjeru pretpostavlja da je TESTFILE tekstna datoteka s nekoliko redaka oglednih 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.

Potrebna vam je dodatna pomoć?

Proširite svoje vještine
Istražite osposobljavanje
Prvi koristite nove značajke
Pridružite se Microsoft Office Insiderima

Jesu li ove informacije bile korisne?

Koliko ste zadovoljni kvalitetom prijevoda?
Što je utjecalo na vaše iskustvo?

Hvala vam na povratnim informacijama!

×