الدالة Input

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

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

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

بناء الجملة

Input( number, [# ] filenumber)‎

يحتوي بناء جملة الدالة Input على الوسيطات التالية:

الوسيطة

الوصف

number

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

filenumber

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


ملاحظات

بالنسبة للبيانات التي يتم كتابتها باستخدام الدالة Input، يتم دوماً كتابتها إلى ملف مع Print # أو Put. استخدم هذه الدالة فقط مع الملفات التي يتم فتحها في وضع الإدخال أو الثنائي.

بخلاف الجملة Input #، تقوم الدالة Input بإرجاع كافة الأحرف التي يتم قراءتها، بما في ذلك الفاصلات وعلامات الإدخال وتغذية الأسطر وعلامات الاقتباس والمسافات البادئة.

بالنسبة للملفات التي يتم فتحها للوصول الثنائي، تؤدي محاولة قراءة الملف باستخدام الدالة Input حتى يقوم EOF بإرجاع True إلى إنشاء خطأ. استخدم الدالتين 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.

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

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

رائع! هل لديك أي ملاحظات أخرى؟

كيف يمكننا تحسين ذلك؟

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

×