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 broj datotekeargument je 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,Izlazni,Dodavanje,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 TESTFILE je 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 predstavlja datoteku 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.