Piezīme.: Šajā tēmā aprakstītā funkcija, metode, objekts vai rekvizīts tiek atspējots, ja Microsoft Jet Expression Service darbojas smilškastes režīmā, tā neļauj novērtēt potenciāli nedrošas izteiksmes. Lai iegūtu papildinformāciju par smilškastes režīmu, meklējiet "smilškastes režīms" sadaļā Palīdzība.
Atgriež Long vērtību, kas norāda pašreizējo lasīšanas/rakstīšanas pozīciju failā, kas atvērts, izmantojot priekšrakstu Open.
Sintakse
Seek( faila_numurs )
Nepieciešamais failaarguments ir Vesels skaitlis, kurā ietilpst derīga faila numurs.
Piezīmes
Meklēt atgriež vērtību diapazonā no 1 līdz 2 147 483 647 (ekvivalents 2^31–1), ieskaitot.
Tālāk ir aprakstītas katra failu piekļuves režīma atgrieztās vērtības.
|
Moda, |
Atgrieztā vērtība |
|
Dažādi |
Lasītā vai rakstītā ieraksta numurs |
|
Binārs,Izvade,Pievienot,Ievade |
Baita pozīcija, kurā tiek veikta nākamā darbība. Pirmais baits failā atrodas 1. pozīcijā, otrais baits atrodas 2. pozīcijā utt. |
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ā izmantota funkcija Seek , lai atgrieztu pašreizējo faila atrašanās vietu. Piemērs pieņem, TESTFILE ir fails, kurā ir lietotāja definētā tipa ieraksti Record.
Type Record ' Define user-defined type.
ID As Integer
Name As String * 20
End Type
Failiem, kas 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.
Failiem, kas tiek atvērti režīmos , kas nav Nejaušs režīms, meklēšana atgriež baita pozīciju, kurā tiek veikta nākamā darbība. Pieņemsim TESTFILE ka tas 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.
