ملاحظة: يتم تعطيل الدالة أو الأسلوب أو الكائن أو الخاصية الموضحة في هذا الموضوع إذا كانت خدمة تعبير Microsoft Jet قيد التشغيل في وضع بيئة الاختبار المعزولة، مما يمنع تقييم التعبيرات التي يحتمل أن تكون غير آمنة. لمزيد من المعلومات حول وضع بيئة الاختبار المعزولة، ابحث عن "وضع بيئة الاختبار المعزولة" في التعليمات.
إرجاع سلسلة تحتوي على أحرف من ملف تم فتحه في وضع الإدخال أو الوضع الثنائي .
بناء الجملة
Input( number, [# ] filenumber)
يحتوي بناء جملة دالة الإدخال على هذه الوسيطات:
|
الوسيطة |
الوصف |
|
number |
مطلوبة. أي تعبير رقمي صالح يحدد عدد الأحرف المراد إرجاعها. |
|
رقم الملف |
مطلوبة. أي رقم الملف صالح . |
ملاحظات
عادة ما تتم كتابة البيانات المقروءة باستخدام دالة الإدخال إلى ملف مع طباعة # أو وضع. استخدم هذه الدالة فقط مع الملفات المفتوحة في وضع الإدخال أو الوضع الثنائي .
على عكس عبارة الإدخال # ، ترجع الدالة Input جميع الأحرف التي تقرأها، بما في ذلك الفواصل وإرجاع السطر وعلامات الاقتباس والمسافات البادئة.
مع فتح الملفات للوصول الثنائي ، تؤدي محاولة القراءة عبر الملف باستخدام دالة الإدخال حتى ترجع EOFTrue إلى حدوث خطأ. استخدم الدالتين LOFوLoc بدلا من EOF عند قراءة الملفات الثنائية باستخدام Input، أو استخدم Get عند استخدام الدالة 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.
