Napomena: Funkcija, metoda, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression Service pokrenut u načinu rada sigurnosne ograde, što onemogućuje procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada sigurnosne ograde potražite u pomoći u odjeljku "način rada s memorijom za testiranje".
Vraća dugu vrijednost koja određuje trenutni položaj čitanja/pisanja unutar datoteke otvorene pomoću naredbe Otvori.
Sintaksa
Seek( broj datoteke )
Potrebni brojdatotekaargument cijeli broj koji sadrži valjani broj broj datoteke.
Napomene
Funkcija 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 povratne vrijednosti za svaki način pristupa datotekama.
Mod |
Vraćena vrijednost |
Slučajno |
Broj sljedećeg zapisa koji je pročitano ili napisano |
Binarni,Izlazni,Dodaj,Unos |
Položaj bajta na kojem se odvija sljedeća operacija. Prvi bajt u datoteci nalazi se na položaju 1, drugi bajt je na 2. mjestu 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 funkcija Seek koristi za vraćanje trenutnog položaja datoteke. U primjeru se TESTFILE je datoteka koja sadrži zapise korisnički definirane vrste Record.
Type Record ' Define user-defined type.
ID As Integer Name As String * 20 End Type
Za datoteke otvorene u nasumičnom načinu , 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 Slučajni način rada, Seek vraća položaj bajta na kojem se odvija sljedeća operacija. Pretpostavimo TESTFILE je datoteka 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.