Funkcija „Seek“

Napomena: Funkcija, metod, objekat ili vlasništvo opisane u ovoj temi je onemogućeno ako se pokreće Microsoft Jet Expression usluga u okviru "sandbox" režima, što sprečava procenu potencijalno nebezbednih izraza. Više informacija o "sandbox" režimu potražite u okviru pomoći "sandbox režim".

Daje dugo navođenje trenutnog položaja čitanja/pisanja u okviru datoteke koja je otvorena pomoću funkcije Open .

Sintaksa

Traženje ( filtrive )

Obavezno filtriranjacinargument je ceo broj koji sadrži važeće broj datoteke.

Napomene

Traženje daje vrednost između 1 i 2.147.483.647 (ekvivalentna za 2 ^ 31 – 1), uključujući i njih.

Sledeći opis vraćene vrednosti za svaki režim pristupa datotekama.

Modus

Povratna vrednost

Nasumično

Broj sledećeg zapisa koje je pročitano ili napisano

Binarni,
izlaz,
Dodavanje,
unos

Pozicija bajtova na kojoj se odvija sledeća operacija. Prvi bajt u datoteci je na položaju 1, drugi bajt je na položaju 2 i tako dalje.


Primer

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

Ovaj primer koristi funkciju LOOKUP da bi vratio trenutni položaj datoteke. Primer podrazumeva TESTFILE je datoteka koja sadrži zapise korisnički definisanog tipa Record.

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

Za datoteke otvorene u nasumičnom režimu, Traženje 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, a ne za slučajni režim, Traženje daje poziciju bajta na kojoj se odvija sledeća operacija. Pretpostavimo da je TESTFILE 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.

Potrebna vam je dodatna pomoć?

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! Izgleda da će biti od pomoći ako vas povežemo sa našim agentima Office podrške.

×