Funkcija Seek

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.
Razširite svoja znanja
Oglejte si izobraževanje
Prvi dobite nove funkcije
Pridružite se programu Office Insider

Vam je bila informacija v pomoč?

Zahvaljujemo se vam za povratne informacije.

Zahvaljujemo se vam za povratne informacije. Videti je, da bi vam prišla prav pomoč enega od naših Officeovih agentov za podporo.

×