VB Filter 函数用法

　　以前一直没用过，也不懂用来干嘛好，现在温习一下。

例子1：
Dim aa(10) As String
Dim bb
Dim i As Integer
For i = 0 To 9
   aa(i) = "aa" + Str(i)
Next
bb = Filter(aa, "aa")
Label1.Caption = bb(0)
Label2.Caption = bb(1)
Label3.Caption = bb(2)
这时Label1显示aa 0,Label2显示aa 1,Label3显示aa 2。bb我也不知设为什么类型，所以就没设定。

例子2：
Dim b() As String
Dim a(10) As String
Dim i As Integer
For i = 0 To 10
a(i) = Trim(Str(i))
Next i
a(1) = "5"
b = Filter(a, "5")
MsgBox UBound(b, 1)
b = Filter(a, "5")'就是将A数组中所有="5"的项附给B数组

例子3：
'用Filter函数取出有可能与所选项重复的值  
'NewArray和MatchArray都是数组，一般用在数组的筛选上！  
MatchArray = Filter(NewArray, orgArray(i), True, vbTextCompare)

[本日志由 JiaJia 于 2008-07-14 09:39 PM 编辑]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: VBVB FilterFilter