Napomena
Funkcija, metoda, objekt ili svojstvo opisani u ovoj temi onemogućeni su ako je servis izraza Microsoft Jet pokrenut u načinu rada s memorijom za testiranje, što sprječava procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s memorijom za testiranje potražite u pomoći "način rada s memorijom za testiranje".
Vraća vrijednost Long koja određuje trenutni položaj za čitanje/pisanje unutar otvorene datoteke.
Sintaksa
Loc(broj datoteke)
Obavezni je argument broj datotekebilo koji valjani cijeli broj datoteke.
Napomene
Sljedeći odlomak opisuje vraćenu vrijednost za svaki način pristupa datotekama:
| Način rada | Vraćena vrijednost |
|---|---|
| Slučajno | Broj zadnjeg zapisa s kojeg je učitana ili zapisana u datoteku. |
| Sekvencijalno | Trenutni položaj bajtova u datoteci podijeljen sa 128. Međutim, informacije koje Loc vraća za sekvencijalne datoteke ne koriste se niti su potrebne. |
| Binarni sustav | Položaj zadnjeg pročitanog ili zapisanog 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 koristi funkcija Loc za vraćanje trenutnog položaja za čitanje/pisanje unutar otvorene datoteke. U ovom se primjeru pretpostavlja da je riječ TESTFILE o tekstnoj datoteci 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.