Napomena
Funkcija, metod, objekat ili svojstvo opisano u ovoj temi onemogućena je ako je usluga Microsoft Jet Expression pokrenuta u režimu sandbox, što sprečava procenu potencijalno nebezbednih izraza. Više informacija o režimu "sandbox" potražite u odeljku "režim sandbox" u pomoći.
Vraća dugačak broj koji navodi trenutnu poziciju čitanja/pisanja unutar otvorene datoteke.
Sintaksa
Loc(broj datoteke)
Potreban argument "filenumber" jebilo koji važeći ceo broj datoteke.
Napomene
Sledeće opisuje povratnu vrednost za svaki režim pristupa datoteci:
| Modus | Povratna vrednost |
|---|---|
| Nasumično | Broj poslednjeg zapisa koji je pročitan ili napisan u datoteci. |
| Sekvencijalnih | Trenutni položaj bajta u datoteci podeljenoj sa 128. Međutim, informacije koje je vratio Loc za sekvencijalne datoteke ne koriste se niti su potrebne. |
| Binarni | Položaj poslednjeg čitanja ili pisanja 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 dobijanje trenutne pozicije čitanja/pisanja unutar otvorene datoteke. Ovaj primer pretpostavlja da je to TESTFILE tekstualna datoteka sa nekoliko redova uzoraka 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.