ASP 使用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 />"