清除数组（ArrayList）里的重复数据！（VB）

 假设已有一个装有数据的数组（ArrayList），名称为f,数组中有重复元素。现在要清除这个数组中的重复元素。

代码：

            Dim i As Integer
            Dim arry As New ArrayList

            For i = 0 To f.Count - 1 Step 1
                If arry.Contains(f(i)) = False Then
                    arry.Add(f(i))
                End If
            Next

            Dim b As String = ""
            For Each a As String In arry
                b = b & a.ToString & vbCrLf
            Next

            MsgBox(b)

 

此方法的思路是，先新建一个ArrayList数组，此数组的初始元素为空。然后将f数组里的元素分别与新数组比较，如果新数组里没有此元素，则将此元素添加进新数组里，反之则不添加。

这样，当比较完成后，新数组里的元素就是清除重复数据后的f数组的元素了。