Funkcija „Seek“

Napomena: Želimo da vam što pre pružimo najnoviji sadržaj pomoći čim na vašem jeziku. Ova stranica je prevedena automatski i može da sadrži gramatičke greške ili netačnosti. Naš cilj je da ovaj sadržaj bude koristan. Možete li nam na dnu ove stranice saopštiti da li su vam informacije bile od koristi? Ovo je članak na engleskom jeziku za brzu referencu.

Napomena: Funkcija, metod, objekat ili svojstvo opisane u ovoj temi je onemogućen ako Microsoft Jet Expression usluge pokrenut u "sandbox" režim, što sprečava od potencijalno nebezbedne izraze. Za više informacija o "sandbox" režim potražite”„sandbox „režim” u pomoći.

Daje dugo koji određuje trenutni položaj čitanje/pisanje u okviru datoteke otvorene korišćenjem izjavu otvoren .

Sintaksa

"Traženje cilja" ( brojdatoteke )

Potreban brojdatotekeargument je i ceo broj koji sadrži važeći broj datoteke.

Napomene

"Traženje cilja" daje vrednost između 1 i 2 147 483 647 (ekvivalentno 2 ^ 31-1), uključujući te brojeve.

Sledeći primer opisuje vraćene vrednosti za svaki režim pristupa datoteci.

Režim

Povratna vrednost

Nasumične

Broj sledećeg zapisa čita ili upisuje

Binarni,
izlaz,
upit za dodavanje,
unosa

Bajt poziciju na kojoj se odvija operacija. Prvi bajt u datoteci ima poziciju 1, drugi bajt nalazi se na poziciju 2 i tako dalje.


Primer

Napomena: Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Ako vam je potrebno više informacija o radu sa VBA modulom, izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite jedan ili više termina u polje za pretragu.

Ovaj primer koristi funkciju "Traženje cilja" da biste se vratili Trenutna pozicija u datoteci. Primer pretpostavlja da TESTFILE datoteku koja sadrži zapise korisnički definisan tip Record.

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

Za datoteke otvorene u režimu proizvoljno, "Traženje cilja" 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 drugim režimima, "Traženje cilja" daje bajt poziciju na kojoj se odvija operacija. Potrebno je da TESTFILE 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.
Razvijte Office veštine
Istražite obuku
Prvi nabavite nove funkcije
Pridružite se Office Insider korisnicima

Da li su vam ove informacije koristile?

Hvala vam na povratnim informacijama!

Hvala za povratne informacije! Zvuči da će biti od pomoći ako vas povežemo sa našim agentima Office podrške.

×