Megjegyzés
A témakörben ismertetett függvény, metódus, objektum vagy tulajdonság le van tiltva, ha a Microsoft Jet Expression Service védőfalas üzemmódban fut, mivel ez megakadályozza az esetleg nem biztonságos kifejezések kiszűrését. A védőfalas üzemmódról a súgóban a „védőfalas üzemmód” kifejezésre keresve talál további információt.
Egy Hosszú időtartamot ad vissza, amely megadja a megnyitott fájl aktuális olvasási/írási pozícióját.
Szintaxis
Loc(fájlszám)
A szükséges fájlszámargumentum egy tetszőleges érvényes egész fájlszám.
Megjegyzések
Az alábbiakban az egyes fájlelérési módok visszatérési értékét ismertetjük:
| Mód | Visszatérési érték |
|---|---|
| Véletlenszerű | A fájlból utoljára beolvasott vagy a fájlba írt rekord száma. |
| Szekvenciális | A fájl aktuális bájtpozíciója osztva 128-cal. A Loc által a szekvenciális fájlokhoz visszaadott információk azonban nem használhatók, és nem is szükségesek. |
| Bináris | Az utolsó olvasott vagy írt bájt pozíciója. |
Példa
Megjegyzés
A következő példák egy Visual Basic for Applications (VBA) modulban mutatják be a függvény használatát. A VBA használatáról a Keresés elem mellett található legördülő listából a fejlesztői forrásokat választva, majd egy vagy több keresőszót megadva kaphat további tájékoztatást.
Ebben a példában a Loc függvény adja vissza az aktuális írási/olvasási pozíciót egy megnyitott fájlon belül. A példa feltételezi, hogy ez TESTFILE egy néhány mintaadat alkotta sorból álló szövegfájl.
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.