Loc függvény

Megjegyzés: Szeretnénk, ha minél gyorsabban hozzáférhetne a saját nyelvén íródott súgótartalmakhoz. Ez az oldal gépi fordítással lett lefordítva, ezért nyelvtani hibákat és pontatlanságokat tartalmazhat. A célunk az, hogy ezek a tartalmak felhasználóink hasznára váljanak. Kérjük, hogy a lap alján írja meg, hogy hasznos volt-e az Ön számára az itt található információ. Az eredeti angol nyelvű cikket itt találja.

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 korlátozott engedélyekkel rendelkező üzemmódban fut, mivel ez megakadályozza az esetleg nem biztonságos kifejezések kiszűrését. A korlátozott engedélyekkel rendelkező üzemmódról többet tudhat meg, ha a súgóban rákeres a „korlátozott engedélyek” kifejezésre.

Adja meg a fájl megnyitása belül az aktuális olvasási/írási pozíció hosszú adattípust ad eredményül.

Szintaxis

Loc ( filenumber )

A szükséges filenumberargumentum bármely érvényes egész fájlszám.

Megjegyzések

A következő visszatérési értéke a minden fájl elérési módját ismerteti:

Mode

Visszatérési érték

Véletlen

Az utolsó rekord olvasni, vagy a fájlba száma.

Egymás után következő

Byte beosztást 128 osztva, a fájlban. Egymás után következő fájlok Loc által visszaadott adatok azonban van sem használja, vagy szükséges.

Bináris

Az utolsó bájt olvasása és írása pozícióját.


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 visszatérési fájl megnyitása az aktuális olvasási/írási pozícióba. Ez a példa feltételezi, hogy TESTFILE néhány vonalakkal: mintaadatok 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.
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.

×