الدالة Input

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

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

ارجاع سلسله تحتوي علي احرف من ملف مفتوح في وضع الادخال او ثنائي .

بناء الجملة

ادخال ( number, [ #] filenumber)

يحتوي بناء جمله الداله الادخال علي الوسيطات التاليه:

الوسيطة

الوصف

رقم

مطلوب. اي صالح تعبير رقمي يحدد عدد الاحرف المراد ارجاعها.

filenumber

مطلوب. اي صالح رقم الملف.


ملاحظات

تتم كتابه البيانات قراءته ب# استخدام الداله Input عاده الي ملف ب# طباعه # او وضع. استخدم هذه الداله مع الملفات المفتوحه في وضع الادخال او الثنائي فقط.

ب# خلاف بيان ادخال # ، ترجع الداله الادخال كافه الاحرف قراءته، ب# ما في ذلك الفواصل احرف الارجاع، linefeeds، و# علامات اقتباس و# المسافات البادئه.

مع الملفات المفتوحه ل# الوصول الي ثنائي ، ينشئ محاوله ل# قراءه الملف ب# استخدام الداله Input حتي EOF ترجع القيمه True خطا. استخدم الدالتين LOF و Loc بدلا من EOF عند قراءه الملفات binary مع الادخال، او استخدم الحصول علي عند استخدام الداله EOF .

ملاحظة: استخدم الداله InputB ل# بيانات البايت المضمنه في الملفات النصيه. ب# استخدام InputB، رقم يحدد عدد وحدات البايت ل# ارجاع بدلا من عدد الاحرف المراد ارجاعها.

مثال

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

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

Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Get one character.
Debug.Print MyChar ' Print to the Immediate window.
Loop
Close #1 ' Close file.

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

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

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

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

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

×