Funkcija Loc

Piezīme.: Mēs vēlamies sniegt jums visjaunāko palīdzības saturu jūsu valodā, cik vien ātri to varam. Šī lapa ir tulkota automatizēti, un tajā var būt gramatiskas kļūdas un neprecizitātes. Mūsu nolūks ir šo saturu padarīt jums noderīgu. Vai lapas lejasdaļā varat mums pavēstīt, vai informācija jums noderēja? Ērtai atsaucei šeit ir šis raksts angļu valodā.

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.

Piezīmes

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 obligāts.

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.
Paplašiniet savas Office 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.

×