Loc függvény

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ú értéket ad vissza, amely megadja az aktuális olvasási/írási pozíciót egy megnyitott fájlon belül.

Szintaxis

Loc( filenumber )

A kötelező fájlszámargumentum bármely érvényes egész szám, fájlszám.

Megjegyzések

Az alábbiakban az egyes fájlelérési üzemmódok visszatérési értékét ismertetjük:

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-as számokkal elosztva. A Loc által a szekvenciális fájlokra visszaadott információk azonban nem használhatók és nem szükségesek.

Bináris

Az utolsó bájt olvasott vagy írott 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ény segítségével adja vissza az aktuális olvasási/írási pozíciót egy megnyitott fájlon belül. 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.

További segítségre van szüksége?

Office-jártasság bővítése
Oktatóanyagok megismerése
Új szolgáltatások listájának lekérése
Részvétel az Office Insider programban

Hasznos volt az információ?

Köszönjük a visszajelzését!

Köszönjük visszajelzését. Jobbnak látjuk, ha az Office egyik támogatási szakemberéhez irányítjuk.

×