Pastaba: Šioje temoje aprašyta funkcija, metodas, objektas arba ypatybė yra išjungta, jei "Microsoft Jet Expression Service" veikia smėlio dėžės režimu, kuris neleidžia įvertinti galimai nesaugių reiškinių. Jei reikia daugiau informacijos apie smėlio dėžės režimą, žinyne ieškokite "smėlio dėžės režimas".
Pateikia ilgą skaičių, nurodantį dabartinę skaitymo / rašymo vietą faile, atidarytame naudojant sakinį Atidaryti .
Sintaksė
Seek( failo numeris )
Reikiamas failo numerisargumentas yra sveikasis skaičius, kuriame yra galiojantis failo numeris.
Pastabos
Paieška grąžina reikšmę nuo 1 iki 2,147,483,647 (atitinka 2^31 – 1), imtinai.
Toliau aprašomos kiekvieno failo prieigos režimo grąžinamos reikšmės.
|
Moda |
Pateikiama reikšmė |
|
Atsitiktinis |
Kito perskaitytą arba parašytą įrašą numeris |
|
Dvejetainis,Išvestis,Pridėti,Įvestis |
Baito padėtis, kurioje vyksta kita operacija. Pirmasis baitas faile yra 1 pozicijoje, antrasis baitas yra 2 ir t. t. |
Pavyzdys
Pastaba: Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.
Šiame pavyzdyje naudojama ieškos funkcija dabartinei failo vietai grąžinti. Pavyzdyje daroma prielaida, TESTFILE yra failas, kuriame yra vartotojo apibrėžto tipo įrašų Record.
Type Record ' Define user-defined type.
ID As Integer
Name As String * 20
End Type
Failams, atidarytiems atsitiktiniu režimu, Seek grąžina kito įrašo numerį.
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.
Failams, atidarytiems ne atsitiktiniu režimu, ieška grąžina baitų padėtį, kurioje vyksta kita operacija. Tarkime, TESTFILE yra failas su keliomis teksto eilutėmis.
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.
