排除重复的字符串
日期：2009-07-05 浏览次数：20425 次
'排除重复的字符串
Function GetNotRepeat(ByVal ArrList As ArrayList) As ArrayList
Dim i As Integer : Dim TmpArrayList As New ArrayList
For i = 0 To ArrList.Count - 1
If Not TmpArrayList.Contains(ArrList(i)) Then
TmpArrayList.Add(ArrList(i))
End If
Next
Return TmpArrayList
End Function
Function GetNotRepeat(ByVal ArrList As ArrayList) As ArrayList
Dim i As Integer : Dim TmpArrayList As New ArrayList
For i = 0 To ArrList.Count - 1
If Not TmpArrayList.Contains(ArrList(i)) Then
TmpArrayList.Add(ArrList(i))
End If
Next
Return TmpArrayList
End Function
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
