编程语言

img iwebsms

排除重复的字符串

发表于2004/9/28 19:20:00  766人阅读

    '排除重复的字符串

    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

阅读全文
0 0

相关文章推荐

img
取 消
img