Napomena
Funkcija, metoda, objekt ili svojstvo opisani u ovoj temi onemogućeni su ako je servis izraza Microsoft Jet pokrenut u načinu rada s memorijom za testiranje, što sprječava procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s memorijom za testiranje potražite u pomoći "način rada s memorijom za testiranje".
Vraća vrijednost Long koja određuje trenutni položaj za čitanje/pisanje unutar datoteke otvorene pomoću naredbe Open .
Sintaksa
Seek(broj datoteke)
Obavezni je argument broj datotekecijeli broj koji sadrži valjani broj datoteke.
Napomene
Seek vraća vrijednost između 1 i 2.147.483.647 (što odgovara 2^31 – 1) (uključujući obje vrijednosti).
U nastavku su opisane vraćene vrijednosti za svaki način pristupa datotekama.
| Način rada | Vraćena vrijednost |
|---|---|
| Slučajno | Broj sljedećeg pročitanog ili zapisanog zapisa |
|
Binarni, Izlaz, Dodati, Unos |
Položaj bajtova na kojem se odvija sljedeća operacija. Prvi je bajt u datoteci na položaju 1, drugi na položaju 2 i tako dalje. |
Primjer
Napomena
Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.
U ovom se primjeru prikazuje trenutni položaj datoteke pomoću funkcije Seque . U primjeru se pretpostavlja TESTFILE da je riječ o datoteci koja sadrži zapise korisnički definiranog tipa Record.
Type Record ' Define user-defined type.
ID As Integer
Name As String * 20
End Type
Za datoteke otvorene u nasumičnom načinu funkcija Seek vraća broj sljedeć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 načinima rada koji nisu nasumični način rada Seek vraća položaj bajta na kojem se odvija sljedeća operacija. Pretpostavi da TESTFILE je riječ o datoteci koja sadrži nekoliko redaka 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.