มีฟังก์ชันตัวกรองใน VBScript ที่สามารถใช้เพื่อกรองอาร์เรย์และส่งกลับอาร์เรย์ย่อยของอาร์เรย์ต้นฉบับได้ คำอธิบายไวยากรณ์:
ฟังก์ชั่นตัวกรอง
ส่งกลับอาร์เรย์แบบศูนย์ซึ่งมีชุดย่อยของอาร์เรย์สตริงตามเงื่อนไขตัวกรองที่ระบุ
ตัวกรอง (InputStrings, Value[, รวม [, เปรียบเทียบ]])
พารามิเตอร์
อินพุตสตริง
ที่จำเป็น. อาร์เรย์หนึ่งมิติที่ใช้ค้นหาสตริง
ค่า
ที่จำเป็น. สตริงที่จะค้นหา
รวม
ไม่จำเป็น. ค่าบูลีนที่ระบุว่าสตริงย่อยที่ส่งคืนมีค่าหรือไม่ ถ้ารวมเป็น True ตัวกรองจะส่งกลับชุดย่อยของอาร์เรย์ที่มีค่าสตริงย่อย ถ้ารวมเป็นเท็จ ตัวกรองจะส่งกลับชุดย่อยของอาร์เรย์ที่ไม่มีค่าสตริงย่อย
เปรียบเทียบ
ไม่จำเป็น. ค่าตัวเลขที่ระบุประเภทของสตริงการเปรียบเทียบที่ใช้ ดูส่วนการตั้งค่าค่า
ตั้งค่า
พารามิเตอร์เปรียบเทียบสามารถมีค่าต่อไปนี้:
คงที่
ค่า
อธิบาย
vbBinaryเปรียบเทียบ
0
ทำการเปรียบเทียบแบบไบนารี
vbTextเปรียบเทียบ
1
ทำการเปรียบเทียบข้อความ
แสดงให้เห็น
หากไม่พบค่าที่ตรงกันใน InputStrings ตัวกรองจะส่งกลับอาร์เรย์ว่าง ถ้าInputStringsเป็นNullหรือไม่ใช่อาร์เรย์หนึ่งมิติ ข้อผิดพลาดเกิดขึ้น
อาร์เรย์ที่ส่งคืนโดยฟังก์ชันตัวกรองมีองค์ประกอบเพียงพอที่จะมีจำนวนรายการที่ตรงกันเท่านั้น
ตัวอย่างต่อไปนี้ใช้ฟังก์ชัน Filter เพื่อส่งคืนอาร์เรย์ที่มีเงื่อนไขการค้นหา Mon:
คัดลอกรหัสรหัสดังต่อไปนี้:
DimMyIndex
หรี่ MyArray (3)
MyArray(0) = วันอาทิตย์
MyArray(1) = วันจันทร์
MyArray(2) = วันอังคาร
MyIndex = Filter(MyArray, Mon) 'MyIndex(0) ประกอบด้วยวันจันทร์
คุณต้องใส่ใจกับตำแหน่งสีแดง MyIndex เป็นอาร์เรย์! -
คัดลอกรหัสรหัสดังต่อไปนี้:
หรี่ MyIndex, IndexItem
DimMyArray(2)
MyArray(0) = วันอาทิตย์
MyArray(1) = วันจันทร์
MyArray(2) = วันจันทร์
MyIndex = ตัวกรอง(MyArray,วันอังคาร)
สำหรับ IndexItem = 0 ถึง UBound (MyIndex)
ตอบกลับเขียน MyIndex(วันจันทร์)&<br />
ต่อไป