الدالة Seek

إرجاع طويل يحدد موضع القراءة/الكتابة الحالي داخل ملف مفتوح باستخدام عبارة Open .

بناء الجملة

Seek(filenumber)

الوسيطة filenumberالمطلوبة هي عدد صحيح يحتوي على رقم ملف صالح.

ملاحظات

ترجع الدالة Seek قيمة بين 1 و2,147,483,647 (ما يعادل 2^31 – 1)، ضمنا.

يصف ما يلي قيم الإرجاع لكل وضع وصول إلى الملفات.

المنوال	القيمة المرجعة
عشوائيه	عدد السجلات التالية المقروءة أو المكتوبة
ثنائي، الإخراج، إلحاق، الإدخال	موضع البايت الذي تحدث فيه العملية التالية. البايت الأول في الملف في الموضع 1، البايت الثاني في الموضع 2، وهكذا.

    

مثال

يستخدم هذا المثال الدالة Seek لإرجاع موضع الملف الحالي. يفترض TESTFILE المثال أن ملفا يحتوي على سجلات من النوع Recordالمعرف من قبل المستخدم .

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

بالنسبة للملفات المفتوحة في الوضع العشوائي، يرجع Seek عدد السجل التالي.

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.

بالنسبة للملفات المفتوحة في أوضاع أخرى غير الوضع العشوائي، ترجع Seek موضع البايت الذي تحدث فيه العملية التالية. افترض TESTFILE أن ملفا يحتوي على بضعة أسطر من النص.

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.