Filter 函数

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

常数	值	描述
vbBinaryCompare	0	执行二进制比较。
vbTextCompare	1	执行文本比较。

[h3]说明[/h3]如果在 [b]InputStrings[/b] 中没有找到与 [b]Value[/b] 匹配的值，[b]Filter[/b] 将返回空数组。如果 [b]InputStrings[/b] 为 [b]Null[/b] 或者不是一维数组，则会发生错误。 由 [b]Filter[/b] 函数返回的数组仅包含足以包含匹配项数目的元素。 下面例子利用 [b]Filter[/b] 函数返回包含搜索条件 "Mon" 的数组:

[code]Dim MyIndexDim MyArray (3)MyArray(0) = "Sunday"MyArray(1) = "Monday"MyArray(2) = "Tuesday"MyIndex = [b]Filter([/b]MyArray[b],[/b] "Mon"[b])[/b] 'MyIndex(0) [/code]包含[code] "Monday"[/code]。