Obs!: Funksjonen, metoden, objektet eller egenskapen som beskrives i dette emnet, er deaktivert hvis Microsoft Jet Expression Service 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 Hjelp.
Returnerer en lang verdi som angir gjeldende lese-/skriveposisjon i en fil som er åpnet ved hjelp av Open-setningen .
Syntaks
Seek( filenumber )
Den nødvendige filenumber -argument er et heltall som inneholder en gyldig filnummer.
Merknader
Søk returnerer en verdi mellom 1 og 2 147 483 647 (tilsvarende 2^31 – 1), inkludert.
Følgende beskriver returverdiene for hver filtilgangsmodus.
|
Modus, |
Returverdi |
|
Tilfeldig |
Antallet av den neste posten som leses eller skrives |
|
Binær,Utdata,Tilføy,Inndata |
Byteposisjon der neste operasjon finner sted. Den første byten i en fil er på 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 filplassering. Eksemplet forutsetter at TESTFILE 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
Søk returnerer antallet neste poster for filer som er åpnet i tilfeldig modus.
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 er åpnet i andre moduser 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.
