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 datoteci otvorenoj pomoću instrukcije Open .
Sintaksa
Seek(broj datoteke)
Potrebni argument broja datotekeje ceo broj koji sadrži važeći broj datoteke.
Napomene
Seek daje vrednost između 1 i 2.147.483.647 (jednako 2^31 – 1), uključujući i te vrednosti.
Sledi opis povratnih vrednosti za svaki režim pristupa datoteci.
| Modus | Povratna vrednost |
|---|---|
| Nasumično | Broj sledećeg pročitanog ili napisanog zapisa |
|
Binarno, Izlaz, Dodavanje, Unos |
Pozicija bajta na kojoj se izvršava sledeća operacija. Prvi bajt u datoteci je na poziciji 1, drugi bajt 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 SEEK kako bi vratio trenutni položaj datoteke. Primer pretpostavlja TESTFILE da 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čnom režimu 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, Seek daje poziciju bajta na kojoj se izvršava sledeća operacija. Pretpostavimo TESTFILE da je 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.