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.
Hosszú értéket ad vissza, amely egy megnyitott fájlon belüli aktuális olvasási/írási pozíciót adja vissza.
Szintaxis
Loc( filenumber )
A szükséges filenumberargumentum bármely érvényes egész szám fájlszám.
Megjegyzések
Az alábbiakban az egyes fájlelérési módok visszatérési értékét ismertetjuk:
Módusz: |
Visszatérési érték |
Véletlen |
A fájlból beolvasott vagy a fájlba írt utolsó rekord száma. |
Szekvenciális |
A fájl aktuális bájtpozíciója 128-tal osztva. A Loc által a szekvenciális fájlokra visszaadott információk azonban nem használhatók és nem is szükségesek. |
Bináris |
Az utolsó olvasási vagy írási 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.
Ez a példa a Loc függvénnyel adja vissza az aktuális olvasási/írási pozíciót egy megnyitott fájlban. A példa feltételezi, hogy a TESTFILE egy néhány mintaadat alkotta sorból álló fá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.