Filter 函数

返回一个基于零的数组，其中包含基于指定筛选条件的字符串数组的子集。

语法

Filter(InputStrings, Value[, Include[, Compare]])

参数：

• InputStrings：必需。由待搜索字符串组成的单维数组。
• Value：必需。要搜索的字符串。
• Include：可选。布尔值，指示是否返回包含或不包含 Value 的子字符串。如果 Include 为 True，Filter 将返回包含 Value 作为子字符串的数组子集。如果 Include 为 False，Filter 将返回不包含 Value 作为子字符串的数组子集。
• Compare：可选。指示要使用的字符串比较类型的数值。有关值，请参阅设置部分。

  设置：Compare 参数可以具有以下值：

  compare 参数可以具有以下值：

  表 11-7 比较常量和说明

  常量	值	说明
  vbBinaryCompare	0	执行二进制比较
  vbTextCompare	1	执行文本比较

注释

如果在 InputStrings 中未找到 Value 匹配项，Filter 将返回一个空数组。如果 InputStrings 为 Null，则会发生无提示错误。Filter 函数返回的数组仅包含足以包含匹配项数的元素。

以下示例说明了 Filter 函数的用法。Output 显示调用 Filter 后变量 b 中包含的值。

示例 1：

a=Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
b=Filter(a,"S")
'Output:
Sunday
Saturday

示例 2：

a=Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
b=Filter(a,"S",False)
'Output:
Monday
Tuesday
Wednesday
Thursday
Friday

示例 3：

a=Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
b=Filter(a,"S",True,1)
'Output:
Sunday
Tuesday
Wednesday
Thursday
Saturday