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

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

بناء الجملة

Loc( filenumber )

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

ملاحظات

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

المنوال

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

عشوائي

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

تسلسلي

الموضع الحالي لل byte في الملف المقسم على 128. على الرغم من ذلك، المعلومات التي يتم إرجاعها بواسطة Loc للملفات تسلسلية غير مستخدمة أو مطلوبة.

ثنائي

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


مثال

ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة نمطية في 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.

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

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

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

ما مدى رضاك عن جودة الترجمة؟
ما الذي أثّر في تجربتك؟

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

×