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; MyLocation
Loop
Close #1 ' Close file.
