vb.net Arraylist去重

最新推荐文章于 2023-02-23 13:49:34 发布

justDo1MoreTime

最新推荐文章于 2023-02-23 13:49:34 发布

阅读量2.1k

点赞数 1

本文链接：https://blog.csdn.net/xudong1107/article/details/73734526

版权

Public Function FilterRpeat(ByVal allUrls As ArrayList, ByVal SysType As String) As Integer '去除重复函数，返回判断值
        Dim Lst_Domains As New ArrayList
        Dim Value_Chongfu As cboItemValue
        Dim sys As String = String.Empty
        Dim int_judge As Integer
        Lst_Domains = allUrls
        sys = SysType
        int_judge = 1
        For Each Value_Chongfu In Lst_Domains
            If Value_Chongfu.Value.ToString = sys.ToString Then
                int_judge = 0
                Exit Function
            End If
        Next
        Return int_judge
    End Function

'arraylist调用函数

 For int_LoopCnt = 0 To ArraySize(astr_SysTypes) - 1
            If (FilterRpeat(aobj_ItemList, astr_SysTypes(int_LoopCnt)) = 1) Then
                aobj_ItemList.Add(New cboItemValue(astr_SysTypes(int_LoopCnt),
                                              astr_SysTypes(int_LoopCnt),
                                              int_LoopCnt + 1, False))
            End If
        Next