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 )
Potrebni broj datotekeargument je bilo 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. |
|
Binary |
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 TESTFILE je 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; MyLocationLoopClose #1 ' Close file.
