VB6 函数 Filter
发表于 2024年2月22日 22:47
语法：
返回列表Filter(InputStrings, Value[, Include[, Compare]])| 参数 | 描述 |
| InputStrings | 必选。一维数组，要在其中搜索字符串。 |
| Value | 必选。要搜索的字符串。 |
| Include | 可选。Boolean 值，指定返回的子字符串是否包含 Value。如果 Include 为 True，Filter 将返回包含子字符串 Value 的数组子集。如果 Include 为 False，Filter 将返回不包含子字符串 Value 的数组子集。 |
| Compare | 可选。数字值指出使用的比较字符串 类型.参阅值设置部分. |
Compare 参数可以有以下值：
| 常数 | 值 | 描述 |
| vbBinaryCompare | 0 | 执行二进制比较。 |
| vbTextCompare | 1 | 执行文本比较。 |
| vbDatabaseCompare | 2 | 执行基于数据库（在此数据库中执行比较）中包含的信息的比较。 |
说明
如果在 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"。新建From1（窗体），代码：
Private Sub Form_Load()
Dim a(5), b
a(0) = "Saturday"
a(1) = "Sunday"
a(2) = "Monday"
a(3) = "Tuesday"
a(4) = "Wednesday"
b = Filter(a, "n")
Debug.Print Join(b, ", ")
End Sub运行结果：
Sunday, Monday, Wednesday