Ieškoti funkcijos

Svarbu :  Šis straipsnis išverstas naudojant mašininį vertimą, žr. atsakomybės atsisakymą. Su šio straipsnio versija anglų kalba galite susipažinti čia .

Pastaba : Funkcija, metodą, objektų ir ypatybių šioje temoje aprašyta yra išjungta, jei Microsoft Jet išraiškų tarnyba veikia smėlio dėžės režimą, kuris trukdo galimai nesaugių reiškinių įvertinti. Daugiau informacijos apie smėlio dėžės režimą, ieškokite "smėlio dėžės režimo" žinyne.

Pateikia ilgą skaičių, nurodantį dabartinę skaitymo/rašymo vietą faile, atidarytame naudojant sakinį Open .

Sintaksė

Ieškoti ( failo numeris )

Būtinas failo numerisargumentas yra sveikasis, kuriame yra neleistina failo numeris.

Pastabos

Ieškoti grąžina reikšmę tarp 1 ir 2,147,483,647 (lygi 2 ^ 31-1), imtinai.

Toliau aprašoma, pateikiamų reikšmių kiekvieno failo prieigos režimą.

Režimas

Pateikiama reikšmė

Atsitiktinis

Į kitą įrašą, ar skaičius

Dvejetainis,
išvesties
papildyti,
įvesties

Baito padėtis, kurioje vyksta kitą operaciją. Pirmajame baite faile yra vietos 1, antrą baitų 2 vietą ir pan.


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 funkciją Ieškoti pateikti dabartinio failo vietą. Pavyzdyje daroma prielaida, kad TESTFILE yra failas, kuriame yra įrašų tipo Record.

Type Record    ' Define user-defined type.
ID As Integer
Name As String * 20
End Type

Atsitiktinis režimas atidarytuose failuose Ieškoti 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.

Failai, atidaromi režimais ne atsitiktinis režimą, paieška pateikia baito padėtis, kurioje vyksta kitą operaciją. Tarkime, TESTFILE yra failas, turintis kelias teksto eilutes.

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.

Pastaba : Mašininio vertimo atsakomybės atsisakymas: Šis straipsnis išverstas naudojant kompiuterinę sistemą be žmogaus įsikišimo. „Microsoft“ pateikia šiuos mašininius vertimus norėdama padėti anglų kalbos nesuprantantiems vartotojams perskaityti turinį apie „Microsoft“ produktus, paslaugas ir technologijas. Šis straipsnis išverstas mašininio vertimo būdu, todėl jame gali būti žodyno, sintaksės ar gramatikos klaidų.

Tobulinkite savo įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×