Funktionen Loc

Vigtigt: Denne artikel er maskinoversat. Se ansvarsfraskrivelsen. Du kan finde den engelske version af denne artikel her til din orientering.

Bemærk: Den funktion, metode, objekt eller egenskab, der er beskrevet i dette emne er deaktiveret, hvis Microsoft Jet Expression Service kører i sandkassetilstand, hvilket forhindrer evaluering af potentielt usikre udtryk. Du kan finde flere oplysninger om sandkassetilstand, søge efter "sandkassetilstand" i Hjælp.

Returnerer en langt heltal, der angiver den aktuelle placering i læse-og skriveadgang i en åben fil.

Syntaks

Loc ( filnummer )

Påkrævet filnummerargument er en hvilken som helst gyldigt heltal filnummer.

Bemærkninger

Følgende beskriver den returnerede værdi for hver fil adgangstilstand:

Tilstand

Returværdi

Tilfældigt

Antallet af den sidste post læse fra eller skrives til filen.

Fortløbende

Aktuelle byte placering i filen divideret med 128. Men oplysninger, der returneres af Loc for sekventielle filer er bruges hverken påkrævet.

Binær

Placeringen af den sidste byte læses eller skrives.


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.

Dette eksempel bruges funktionen Loc til at returnere den aktuelle placering i læse-og skriveadgang i en åben fil. I dette eksempel antages det pågældende 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.

Bemærk: Ansvarsfraskrivelse for maskinoversættelse: Denne artikel er blevet oversat af et computersystem uden menneskelig indgriben. Microsoft tilbyder disse maskinoversættelse for at hjælpe ikke-engelsktalende brugere til at kunne nyde indhold om Microsofts produkter, tjenester og teknologier. Da artiklen er maskinoversat, kan den indeholde forkerte ord eller syntaks- eller grammatikfejl.

Udvid dine 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.

×