Vb.net如何从数组中删除重复项？

Question

Dim ItemList As New ArrayList()

For i = 0 To dgExtract.Items.Count - 1
        gRow = dgExtract.Items(i)
        chk = gRow.FindControl("chkSelect")
        If chk.Checked Then
            sEmail = gRow.Cells(7).Text
            dim number as string = Regex.Replace(sEmail,"[^0-9]","")
            if number.length = 11 then
                ItemList.Add(number)
            end if
        end if              
Next

我使用上面的代码构建了ItemList数组.如何删除此数组中的任何重复项？

Answer 1

设置:

Dim number As Integer
Dim num As String
Dim al As New ArrayList()
If Not (al.Contains(number)) Then
    al.Add(number)
End If

获得:

For Each number In al
    num = number.ToString()
Next

Answer 2

您可以检查它是否在数组中，而不是检查和删除重复元素，如果不存在，您可以添加到数组中，否则什么都不做。

声明一个List<string>名为 example 的对象list。在循环：

If Not list.Contains(number) Then
    list.Add(number)