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 * 20 End 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) Loop Close #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 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.