Opomba: V tej temi opisana funkcija, metoda, predmet ali lastnost, je onemogočena, če se izvaja storitev Microsoft Jet Expression Service v načinu peskovnika, ki preprečuje vrednotenje morebitno nevarnih izrazov. Za več informacij o načinu peskovnika poiščite »način peskovnika« v pomoči.
Vrne dolgo število, ki določa trenutno mesto za branje/pisanje v odprti datoteki.
Sintaksa
Loc(številka datoteke )
Zahtevana številkaargument je poljubna veljavna številka številka datoteke.
Opombe
V nadaljevanju je opisana vrnjena vrednost za vsak način dostopa do datoteke:
|
Način |
Vrnjena vrednost |
|
Naključno |
Število zadnjega prebranega zapisa v datoteki ali zapisanega v datoteki. |
|
Zaporedna |
Mesto trenutnega bajta v datoteki deljeno z 128. Vendar informacije, ki jih funkcija Loc vrne za zaporedne datoteke, niso niti uporabljene niti zahtevane. |
|
Dvojiško |
Mesto zadnjega prebranega ali zapisanega bajta. |
Primer
Opomba: V spodnjih primerih je prikazana uporaba te funkcije v modulu Visual Basic for Applications (VBA). Če želite več informacij o delu z modulom VBA, izberite Vsebina za razvijalce na spustnem seznamu ob možnosti Iskanje in v iskalno polje vnesite enega ali več izrazov.
V tem primeru se funkcija Loc uporablja za vrnitev trenutnega položaja za branje/pisanje v odprti datoteki. V tem primeru se predvideva, da je TESTFILE besedilna datoteka z nekaj vrsticami vzorčnih podatkov.
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.
