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 åpen fil.
Syntaks
Lok(filnummer)
Det nødvendige filnummerargumenteter et hvilket som helst gyldig heltallsfilnummer.
Merknader
Følgende beskriver returverdien for hver filtilgangsmodus:
| Modus | Returverdi |
|---|---|
| Tilfeldig | Tallet på siste post som er lest fra eller skrevet til filen. |
| Sekvensiell | Gjeldende byteplassering i filen dividert med 128. Informasjon som returneres av Loc for sekvensielle filer, blir imidlertid verken brukt eller nødvendig. |
| Binær | Posisjonen til siste byte lest eller skrevet. |
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 Loc-funksjonen til å returnere gjeldende lese/skriveposisjon i en åpen fil. Dette eksemplet antar at det TESTFILE er en tekstfil med noen 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.