Funkcija „Seek“

Važno : Ovaj članak je mašinski preveden, pogledajte odricanje odgovornosti. Pogledajte verziju ovog članka na engleskom jeziku ovde za 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 čitanje ili napisana

Binarni,
rezultat,
upit za dodavanje,
unosa

Bajt poziciju na kojoj se odvija operacija. Prvi bajt u datoteci poziciji 1, drugi bajt je 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 TESTFILE je datoteka 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.

Napomena : Odricanje odgovornosti za mašinski prevod: Ovaj članak je preveo računarski sistem bez ljudske intervencije. Microsoft nudi ove mašinske prevode da bi pomogao korisnicima koji ne govore engleski da uživaju u sadržaju o Microsoft proizvodima, uslugama i tehnologijama. Budući da je članak mašinski preveden, može da sadrži greške u rečniku, sintaksi ili gramatici.

Unapredite 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.

×