重复|字符串'排除重复的字符串
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
排除重复的字符串
80酷酷网 80kuku.com
