الدالة Seek

ملاحظة: يتم تعطيل الدالة أو الأسلوب أو الكائن أو الخاصية الموضحة في هذا الموضوع إذا كانت خدمة تعبير Microsoft Jet قيد التشغيل في وضع بيئة الاختبار المعزولة، مما يمنع تقييم التعبيرات التي يحتمل أن تكون غير آمنة. لمزيد من المعلومات حول وضع بيئة الاختبار المعزولة، ابحث عن "وضع بيئة الاختبار المعزولة" في التعليمات.

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

بناء الجملة

Seek( filenumber )

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

ملاحظات

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

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

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

مثال

ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة Visual Basic for Applications (VBA). لمزيد من المعلومات حول العمل مع VBA، حدد مرجع المطور في القائمة المنسدلة بجوار البحث وأدخل مصطلحا واحدا أو أكثر في مربع البحث.

يستخدم هذا المثال الدالة 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.

مثال

هل تحتاج إلى مزيد من المساعدة؟

الخروج من الخيارات إضافية؟

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!