Funkcija Seek

Piezīme.: Mēs vēlamies sniegt jums visjaunāko palīdzības saturu jūsu valodā, cik vien ātri to varam. Šī lapa ir tulkota automatizēti, un tajā var būt gramatiskas kļūdas un neprecizitātes. Mūsu nolūks ir šo saturu padarīt jums noderīgu. Vai lapas lejasdaļā varat mums pavēstīt, vai informācija jums noderēja? Ērtai atsaucei šeit ir šis raksts angļu valodā.

Piezīme.: Funkcija, metodi, objektu vai rekvizītu, kas aprakstīts šajā tēmā ir atspējots, ja Microsoft Jet Expression Service ir atvērta smilškastes režīmu, kas neļauj iespējami nedrošās izteiksmes novērtēšanas. Lai iegūtu papildinformāciju par smilškastes režīmu, meklējiet "smilškastes režīma" palīdzībā.

Atgriež Long, norādot pašreizējo lasīšanas/rakstīšanas atrašanās vietu failā, kas atvērts, izmantojot Open priekšrakstu.

Sintakse

Sasniegšana ( faila_numurs )

Nepieciešamos faila_numursarguments ir vesels skaitlis, kurā ir derīgs faila numurs.

Piezīmes

Seek atgriež vērtību no 1 līdz 2147483647 (līdzvērtīgas 2 ^ 31-1), ieskaitot.

Šeit ir aprakstītas atgrieztās vērtības katram failu piekļuves režīmam.

Režīms

Return Value

Izlases

Nākamais ieraksts, lasiet vai rakstīts skaits

Bināro,
izvades,
pievienošanas,
ievade

Baitu pozīcija, kurā notiek nākamā darbība. Pirmais baits failā ir pozīcijā 1, otro baits ir 2 pozīciju, 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ā funkcija Seek , lai atgrieztu pašreizējo faila atrašanās vietu. Piemērā tiek pieņemts, ka TESTFILE ir fails, kas satur ierakstus ar lietotāja definētu tipu Record.

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

Failiem, kas atvērti gadījuma režīmā, Seek atgriež nākamo ierakstu skaitu.

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.

Failiem, kas atvērti režīmos, izņemot gadījuma režīmu, Seek atgriež baitu pozīciju, kurā notiek nākamā darbība. Pieņemsim, TESTFILE failu, 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.
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 varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta aģentiem.

×