排除重复的字符串

'排除重复的字符串

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