Funkcija Seek

Napomena: Željeli bismo vam pružiti najnoviji sadržaj pomoći što je brže moguće i to na vašem jeziku. Ova je stranica strojno prevedena te može sadržavati gramatičke pogreške ili netočnosti. Naša je namjera da vam ovaj sadržaj bude koristan. Možete li nam pri dnu ove stranice javiti jesu li vam ove informacije bile korisne? Kao referencu možete pogledati i članak na engleskom jeziku.

Napomena: Funkcija, način, objekt ili svojstvo koje su opisane u ovoj temi onemogućeno je ako Microsoft Jet Expression Service izvodi u načinu rada s memorijom za testiranje, što sprječava potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s memorijom za testiranje ključnoj riječi "način rada s memorijom za testiranje" u sustavu pomoći.

Vraća dugu vrijednost koja određuje trenutni položaj za čitanje/pisanje u datoteke otvorene korištenjem izjave Otvori .

Sintaksa

Seek ( filenumber )

Potrebne filenumberargument je cijeli broj koji sadrže valjanu broj datoteke.

Napomene

Traženje vraća vrijednost između 1 i 2,147,483,647 (ekvivalent 2 ^ 31-1), uključujući te dvije vrijednosti.

Sljedeće opisuje vraćene vrijednosti za način pristupa svake datoteke.

Način

Povratna vrijednost

Slučajni

Broj sljedećeg zapisa ili upisanog

Binarni,
Izlaz
dodavanja,
unos

Položaj bajta na kojoj se sljedeći postupak izvodi. Prvi bajt u datoteci je na položaju 1, drugi bajt je 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 koristi funkciju traženja da biste se vratili na trenutni položaj datoteke. U primjeru pretpostavlja da TESTFILE je datoteka koja sadrži zapise korisnički definirana vrsta Record.

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

Za datoteke otvorene u načinu slučajno 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 osim načinu slučajno Seek vraća položaj bajta na kojoj se sljedeći postupak izvodi. 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.
Proširite svoje vještine korištenja sustava Office
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

Hvala vam na povratnim informacijama!

Hvala vam na povratnim informacijama! Čini se da bi vam pomoglo kad bismo vas povezali s nekim od naših agenata podrške za Office.

×