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