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 celo število, ki določa trenutno mesto za branje/pisanje v odprti datoteki.
Sintaksa
Loc(številka datoteke)
Zahtevani argument številke datoteke jekatera koli veljavna številka datoteke v celem številu.
Opombe
V nadaljevanju je opisana vrnjena vrednost za vsak način dostopa do datoteke:
| Način | Vrnjena vrednost |
|---|---|
| Naključno | Številka zadnjega zapisa, ki je bil prebran iz datoteke ali zapisan vanjo. |
| Zaporedno | Trenutni bajtni položaj v datoteki deljeno s 128. Vendar pa informacije, ki jih vrne funkcija Loc za zaporedne datoteke, niso niti uporabljene niti zahtevane. |
| Dvojiška vrednost | Položaj 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 mesta za branje/pisanje v odprti datoteki. V tem primeru se predvideva, da TESTFILE gre za besedilno datoteko 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.