ASP 使用Filter函数来检索数组的实现代码

时间:2022-06-01 18:56:11

语法说明: 

Filter 函数 
返回下标从零开始的 数组,其中包含以特定过滤条件为基础的字符串数组的子集。 
Filter(InputStrings, Value[, Include[, Compare]]) 
参数 
InputStrings 
必选项。一维数组,要在其中搜索字符串。 
Value 
必选项。要搜索的字符串。 
Include 
可选项。Boolean 值,指定返回的子字符串是否包含 Value。如果 Include 为 True,Filter 将返回包含子字符串 Value 的数组子集。如果 Include 为 False,Filter 将返回不包含子字符串 Value 的数组子集。 
Compare 
可选项。数字值指出使用的比较字符串 类型.请参阅值设置部分. 
设置 
Compare 参数可以有以下值: 
常数 
值 
描述 
vbBinaryCompare 

执行二进制比较。 
vbTextCompare 

执行文本比较。 
说明 
如果在 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