Funkcija Seek

Piezīme.: Šajā tēmā aprakstītā funkcija, metode, objekts vai rekvizīts ir atspējots, ja Microsoft Jet Expression Service darbojas smilškastes režīmā, kas novērš potenciāli nedrošu izteiksmju novērtējumu. Lai iegūtu papildinformāciju par smilškastes režīmu, sadaļā Palīdzība meklējiet "smilškastes režīms".

Atgriež garu, kas norāda pašreizējo lasīšanas/rakstīšanas novietojumu failā, kas atvērts, izmantojot priekšrakstu Open .

Sintakse

Meklēt ( filenumber )

Obligāts filenumberarguments ir vesels skaitlis, kas satur derīgu faila numurs.

Piezīmes

Seek atgriež vērtību diapazonā no 1 līdz 2 147 483 647 (līdzvērtīgs 2 ^ 31 – 1) (ieskaitot).

Tālāk ir aprakstītas atgriežamās vērtības katram failu piekļuves režīmam.

Moda,

Atgrieztā vērtība

Izlases

Nākamā ieraksta numurs lasīts vai rakstīts

Binārs,
izvade,
pievienošana,
ievade

Baitu vieta, kur tiek veikta nākamā operācija. Pirmais baits failā ir 1. pozīcijas otrajā baitā 2. vietā un tā tālāk.


Piemērs

Piezīme.: Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.

Šajā piemērā tiek izmantota funkcija Seek , lai atgrieztu pašreizējo faila novietojumu. Piemērā tiek pieņemts, ka TESTFILE ir fails, kas satur ierakstus no lietotāja definētā tipa Record.

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

Ja faili ir atvērti nejaušā režīmā, meklēšana atgriež nākamā ieraksta numuru.

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.

Ja faili ir atvērti režīmos, kas nav nejauši, meklēšana atgriež baitu vietu, kurā tiek veikta nākamā operācija. Pieņemiet, TESTFILE ir fails, kurā ir dažas teksta rindiņas.

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.

Vai nepieciešama papildu palīdzība?

Paplašiniet savas Office prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka jums varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta speciālistiem.

×