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(številka datoteke)
Zahtevani argument številke datotekeje celo število, ki vsebuje 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, dodaja, 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 gre za TESTFILE datoteko z uporabniško določenimi Recordzapisi.
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. Domneva TESTFILE da je datoteka z nekaj vrsticami 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.