الدالة Seek

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

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

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

بناء الجملة

البحث ( filenumber )

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

ملاحظات

البحث ب# ارجاع قيمه بين 1 و 2147483647 (يساوي 2 ^ 31-1)، ضمنا.

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

وضع

القيمة المرجعة

عشوائي

عدد السجل التالي القراءه او الكتابه

Binary،
الاخراج،
الحاق،
الادخال

موضع البايت يحدث التي يتم عندها العمليه التاليه. البايت الاول في ملف في الموضع 1، ف# البايت الثاني في موضع 2، و# ما الي ذلك.


مثال

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

يستخدم هذا المثال الداله البحث ل# ارجاع الموضع الملف الحالي. يفترض هذا المثال 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.

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

توسيع المهارات
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

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

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

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×