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 datoteke otvorene pomoću izjave "Otvori ".
Sintaksa
Traženje(broj datoteke)
Potrebni argument za broj datotekeje ceo broj koji sadrži važeći broj datoteke.
Napomene
Traženje daje vrednost između 1 i 2.147.483.647 (jednako 2^31 – 1), uklјuče.
U nastavku su opisane povratne vrednosti za svaki režim pristupa datoteci.
| Modus | Povratna vrednost |
|---|---|
| Nasumično | Broj sledećeg zapisa koji je pročitan ili napisan |
|
Binarni, Izlaz, Dodaj, Unos |
Pozicija bajta na kojoj se izvršava sledeća operacija. Prvi bajt u datoteci je na poziciji 1, drugi bajt je na poziciji 2 i tako dalje. |
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 "Traženje " da bi vratio trenutnu poziciju datoteke. Primer pretpostavlja da TESTFILE je to datoteka koja sadrži zapise korisnički definisanog tipa Record.
Type Record ' Define user-defined type.
ID As Integer
Name As String * 20
End Type
Za datoteke otvorene u nasumičnim režimima funkcija " Traženje" daje broj sledećeg zapisa.
Dim MyRecord As Record ' Declare variable.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Do While Not EOF(1) ' Loop until end of file.
Get #1, , MyRecord ' Read next record.
' Print record number to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.
Za datoteke otvorene u režimima koji nisu nasumični režimi, Funkcija "Traženje " vraća poziciju bajta na kojoj se izvršava sledeća operacija. Pretpostavimo TESTFILE da je to datoteka koja sadrži nekoliko redova teksta.
Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file for reading.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Read next character of data.
' Print byte position to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.