Funkcija Seek

Pastaba: Šioje temoje aprašyta funkcija, metodas, objektas arba ypatybė yra išjungta, jei "Microsoft" Jet Expression tarnyba veikia smėlio dėžės režimu, o tai neleidžia įvertinti potencialiai nesaugių reiškinių. Norėdami gauti daugiau informacijos apie smėlio dėžės režimą, žinyne ieškokite "smėlio dėžės režimas".

Pateikia ilgą reikšmę, nurodančią esamą skaitymo/rašymo vietą faile, atidarytame naudojant atidarytą sakinį.

Sintaksė

Ieškoti ("filenumber")

Būtinas " filenumber "argumentas yra sveikasis skaičius, turintis tinkamą failo numeris.

Pastabos

Ieškoti pateikia reikšmę nuo 1 iki 2 147 483 647 (atitinka 2 ^ 31 – 1), imtinai.

Toliau aprašytos kiekvienos failų prieigos režimo grąžinamos reikšmės.

Moda

Pateikiama reikšmė

Atsitiktinis

Paskesnio įrašo, skaitomo arba parašyto, skaičius

Dvejetainė,
išvestis,
papildymo,
įvestis

Baitų vieta, kurioje vykdoma kita operacija. Pirmasis failo baitas yra padėtyje 1, antras baitas yra 2 padėtyje ir taip įjungta.


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 funkcija Seek , kad būtų grąžinta dabartinė failo padėtis. Pavyzdys reiškia, TESTFILE yra failas, kuriame yra vartotojo apibrėžto tipo Record.

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

Jei failai atidaryti atsitiktiniu režimu, ieškoma pateikia paskesnio į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.

Jei failai atidaryti kitais nei atsitiktinių režimų režimais, funkcija Seek pateikia baitą padėtį, kurioje vykdoma kita operacija. Tarkime, TESTFILE yra failas, kuriame yra kelios teksto eilutės.

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.

Reikia daugiau pagalbos?

Tobulinkite savo „Office“ į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ų.

×