Huomautus
Tässä ohjeaiheessa kuvattu funktio, menetelmä, objekti tai ominaisuus ei ole käytössä, jos Microsoft Jet Expression Service toimii eristetyssä tilassa, mikä estää mahdollisesti vahingollisten lausekkeiden arvioimisen. Katso lisätietoja eristetystä tilasta ohjeen ”Eristetty tila” -kohdasta.
Palauttaa pitkän kokonaisluvun, joka määrittää nykyisen luku-/kirjoituskohdan Open-lauseella avatussa tiedostossa.
Syntaksi
Seek(filenumber)
Pakollinen tiedostonumero-argumenttion kokonaisluku, joka sisältää kelvollisen tiedostonumeron.
Huomautuksia
Seek palauttaa arvon väliltä 1–2 147 483 647 (vastaa 2^31 – 1).
Seuraavassa kuvataan kunkin tiedoston käyttötilan palautusarvot.
| Moodi | Palautusarvo |
|---|---|
| Satunnainen | Seuraavan luetun tai kirjoitetun tietueen numero |
|
Binaarinen, Tuloste Liitä Syöte |
Tavusijainti, jossa seuraava toiminto tapahtuu. Tiedoston ensimmäinen tavu on kohdassa 1, toinen tavu on kohdassa 2 ja niin edelleen. |
Esimerkki
Huomautus
Seuraavissa esimerkeissä kerrotaan, kuinka tätä funktiota käytetään Visual Basic for Applications (VBA) -moduulissa. Jos haluat lisätietoja VBA:n käytöstä, valitse Sovelluskehittäjän opasHaku-kentän viereisestä luettelosta ja anna yksi tai useampi hakuehto hakukenttään.
Tässä esimerkissä Seek-funktion avulla palautetaan tiedoston nykyinen sijainti. Esimerkissä TESTFILE oletetaan, että tiedosto sisältää käyttäjän määrittämän tyypin Recordtietueita.
Type Record ' Define user-defined type.
ID As Integer
Name As String * 20
End Type
Satunnaistilassa avatuissa tiedostoissa Seek palauttaa seuraavan tietueen numeron.
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.
Muussa kuin satunnaistilassa avatuissa tiedostoissa Seek palauttaa tavusijainnin, jossa seuraava toiminto tapahtuu. Oletetaan, että TESTFILE tiedosto sisältää muutaman tekstirivin.
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.