Filter筛选函数的应法？

Question

Filter筛选函数的应法？举个例子

Answer 1

●Filter是VB6新提供的函数，VB5的使用者无法试验。 
●用法：传回数组 = Filter(原始数组, 筛选条件, 传回符合条件资料或传回不符合条件资料, 筛选方式)
●Filter的功用在于帮你快速筛选数组内的资料，再以数组的方式传回。 Private Sub Command1_Click() 
Dim MyStr(5) As String 
MyStr(0) = "Abcdefgh" 
MyStr(1) = "编程" 
MyStr(2) = "ａＢCDeF" 
MyStr(3) = "123&*678Abcd123" 
MyStr(4) = "Xyz-0001-Z0C" 
MyRslt = Filter(MyStr, "abc", True, VBTextCompare) 
For Each Prt In MyRslt 
Print Prt 
Next 
End Sub
●结果Prt打出："Abcdefgh"、"ａＢCDeF"、"123&*678Abcd123"
○也就是说MyRslt(0)="Abcdefgh"、MyRslt(1)="ａＢCDeF"、MyRslt(2)="123&*678Abcd123" 
　 Private Sub Command1_Click() 
Dim MyStr(5) As String 
MyStr(0) = "Abcdefgh" 
MyStr(1) = "编程" 
MyStr(2) = "ａＢCDeF" 
MyStr(3) = "123&*678Abcd123" 
MyStr(4) = "Xyz-0001-Z0C" 
MyRslt = Filter(MyStr, "abc", False, VBTextCompare) 
For Each Prt In MyRslt 
Print Prt 
Next 
End Sub
●结果Prt打出："编程"、"Xyz-0001-Z0C"