Funcția Seek

Notă: Dorim să vă oferim cel mai recent conținut de ajutor, cât mai rapid posibil, în limba dvs. Această pagină a fost tradusă automatizat și poate conține erori gramaticale sau inexactități. Scopul nostru este ca acest conținut să vă fie util. Vă rugăm să ne spuneți dacă informațiile v-au fost utile, în partea de jos a acestei pagini. Aici se află articolul în limba engleză, ca să îl puteți consulta cu ușurință.

Notă: Funcția, metodă, obiecte sau proprietatea cum este descris în acest subiect este dezactivat dacă serviciul de expresie Microsoft Jet se execută în modul sandbox, ceea ce împiedică evaluarea expresii potențial nesigure. Pentru mai multe informații despre modul sandbox, căutați "modul sandbox" în ajutor.

Returnează un lung care specifică poziția curentă citire/scriere într-un fișier deschis utilizând instrucțiunea Open .

Sintaxă

Rezultat ( filenumber )

Necesară filenumberargument este un număr întreg care conține o validă număr fișier.

Observații

Rezultat returnează o valoare între 1 și 2.147.483.647 (echivalent cu 2 ^ 31-1), inclusiv.

Descrie următoarele valori de returnare pentru fiecare fișier mod de acces.

Mod

Valoarea returnată

Aleatoare

Numărul din următoarea înregistrare citit sau scris

Binar,
deieșire,
de Adăugare,
intrare

Octet poziția în care următoarea operațiune are loc. Primul octet într-un fișier este la poziția 1, al doilea octet este la poziția 2 și așa mai departe.


Exemplu

Notă: Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.

Acest exemplu utilizează funcția rezultat pentru a returna poziția curentă de fișier. Exemplul presupune TESTFILE este un fișier care conține înregistrările de tip definit de utilizator Record.

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

Pentru fișierele deschise în modul de aleatoare, rezultat returnează numărul de următoarea înregistrare.

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.

Pentru fișierele deschise în modurile decât aleatoare modul, rezultat returnează poziția octet la care următoarea operațiune are loc. Presupun TESTFILE este un fișier care conține câteva linii de text.

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.
Extindeți-vă competențele Office
Explorați instruirea
Fiți primul care obține noile caracteristici
Alăturați-vă utilizatorilor Office Insider

Au fost utile aceste informații?

Vă mulțumim pentru feedback!

Vă mulțumim pentru feedback! Se pare că ar fi util să luați legătura cu unul dintre agenții noștri de asistență Office.

×