Funkcija Loc

Svarīgi! :  Šis raksts ir mašīntulkots, skatiet atrunu. Lūdzu, skatiet šī raksta versiju angļu valodā šeit jūsu informācijai.

Piezīme : Funkcija, metodi, objektu vai rekvizītu, kas aprakstīts šajā tēmā ir atspējots, ja Microsoft Jet Expression Service ir atvērta smilškastes režīmu, kas neļauj iespējami nedrošās izteiksmes novērtēšanas. Lai iegūtu papildinformāciju par smilškastes režīmu, meklējiet "smilškastes režīma" palīdzībā.

Atgriež Long norādot pašreizējās pozīcijas lasīšanas/rakstīšanas laikā atvērt failu.

Sintakse

Loc ( faila_numurs )

Nepieciešamos faila_numursarguments ir jebkuru derīgu skaitlim faila numurs.

Piebildes

Tālāk aprakstītas atgrieztās vērtības katram failu piekļuves režīmam:

Režīms

Return Value

Izlases

Pēdējā ieraksta numuru, kas nolasīts no faila vai ierakstīts tajā.

Secīgas.

Pašreizējā baitu pozīcija failā, kas dalīts ar 128. Tomēr informāciju atgrieza Loc secīgus failiem ir izmantots, nedz nepieciešams.

Binārs

Pēdējā baitu lasiet vai rakstīts novietojumu.


Piemērs.

Piezīme : Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.

Šajā piemērā funkcija Loc , lai atgrieztu pašreizējās pozīcijas lasīšanas/rakstīšanas laikā atvērt failu. Šajā piemērā tiek pieņemts, ka TESTFILE ir teksta fails ar dažām datu paraugu rindiņām.

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.

Piezīme : Mašīntulkošanas atruna. Šo rakstu ir tulkojusi datorsistēma bez cilvēka iejaukšanās. Microsoft piedāvā šos mašīntulkojumus, lai palīdzētu angliski nerunājošajiem lietotājiem izmanot saturu par Microsoft produktiem, pakalpojumiem un tehnoloģijām. Tā kā šis raksts ir mašīntulkots, tajā var būt leksikas, sintakses un gramatikas kļūdas.

Paplašiniet savas prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta aģentiem.

×