Funktionen Seek

Bemærk!: Funktionen, metoden, objektet eller egenskaben, der er beskrevet i dette emne, deaktiveres, hvis Microsoft Jet Expression Service kører i sandkassetilstand, hvilket forhindrer evalueringen af potentielt usikre udtryk. Søg efter "sandkassetilstand" i Hjælp, hvis du vil have mere at vide om sandkassetilstand.

Returnerer et langt tal, der angiver den aktuelle læse-/skriveplacering i en fil, der åbnes ved hjælp af sætningen Åbn.

Syntaks

Seek( filenumber )

Det påkrævedeargument er et heltal, der indeholder en gyldig filnummer.

Bemærkninger

Seek returnerer en værdi mellem 1 og 2.147.483.647 (svarende til 2^31 – 1), inklusive.

Følgende beskriver returværdierne for hver filadgangstilstand.

Tilstand,

Returværdi

Tilfældig

Nummeret på den næste post, der læses eller skrives

Binær,
Output,
Tilføj,
Input

Byteplacering, hvor den næste handling udføres. Den første byte i en fil er på position 1, den anden byte er på position 2 osv.


Eksempel

Bemærk!: Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.

I dette eksempel bruges funktionen Seek til at returnere den aktuelle filplacering. I eksemplet antages det, TESTFILE er en fil, der indeholder poster af den brugerdefinerede type Record.

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

For filer, der åbnes i tilfældig tilstand, returnerer Seek nummeret på den næste 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, der åbnes i andre tilstande end tilfældig tilstand, returnerer Seek bytepositionen, hvor den næste handling finder sted. Antag, TESTFILE er en fil, der indeholder et par tekstlinjer.

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.

Har du brug for mere hjælp?

Udvid dine Office-færdigheder
Gå på opdagelse i kurser
Få nye funktioner først
Bliv Office Insider

Var disse oplysninger nyttige?

Tak for din feedback!

Tak for din feedback! Det lyder, som om det vil kunne hjælpe, hvis du bliver sat i forbindelse med en af vores Office-supportteknikere.

×