Piezīme
Šajā tēmā aprakstītā funkcija, metode, objekts vai rekvizīts ir atspējots, ja Microsoft Jet Expression Service darbojas smilškastes režīmā, kas neļauj novērtēt potenciāli nedrošas izteiksmes. Lai iegūtu papildinformāciju par smilškastes režīmu, meklējiet "smilškastes režīms" palīdzībā.
Atgriež Long vērtību, kas norāda pašreizējo lasīšanas/rakstīšanas pozīciju atvērtā failā.
Sintakse
Loc(faila numurs)
Nepieciešamais arguments filenumberir jebkurš derīgs vesela skaitļa faila numurs.
Piezīmes
Tālāk ir aprakstīta atgrieztā vērtība katram failu piekļuves režīmam:
| Režīms | Atgrieztā vērtība |
|---|---|
| Nejaušs | Pēdējā no faila lasītā vai tajā ierakstītā ieraksta numurs. |
| Secīgs | Pašreizējā baitu pozīcija failā dalīta ar 128. Tomēr loc atgrieztā informācija par secīgiem failiem netiek izmantota un netiek pieprasīta. |
| Binārs | Pēdējā lasītā vai rakstītā baita pozīcija. |
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ā tiek izmantota funkcija Loc , lai atgrieztu pašreizējo lasīšanas/rakstīšanas pozīciju atvērtā failā. Šajā piemērā tiek pieņemts, ka TESTFILE tas ir teksta fails ar dažām datu parauga 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.