توجد وظيفة تصفية في VBScript يمكن استخدامها لتصفية مصفوفة وإرجاع مصفوفة مجموعة فرعية من المصفوفة الأصلية. وصف بناء الجملة:
وظيفة التصفية
تُرجع مصفوفة ذات أساس صفري تحتوي على مجموعة فرعية من مصفوفة سلسلة بناءً على شرط مرشح محدد.
عامل التصفية (سلاسل الإدخال، القيمة[، تضمين[، المقارنة]])
المعلمة
سلاسل الإدخال
مطلوب. مصفوفة ذات بعد واحد للبحث عن السلاسل.
قيمة
مطلوب. السلسلة المراد البحث عنها.
يشمل
خياري. قيمة منطقية تحدد ما إذا كانت السلسلة الفرعية التي تم إرجاعها تحتوي على قيمة. إذا كان التضمين صحيحًا، فسيُرجع عامل التصفية مجموعة فرعية من المصفوفة التي تحتوي على قيمة السلسلة الفرعية. إذا كانت قيمة التضمين خطأ، فسيُرجع عامل التصفية مجموعة فرعية من الصفيف الذي لا يحتوي على قيمة السلسلة الفرعية.
يقارن
خياري. قيمة رقمية تشير إلى نوع سلسلة المقارنة المستخدمة. راجع قسم إعدادات القيمة.
يثبت
يمكن أن تحتوي معلمة المقارنة على القيم التالية:
ثابت
قيمة
يصف
vbBinaryCompare
0
إجراء مقارنة ثنائية.
vbTextCompare
1
إجراء مقارنة النص.
يوضح
إذا لم يتم العثور على قيمة مطابقة في InputStrings، فسيقوم عامل التصفية بإرجاع مصفوفة فارغة. إذا كانت قيمة InputStrings خالية أو ليست صفيفًا أحادي البعد، فسيحدث خطأ.
يحتوي المصفوفة التي يتم إرجاعها بواسطة الدالة Filter على عناصر كافية فقط لاحتواء عدد التطابقات.
يستخدم المثال التالي الدالة Filter لإرجاع مصفوفة تحتوي على شرط البحث Mon:
انسخ رمز الكود كما يلي:
DimMyIndex
خافت MyArray (3)
MyArray(0) = الأحد
MyArray(1) = الاثنين
MyArray(2) = الثلاثاء
MyIndex = Filter(MyArray, Mon) 'MyIndex(0) يحتوي على يوم الاثنين.
عليك الانتباه إلى الموضع الأحمر، MyIndex عبارة عن مصفوفة! ~
انسخ رمز الكود كما يلي:
خافت MyIndex، IndexItem
ديميأراي(2)
MyArray(0) = الأحد
MyArray(1) = الاثنين
MyArray(2) = الاثنين
MyIndex = عامل التصفية (MyArray، الثلاثاء)
بالنسبة إلى IndexItem = 0 إلى UBound(MyIndex)
Response.Write MyIndex(Monday)&<br />
التالي