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

Nedenfor beskrives returværdien for hver filadgangstilstand:

Tilstand

Returværdi

Random

Nummeret på den sidste post, der er læst fra eller skrevet til filen.

Sequential

Den nuværende byteposition i filen divideret med 128. Oplysninger, der returneres af funktionen Loc for sekventielle filer, bruges dog ikke og er ikke obligatoriske.

Binary

Positionen for den sidste byte, der er blevet 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 nuværende læse-/skriveposition i en åben fil. I dette eksempel antages det, at 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.

Del Facebook Facebook Twitter Twitter Mail Mail

Var disse oplysninger nyttige?

Fantastisk! Har du mere feedback?

Hvordan kan vi forbedre det?

Tak for din feedback!

×