الدالة Seek

هام: تمت ترجمة هذه المقالة ترجمة آلية، راجع إقرار إخلاء المسؤولية. يرجى الاطلاع على النسخة الإنجليزية من هذه المقالة. هنا للرجوع إليها.

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

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

بناء الجملة

Seek( filenumber )‎

المطلوبه 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

بالنسبة للملفات المفتوحة في الوضع Random "عشوائي"، ترجع 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.

بالنسبة للملفات المفتوحة في الوضع Random "عشوائي"، ترجع 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.

ملاحظة: إقرار إخلاء المسؤولية للترجمة الآلية: تمت ترجمة هذه المقالة بواسطة نظام كمبيوتر دون تدخل العامل البشري. توفر Microsoft هذه الترجمات الآلية لمساعدة المستخدمين الذين لا يتحدثون الإنجليزية على استخدام منتجات Microsoft، وخدماتها، وتقنياتها والاستمتاع بها. قد تحتوي هذه المقالة على أخطاء في المفردات، أو بناء الجملة، أو القواعد نظرًا لترجمتها آليًا.

مشاركة Facebook Facebook Twitter Twitter البريد الإلكتروني البريد الإلكتروني

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

رائع! هل لديك أي ملاحظات أخرى؟

كيف يمكننا تحسين ذلك؟

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

×