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 long som anger den aktuella positionen för läsning/skrivning i en öppen fil.
Syntax
Loc( filenumber )
Den obligatoriska filenumberargument är ett giltigt Heltal filnummer.
Kommentarer
Följande beskriver returvärdet för varje filåtkomstläge:
|
Läge |
Returvärde |
|
Slumpmässigt |
Numret på den sista posten som lästs från eller skrivits till filen. |
|
Sekventiella |
Aktuell byteposition i filen dividerad med 128. Men information som returneras av Loc för sekventiella filer används varken eller krävs. |
|
Binärt |
Positionen för den sista byte som lästs eller skrivits. |
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 positionen för läsning/skrivning i en öppen fil. I det här exemplet förutsätts att TESTFILE är en textfil med några rader med 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; MyLocationLoopClose #1 ' Close file.
