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 en lang tid, der angiver den aktuelle læse-/skriveposition i en åben fil.
Syntaks
Loc(filnummer)
Det påkrævede filnummer-argumenter et gyldigt heltalsfilnummer.
Bemærkninger
Følgende beskriver returværdien for hver filadgangstilstand:
| Tilstand | Returværdi |
|---|---|
| Tilfældig | Nummer på den seneste post, der er læst fra eller skrevet til filen. |
| Fortløbende | Aktuel byteposition i filen divideret med 128. Oplysninger, der returneres af Loc for sekventielle filer, bliver dog hverken brugt eller påkrævet. |
| Binær | Positionen for den sidste byte, der er læst eller skrevet. |
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 Loc til at returnere den aktuelle læse-/skriveposition i en åben fil. I dette eksempel antages det, at det TESTFILE er en tekstfil med nogle få linjer med eksempeldata.
Dim MyLocation, MyLine
' Open file just created.
Open "TESTFILE" For Binary As #1
' Loop until end of file.
Do While MyLocation < LOF(1)
' Read character into variable.
MyLine = MyLine & Input(1, #1)
' Get current position within file.
MyLocation = Loc(1)
' Print to the Immediate window.
Debug.Print MyLine; Tab; MyLocation
Loop
Close #1 ' Close file.