在VBScript中有Filter这个函数可以用来对数组进行过滤，并返回原数组的一个子集数组。语法说明：
Filter 函数
返回下标从零开始的 数组，其中包含以特定过滤条件为基础的字符串数组的子集。
Filter(InputStrings, Value[, Include[, Compare]])
参数
InputStrings
必选项。一维数组，要在其中搜索字符串。
Value
必选项。要搜索的字符串。
Include
可选项。Boolean 值，指定返回的子字符串是否包含 Value。如果 Include 为 True，Filter 将返回包含子字符串 Value 的数组子集。如果 Include 为 False，Filter 将返回不包含子字符串 Value 的数组子集。
Compare
可选项。数字值指出使用的比较字符串 类型.请参阅值设置部分.
设置
Compare 参数可以有以下值：
常数
值
描述
vbBinaryCompare
0
执行二进制比较。
vbTextCompare
1
执行文本比较。
说明
如果在 InputStrings 中没有找到与 Value 匹配的值，Filter 将返回空数组。如果 InputStrings 为 Null 或者不是一维数组，则会发生错误。
由 Filter 函数返回的数组仅包含足以包含匹配项数目的元素。
下面例子利用 Filter 函数返回包含搜索条件 Mon 的数组:
复制代码代码如下:
Dim MyIndex
Dim MyArray (3)
MyArray(0) = Sunday
MyArray(1) = Monday
MyArray(2) = Tuesday
MyIndex = Filter(MyArray, Mon) 'MyIndex(0) 包含 Monday。
在红色的位置需要注意一下，MyIndex是一个数组！~
复制代码代码如下:
Dim MyIndex,IndexItem
Dim MyArray(2)
MyArray(0) = Sunday
MyArray(1) = Monday
MyArray(2) = Monday
MyIndex = Filter(MyArray,Tuesday)
For IndexItem = 0 To UBound(MyIndex)
Response.Write MyIndex(Monday)&<br />
Next