VB：好用的 Filter 函数，过滤数组
━━━━━━━━━━━━━━━━━━━━━━━━━

Dim aa As String
aa = Array("刘畅", "李辉", "张丰", "王强", "张家佳", "牛宏伟", "赵志国", "宋伟明", "刘方", "姚辰程", "陈晨", "孙伟", "侯言书", "张逸凡", "韩强", "金泽佑", "谭梅", "吕南", "王刚", "李欢欢", "马晟辉")
bb = Filter(aa, Text1.Text, True, vbTextCompare)  '搜索符合条件的字符
For Each prt In bb
    MsgBox (prt)
Next

━━━━━━━━━━━━━━━━━━━━━━━━━
Filter函数

描述

返回一个下标从零开始的数组，该数组包含基于指定筛选条件的一个字符串数组的子集。

语法

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

Filter函数语法有如下几部分：

部分   描述
InputStrings   必需的。要执行搜索的一维字符串数组。
Value   必需的。要搜索的字符串。
Include   可选的。Boolean值，表示返回子串包含还是不包含Value字符串。如果Include是True，Filter返回的是包含Value子字符串的数组子集。如果Include是False，Filter返回的是不包含Value子字符串的数组子集。
Compare   可选的。数字值，表示所使用的字符串比较类型。有关其设置，请参阅下面的“设置值”部分。

设置值

Compare参数的设置值如下：

常数   值   描述
vbUseCompareOption   –1   使用Option Compare语句的设置值来执行比较。
vbBinaryCompare   ?   执行二进制比较。
vbTextCompare   ?   执行文字比较。
vbDatabaseCompare   ?   只用于Microsoft Access。基于您的数据库信息来执行比较。
说明

如果在InputStrings中没有发现与Value相匹配的值，Filter返回一个空数组。如果InputStrings是Null或不是一个一维数组，则产生错误。

Filter函数所返回的数组，其元素数目刚好是所找到的匹配项目数。