الدالة Loc

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

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

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

بناء الجملة

Loc ( filenumber )

يتم المطلوبه filenumberargument اي عدد صحيح صالح file number.

ملاحظات

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

وضع

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

عشوائي

عدد السجل الاخير القراءه من او كتابه الي الملف.

تسلسليه

موضع البايت الحالي في ملف مقسوما علي 128. و# مع ذلك، المعلومات التي يتم ارجاعها ب# واسطه Loc ل# الملفات المتسلسله غير مستخدمه و# غير مطلوب.

ثنائي

موضع البايت الاخير القراءه او الكتابه.


مثال

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

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

Dim MyLocation, MyLine
' Open file just created.
Open "TESTFILE" For Binary As #1
' Loop until end of file.
Do While MyLocation < LOF(1)
' Read character into variable.
MyLine = MyLine & Input(1, #1)
' Get current position within file.
MyLocation = Loc(1)
' Print to the Immediate window.
Debug.Print MyLine; Tab; MyLocation
Loop
Close #1 ' Close file.

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

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

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

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

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

×