الدالة Seek

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

بناء الجملة

Seek(filenumber)

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

ملاحظات

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

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

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

    

مثال

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

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

بالنسبة إلى الملفات المفتوحة في الوضع العشوائي، يرجع البحث رقم السجل التالي.

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.

بالنسبة إلى الملفات التي يتم فتحها في أوضاع مختلفة عن الوضع العشوائي، ترجع "البحث" موضع البايت الذي تحدث عنده العملية التالية. افترض 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.