Napomena
Funkcija, metod, objekat ili svojstvo opisani u ovoj temi onemogućeni su ako je usluga Microsoft Jet Expression Service pokrenuta u režimu "sandbox", što sprečava procenu potencijalno nebezbednih izraza. Više informacija o režimu "sandbox" potražite u pomoći za "režim sandbox".
Vraća dugačko polje koje navodi trenutni položaj za čitanje/pisanje u otvorenoj datoteci.
Sintaksa
Loc(broj datoteke)
Potrebni argument broja datotekeje bilo koji važeći ceo broj datoteke.
Napomene
Sledi opis povratne vrednosti za svaki režim pristupa datoteci:
| Modus | Povratna vrednost |
|---|---|
| Nasumično | Broj poslednjeg zapisa koji je pročitan iz datoteke ili upisan u nju. |
| Sekvencijalni | Trenutna pozicija bajta u datoteci podeljena sa 128. Međutim, informacije koje funkcija Loc vraća za sekvencijalne datoteke se ne koriste niti su potrebne. |
| Binarni | Položaj poslednjeg pročitanog ili napisanog 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 kako bi vratio trenutni položaj za čitanje/pisanje u okviru otvorene datoteke. U ovom primeru se pretpostavlja da je to TESTFILE tekstualna datoteka sa nekoliko redova probnih 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.