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