Obs!
Funksjonen, metoden, objektet eller egenskapen som er beskrevet i dette emnet, er deaktivert hvis Microsoft Jet Expression-tjenesten kjører i sandkassemodus, noe som forhindrer evaluering av potensielt usikre uttrykk. Hvis du vil ha mer informasjon om sandkassemodus, kan du søke etter «sandkassemodus» i hjelpen.
Returnerer et langt som angir gjeldende lese-/skriveposisjon i en fil som er åpnet ved hjelp av Open-setningen.
Syntaks
Seek(filnummer)
Det nødvendige filnummerargumenteter et heltall som inneholder et gyldig filnummer.
Merknader
Søk returnerer en verdi mellom 1 og 2 147 483 647 (tilsvarende 2^31 – 1), inklusive.
Nedenfor beskrives returverdiene for hver filtilgangsmodus.
| Modus | Returverdi |
|---|---|
| Tilfeldig | Nummeret på neste post lest eller skrevet |
|
Binær, Utdata, Legg til, Inndata |
Byteposisjonen der neste operasjon finner sted. Den første byten i en fil er i posisjon 1, den andre byten er i posisjon 2 og så videre. |
Eksempel
Obs!
I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.
Dette eksemplet bruker Søk-funksjonen til å returnere gjeldende filposisjon. Eksemplet antar TESTFILE at det er en fil som inneholder poster av den brukerdefinerte typen Record.
Type Record ' Define user-defined type.
ID As Integer
Name As String * 20
End Type
For filer som åpnes i tilfeldig modus, returnerer Søk nummer for neste post.
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.
For filer som åpnes i andre modi enn Tilfeldig modus, returnerer Søk byteposisjonen der neste operasjon finner sted. Anta TESTFILE er en fil som inneholder noen få linjer med tekst.
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.