假设已有一个装有数据的数组(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)
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数组的元素了。