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 az Open utasítással megnyitott fájl aktuális olvasási/írási pozícióját adja meg.
Szintaxis
Keresés(fájlszám)
A szükséges fájlszámargumentum egy érvényes fájlszámot tartalmazó egész szám.
Megjegyzések
A Keresés függvény 1 és 2 147 483 647 közötti (egyenlő 2^31 – 1) közötti értéket ad eredményül.
Az alábbiakban az egyes fájlelérési módok által visszatérési értékeket ismertetjük.
| Mód | Visszatérési érték |
|---|---|
| Véletlenszerű | A következő olvasott vagy írt rekord száma |
|
bináris, Kimenet, Hozzáfűzés lehetőséget, Bevitel |
A következő művelet végrehajtásához használt bájtpozíció. A fájl első bájtja az 1-es pozícióban, a második a 2-es helyen van, és így tovább. |
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 Seek függvényt használja az aktuális fájlpozíció visszaadására. A példa feltételezi, hogy TESTFILE egy olyan fájl, amely felhasználó által definiált típusú Recordrekordokat tartalmaz.
Type Record ' Define user-defined type.
ID As Integer
Name As String * 20
End Type
Véletlenszerű módban megnyitott fájlok esetén a Keresés a következő rekord számát adja vissza.
Dim MyRecord As Record ' Declare variable.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Do While Not EOF(1) ' Loop until end of file.
Get #1, , MyRecord ' Read next record.
' Print record number to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.
A nem véletlenszerű módban megnyitott fájlok esetén a Keresés azt a bájtpozíciót adja vissza, ahol a következő művelet zajlik. A feltételezett TESTFILE fájl néhány sornyi szöveget tartalmaz.
Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file for reading.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Read next character of data.
' Print byte position to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.