Funcția Seek

Important : Acest articol este tradus automat, consultați exonerarea de răspundere. Versiunea în limba engleză a acestui articol se poate găsi aici pentru referință.

Notă : Funcția, metodă, obiecte sau proprietăți 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.

Modul

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.

Notă : Exonerare de răspundere pentru traducere automată: Acest articol a fost tradus de un sistem computerizat, fără intervenție umană. Microsoft oferă aceste traduceri automate pentru a ajuta utilizatorii vorbitori de alte limbi decât engleza să beneficieze de conținutul despre produsele, serviciile și tehnologiile Microsoft. Pentru că articolul a fost tradus de un computer, poate conține erori de vocabular, sintaxă sau gramatică.

Extindeți-vă competențele
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.

×