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)
Zahtevani argument »številka_datoteke« je poljubno veljavno celoštevilsko število.
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. |
| Binary | 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 je predvideno, TESTFILE da je to 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.