Filter 数组过滤函数精解示例

'*************************************************************************

'**模 块 名：Filter　数组过滤函数精解示例

'**说    明：蓝凤凰设计商城 浴火凤凰-郭卫 | 蓝凤凰－魔灵 | 郭卫－icecept

'**创 建 人：浴火凤凰-郭卫

'**日    期：2015年10月11日  13:38:55

'**修 改 人：浴火凤凰-郭卫

'**日    期：

'**描    述：QQ：493405998 | 微信\旺旺：icecept

'**版    本：V1.0.0 | http://blog.sina.com.cn/icecept

'*************************************************************************

 

'●用法：传回数组 = Filter(原始数组, 要找的文本, [如果是包含则为TRUE，否则为FALSE.默认为True], [比较方式]）

'●语法  Filter(InputStrings, Value[, Include[, Compare]])

 

'特别注意：Filter函数是按字符串来比较数组及搜索对象的，而且是按是否具有包含关系而不是相等关系来判断的。

 

Private Sub Command4_Click()

    Dim aa As Variant, bb() As String, prt As Variant

    aa = Array("蓝凤凰", "浴火凤凰", "魔灵", "郭卫", "icecept", "龙浩晨", "圣采儿", "周维青", "上官冰儿", "上官菲儿", "上官雪儿", "巫月寒", "东方寒月")

    bb = Filter(aa, Text1.Text, False) '显示不包含文本框输入内容的所有项目

 

    For Each prt In bb

        Debug.Print prt,

    Next

    Debug.Print

End Sub

 

Private Sub Command5_Click()

    Dim Arr

    Arr = Array(1, 2, 3, 4, 5, 6, 11, 13, 15, 11, 2, 3, 5)

    Debug.Print "原数组：" & Join(Arr, ",") & vbCrLf

    'true 显示包含1的项，False显示不包含1的项，如果省略此项默认为true

    x = Filter(Arr, 1, False)

    Debug.Print "不包含1的数组：" & Join(x, ",")

    '原数组：1,2,3,4,5,6,11,13,15,11,2,3,5

    '

    '不包含1的数组：2,3,4,5,6,2,3,5

End Sub

 

Private Sub Form_Load()

    Me.Show

    Dim x(2)

    x(0) = "kjwang"

    x(1) = "wangkj"

    x(2) = "peter"

    '第三项不写默认为True,True 显示包含有kj的项  Flase 显示不包含kj的项

    v = Filter(x, "kj")

    Print v(0), v(1)

    'vbTextCompare 忽略大小写，默认(vbTextCompare)是区分大小写

    v = Filter(x, "kj", False)

    Print v(0)

End Sub

 

Private Sub Command2_Click()

    Dim aa(10) As String

    Dim bb() As String

    Dim i As Integer

    For i = 0 To 9

        If i Mod 2 = 0 Then

            aa(i) = "aa" & Str$(i)

        Else

            aa(i) = "bb" & Str$(i)

        End If

    Next i

    'True　显示数组中包含aa的项

    bb = Filter(aa, "aa", True)

    'Flase　显示数组中不包含aa的项

    '    bb = Filter(aa, "aa", False)

    Debug.Print Join(bb, ",")

End Sub

 

Private Sub Command1_Click()

    Dim Arr

    Arr = Array(1, 2, 3, 4, 5, 6, 21, 13, 15, 12, 25, 3, 5)

    Debug.Print "原数组：" & Join(Arr, ",") & vbCrLf

    'true 显示包含2的项，False显示不包含2的项，如果省略此项默认为true

    x = Filter(Arr, 2, True)

    Debug.Print "包含2的数组：" & Join(x, ",")

    '原数组：1,2,3,4,5,6,21,13,15,12,25,3,5

    '

    '包含2的数组：2,21,12,25

End Sub

 

Private Sub Command3_Click()

    Dim b() As String

    Dim a(60) As String

    Dim i As Integer

    For i = 0 To 60

        a(i) = CStr(i)

    Next i

    Debug.Print "原数组：" & Join(a, ",") & vbCrLf

    'True，只把包含5的元素附给B数组

    b = Filter(a, 5, True)

    Debug.Print "包含5的数组：" & Join(b, ",")

 

    '    原数组：0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60

    '

    '　　只包含5的数组：5,15,25,35,45,50,51,52,53,54,55,56,57,58,59

End Sub