Napomena: Funkcija, metoda, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression Service pokrenut u načinu rada sigurnosne ograde, što onemogućuje procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada sigurnosne ograde potražite u pomoći u odjeljku "način rada s memorijom za testiranje".
Vraća dugu vrijednost koja određuje trenutni položaj čitanja/pisanja unutar otvorene datoteke.
Sintaksa
Loc( brojdatoteka )
Obavezni brojargument valjani cijeli broj broj datoteke.
Napomene
U nastavku je opisana povratna vrijednost za svaki način pristupa datoteci:
Mod |
Vraćena vrijednost |
Slučajno |
Broj posljednjeg zapisa pročitanog iz datoteke ili zapisanog u datoteku. |
Sekvencijalni |
Trenutni položaj bajta u datoteci podijeljen s 128. No informacije koje loc vraća za uzastopne datoteke ne koriste se ni ne moraju se koristiti. |
Binary |
Položaj zadnjeg bajta pročitanog ili napisanog. |
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 trenutnog položaja čitanja/pisanja unutar otvorene datoteke. U ovom se primjeru TESTFILE je 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.