Obs
Funktionen, metoden, objektet eller egenskapen som beskrivs i det här avsnittet inaktiveras om Microsoft Jet Expression Service körs i begränsat läge, vilket förhindrar utvärderingen av potentiellt osäkra uttryck. Om du vill ha mer information om begränsat läge söker du efter "begränsat läge" i hjälpen.
Returnerar ett Long-värde som anger den aktuella läs-/skrivpositionen i en öppen fil.
Syntax
Loc(filnummer)
Det obligatoriska argumentet för filnummerär ett giltigt heltalsfilnummer.
Kommentarer
Nedan beskrivs returvärdet för varje filåtkomstläge:
| Läge | Returvärde |
|---|---|
| Slumpmässigt | Numret på den senaste posten som lästs från eller skrivits till filen. |
| Sekventiell | Aktuell byteposition i filen dividerat med 128. Information som returneras av Loc för sekventiella filer varken används eller krävs. |
| Binär | Positionen för den senast lästa eller skrivna byten. |
Exempel
Obs
I exemplen nedan visar vi hur du använder den här funktionen i en Visual Basic for Applications-modul (VBA). Om du vill läsa mer om hur man använder VBA, kan du välja Info för utvecklare i listrutan bredvid Sök och sedan skriva en eller flera söktermer i sökrutan.
I det här exemplet används funktionen Loc för att returnera den aktuella läs-/skrivpositionen i en öppen fil. Det här exemplet förutsätter att det TESTFILE är en textfil med några rader exempeldata.
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.