Napomena: Funkcija, metod, objekat ili vlasništvo opisane u ovoj temi je onemogućeno ako se pokreće Microsoft Jet Expression usluga u okviru "sandbox" režima, što sprečava procenu potencijalno nebezbednih izraza. Više informacija o "sandbox" režimu potražite u okviru pomoći "sandbox režim".

Daje dugo navođenje trenutnog položaja čitanja/pisanja u otvorenoj datoteci.

Sintaksa

Loc ( filtrivrmber )

Obavezno filtriranjacinargument je bilo koji važeći broj datoteke celog broja.

Napomene

Sledeće opisuje povratnu vrednost za svaki režim pristupa datotekama:

Modus

Povratna vrednost

Nasumično

Broj poslednjeg zapisa koji je pročitan ili napisan u datoteku.

Sekvencijalni

Trenutna pozicija bajtova u datoteci podeljenom na 128. Međutim, informacije koje daje Lok za uzastopne datoteke se ne koriste niti su neophodne.

Binary

Pozicija poslednjeg čitanja ili napisanog bajta.


Primer

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

Ovaj primer koristi funkciju loc za vraćanje trenutnog položaja čitanja/pisanja u otvorenu datoteku. Ovaj primer pretpostavlja da je TESTFILE tekstualna datoteka sa nekoliko linija uzorka 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ć?

Unapredite veštine
Istražite obuku

Da li su vam ove informacije koristile?

Koliko ste zadovoljni kvalitetom jezika?
Šta je uticalo na vaše iskustvo?

Hvala vam na povratnim informacijama!

×