ملاحظة
يتم تعطيل الوظيفة أو الطريقة أو العنصر أو الخاصية الموضحة في هذا الموضوع إذا كانت خدمة Microsoft Jet Expression Service قيد التشغيل في وضع الحماية، مما يمنع تقييم التعبيرات التي يحتمل أن تكون غير آمنة. لمزيد من المعلومات حول وضع الحماية، ابحث عن "وضع الحماية" في "تعليمات".
ترجع هذه الدالة طويلا يحدد موضع القراءة/الكتابة الحالي داخل ملف مفتوح.
بناء الجملة
Loc(filenumber)
إن وسيطة رقم الملفالمطلوبة هي أي رقم ملف عدد صحيح صالح.
ملاحظات
يصف ما يلي القيمة المرتجعة لكل وضع وصول إلى ملف:
| المنوال | القيمة المرجعة |
|---|---|
| عشوائي | رقم السجل الأخير الذي تمت قراءته من الملف أو تمت كتابته فيه. |
| تسلسلي | موضع البايت الحالي في الملف مقسوما على 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.