Funkcija Seek

Napomena: Funkcija, način, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression servis pokrenut u načinu rada s izdvojenom funkcijom, čime se sprječava vrednovanje potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s izdvojenom pomoću pretraživanja potražite u odjeljku "Izdvojeni način rada".

Vraća dugo određivanje postojećeg položaja za čitanje/zapisivanje unutar datoteke otvorene pomoću naredbe Otvori .

Sintaksa

Seek ( datoteka )

Obaveznoargument naziv datoteke cijeli je broj koji sadrži valjanu broj datoteke.

Napomene

Seek vraća vrijednost između 1 i 2.147.483.647 (ekvivalentno 2 ^ 31 – 1), uključivo.

U nastavku se opisuju povratne vrijednosti za svaki način pristupa datoteci.

Mod

Vraćena vrijednost

Slučajno

Broj sljedećeg čitanja ili pismenog zapisa

Binarni,
Izlazni,
Dodavanje,
unos

Položaj bajta na kojem se odvija Sljedeća operacija. Prvi bajt u datoteci na mjestu 1, drugi bajt nalazi se 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 funkcija Seek koristi za vraćanje postojećeg položaja datoteke. U primjeru se pretpostavlja da je TESTFILE datoteka koja sadrži zapise o korisnički definiranoj vrsti Record.

Type Record    ' Define user-defined type.
ID As Integer
Name As String * 20
End Type

Da bi datoteke bile otvorene u slučajnim načinom, 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.

Ako se datoteke otvaraju u drugim načinima rada, a ne u slučajnim načinom, Seek vraća položaj bajta pri kojem se odvija Sljedeća operacija. Pretpostavimo da je TESTFILE 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.

Potrebna vam je dodatna pomoć?

Proširite svoje vještine korištenja sustava Office
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

×