Piezīme.: Šajā tēmā aprakstītā funkcija, metode, objekts vai rekvizīts tiek atspējots, ja Microsoft Jet Expression Service darbojas smilškastes režīmā, tā 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" sadaļā Palīdzība.
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 faila_arguments ir jebkurš derīgs vesels skaitlis faila numurs.
Piezīmes
Tālāk ir aprakstīta katra failu piekļuves režīma atgrieztā vērtība:
|
Moda, |
Atgrieztā vērtība |
|
Dažādi |
Pēdējā ierakstā, kas lasīts no faila vai ierakstīts failā, numurs. |
|
Secīgums |
Pašreizējā baita pozīcija failā, dalīts ar 128. Tomēr informācija, ko atgriež vietrādis Loc secīgiem failiem, netiek izmantota un nav nepieciešama. |
|
Binārs |
Pēdējā baita lasīšanas vai rakstības 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 TESTFILE ka fails 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.
