Seek, funksjon

Viktig: Denne artikkelen er maskinoversatt, se ansvarsfraskrivelsen. Du finner den engelske versjonen av artikkelen her som referanse.

Merknad: Funksjonen, metoden, objektet eller egenskapen som er beskrevet i dette emnet er deaktivert hvis Microsoft Jet Expression Service kjører i sandkassemodus, som hindrer evaluering av potensielt usikre uttrykk. Hvis du vil ha mer informasjon om sandkassemodus, kan du søke etter "sandkassemodus" i Hjelp.

Returnerer et langt heltall som angir gjeldende leses og skrives plasseringen i en fil som er åpnet med Open -setningen.

Syntaks

Seek ( filnummer )

Obligatorisk filnummerargument er et heltall som inneholder en gyldig filnummer.

Merknader

Seek returnerer en verdi mellom 1 og 2 147 483 647 (tilsvarer 2 ^ 31 – 1), inklusive.

Nedenfor beskrives returverdier for hver filtilgangsmodus.

Modus

Returverdi

Tilfeldig

Antall neste post leses eller skrives

Binær,
utdata
Tilføy,
inndata

Byteplasseringen der neste operasjon foregår. Første byte i en fil er fra posisjon 1, andre byte har plassering 2 og så videre.


Eksempel

Merknad: 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 brukes Seek -funksjonen til å returnere gjeldende filplassering. Eksemplet antar TESTFILE er en fil som inneholder oppføringene til brukerdefinert type Record.

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

For filer som er åpnet i tilfeldig-modus, returnerer Seek antall 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 er åpnet i modus enn tilfeldig-modus, returnerer Seek byte posisjonen der neste operasjon foregår. Anta TESTFILE er en fil som inneholder noen 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.

Merknad: Ansvarsfraskrivelse for maskinoversettelse: Denne artikkelen er oversatt av et datasystem i stedet for en oversetter. Microsoft tilbyr disse maskinoversettelsene slik at brukere som ikke snakker engelsk, får tilgang til innhold om Microsoft-produkter, -tjenester og –teknologier. Ettersom artikkelen er maskinoversatt, kan den inneholde feil i vokabular, syntaks eller grammatikk.

Utvid ferdighetene dine
Utforsk opplæring
Vær først ute med de nye funksjonene
Bli med i Office Insiders

Var denne informasjonen nyttig?

Takk for tilbakemeldingen!

Takk for tilbakemeldingen! Det høres ut som det kan være lurt å sette deg i kontakt med én av våre Office-kundestøtteagenter.

×