清除数组（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数组的元素了。