语法说明： 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

　　推荐阅读

　　ASP常见错误详解及解决方案小结 推荐第1/2页

有三种主要的错误类型： １．编译错误： 这种错误出现一般都是代码的语法问题。因为编译错误而导致辞ASP停止运行。 ２．运行错误： 这个错误是发生在你准备运行ASP时的。例如：如果你试图给一个变量赋值，但是却超>>>详细阅读

本文标题：ASP 使用Filter函数来检索数组的实现代码

地址：http://www.17bianji.com/kaifa2/ASP/31849.html

 1/2    1