Funktsioon Seek

NB! :  See artikkel on masintõlgitud, vaadake lahtiütlust. Selle artikli ingliskeelse versiooni leiate aadressilt (viiteks).

Märkus. : Kui Microsoft Jet Expression Service töötab liivakastirežiimis, mis takistab potentsiaalselt ebaturvaliste avaldiste väärtustamist, on käesolevas artiklis kirjeldatud funktsioon, meetod, objekt või atribuut keelatud. Liivakastirežiimi kohta lisateabe saamiseks otsige spikrist sõna „liivakastirežiim“.

Tagastab pika väärtuse, mis määrab praeguse lugemise/kirjutamise asukoha avaldise Open (Avamine) abil avatud failis.

Süntaks

Seek( filenumber )

Nõutav filenumberargument (failinumber) on täisarv, milles on parameetri failinumber sobiv väärtus.

Märkused

Seek (Otsing) tagastab väärtuse vahemikus 1 kuni 2 147 483 647 (võrdne väärtusega 2^31 – 1) (k.a).

Alljärgnev kirjeldab iga failipöördusrežiimi tagastusväärtusi.

Režiim

Tagastusväärtus

Juhuslik

Järgmise loetava või kirjutatava kirje number

Kahend,
Väljund,
Lisamine,
Sisend

Baidi asukoht, kus järgmine tehe toimub. Faili esimene bait on asukohas 1, teine bait on asukohas 2 jne.


Näide

Märkus. : Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.

Selles näites kasutatakse funktsiooni Seek (Otsing) praeguse failiasukoha tagastamiseks. Näites eeldatakse, et TESTFILE on fail, mis sisaldab kasutaja määratletud kirjeid, mille tüüp on Record (Kirje).

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

Režiimis Juhuslik avatud failide korral tagastab Seek (Otsing) järgmise kirje numbri.

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.

Muudes kui režiimis Juhuslik avatud failide korral tagastab Seek (Otsing) baidi asukoha, kus tehakse järgmine tehe. Oletame, et TESTFILE on fail, mis sisaldab mõned read teksti.

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.

Märkus. : Masintõlke lahtiütlus. Selle artikli tõlkis arvutisüsteem ilma inimese sekkumiseta. Microsoft pakub selliseid masintõlkeid, et inglise keelt mittekõnelevad kasutajad saaksid vaadata sisu Microsofti toodete, teenuste ja tehnoloogiate kohta. Kuna artikkel on masintõlgitud, võib see sisaldada sõnavara-, süntaksi- või grammatikavigu.

Täiendage oma oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×