Applies ToAccess za Microsoft 365 Access 2021 Access 2019 Access 2016

Opomba: V tej temi opisana funkcija, metoda, predmet ali lastnost, je onemogočena, če se izvaja storitev Microsoft Jet Expression Service v načinu peskovnika, ki preprečuje vrednotenje morebitno nevarnih izrazov. Za več informacij o načinu peskovnika poiščite »način peskovnika« v pomoči.

Vrne dolgo število, ki določa trenutno mesto za branje/pisanje v datoteki, odprti z izjavo Open.

Sintaksa

Seek( št. datoteke )

Obvezen argument številka datoteke je celo število z veljavno številko datoteke.

Opombe

Funkcija Seek vrne vrednost med 1 in vključno 2.147.483.647 (enakovredno 2 ^ 31-1).

V nadaljevanju so opisane vrnjene vrednosti za vsak način dostopa do datoteke.

Način

Vrnjena vrednost

Naključno

Številka naslednjega prebranega ali zapisanega zapisa

Dvojiško,izhod,dodajanje,vnos

Bajtno mesto, na katerem se izvede naslednja operacija. Prvi bajt v datoteki je na mestu 1, drugi bajt na mestu 2 in tako naprej.

Primer

Opomba: V spodnjih primerih je prikazana uporaba te funkcije v modulu Visual Basic for Applications (VBA). Če želite več informacij o delu z modulom VBA, izberite Vsebina za razvijalce na spustnem seznamu ob možnosti Iskanje in v iskalno polje vnesite enega ali več izrazov.

V tem primeru se funkcija Seek uporablja za vrnitev trenutnega mesta datoteke. V primeru se predvideva, da je TESTFILE datoteka z uporabniško določenimi zapisi tipa Record.

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

Za datoteke, odprte v naključnem načinu, funkcija Seek vrne številko naslednjega 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)    LoopClose #1    ' Close file.

Za datoteke, ki niso odprte v naključnem načinu, funkcija Seek vrne bajtno mesto, pri katerem se odvija naslednja operacija. Predpostavljena datoteka TESTFILE je datoteka, ki vsebuje nekaj vrstic besedila.

Dim MyCharOpen "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) LoopClose #1    ' Close file.

Ali potrebujete dodatno pomoč?

Ali želite več možnosti?

Raziščite ugodnosti naročnine, prebrskajte izobraževalne tečaje, preberite, kako zaščitite svojo napravo in še več.

Skupnosti vam pomagajo postaviti vprašanja in odgovoriti nanje, posredovati povratne informacije in prisluhniti strokovnjakom z bogatim znanjem.