排除重复的字符串

    '排除重复的字符串

    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