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.