Filter
优质
小牛编辑
133浏览
2023-12-01
一个过滤器函数,它返回一个从零开始的数组,该数组包含基于特定过滤条件的字符串数组的子集。
语法 (Syntax)
Filter(inputstrings,value[,include[,compare]])
参数描述 (Parameter Description)
Inputstrings - 必需参数。 此参数对应于要搜索的字符串数组。
Value - 必需参数。 此参数对应于要对inputstrings参数进行搜索的字符串。
Include - 可选参数。 这是一个布尔值,指示是否返回包含或排除的子字符串。
Compare - 可选参数。 此参数描述要使用的字符串比较方法。
0 = vbBinaryCompare - 执行二进制比较
1 = vbTextCompare - 执行文本比较
例子 (Example)
添加按钮并添加以下功能。
Private Sub Constant_demo_Click()
Dim a,b,c,d as Variant
a = array("Red","Blue","Yellow")
b = Filter(a,"B")
c = Filter(a,"e")
d = Filter(a,"Y")
For each x in b
msgbox("The Filter result 1: " & x)
Next
For each y in c
msgbox("The Filter result 2: " & y)
Next
For each z in d
msgbox("The Filter result 3: " & z)
Next
End Sub
执行上述功能时,会产生以下输出。
The Filter result 1: Blue
The Filter result 2: Red
The Filter result 2: Blue
The Filter result 2: Yellow
The Filter result 3: Yellow