Vb.net Comment faire pour supprimer les doublons d'un Tableau?

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

J'ai créer le ItemList tableau avec le code ci-dessus. Comment puis-je supprimer tous les doublons dans ce tableau?

Je ne voudrais pas utiliser une ArrayList jamais (bien, peut-être il y aurait une certaine situation étrange où je voudrais). Mieux vaut utiliser une List(Of String) dans ce cas.
Malheureusement, parfois, nous sommes coincés soutenir l'héritage de code, c'est à dire .Net 1.1.

InformationsquelleAutor Beginner | 2011-05-31

vb.net

Réglage:

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

Arriver:

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

InformationsquelleAutor Saurabh

4

Vous avais déclarer certaines tableau (ou une Liste, ou quelle que soit la collection, vous pouvez préférer) et ferait quelque chose comme:
```
Array.Resize(numberArray, numberArray.Length + 1)
numberArray[numberArray.Length - 1] = number
```
Ensuite, vous pouvez utiliser LINQ:
```
numberArray.Distinct()
```
Et puis, itérer le tableau et de faire tout ce dont vous avez besoin.

EDIT: quelle est la Meilleure Srinivasan__ a déclaré, vérifiez si l'élément existe, et si ce n'est pas l'ajouter. Pour vérifier cela, vous pouvez utiliser Exists(). Ou, si vous utilisez quelque chose comme une Liste, Contains().
- Pourquoi n'est-ce pas #1?
InformationsquelleAutor Neverbirth
4

Plutôt que de vérifier et de retrait de la dupliquer des éléments que vous pouvez vérifier si il est dans le tableau, si elle n'existe pas, vous pouvez l'ajouter à un tableau, sinon ne rien faire.

Déclarer un List<string> objet nommé par exemple list. Dans la boucle:
```
If Not list.Contains(number) Then
    list.Add(number)
```
InformationsquelleAutor Srinivasan__

        int i;
        int j;
        int count = 0;
        int[] list = new int[5];
        //to add 5 data with duplicate
        list[0] = 1;
        list[1] = 5;
        list[2] = 2;
        list[3] = 4;
        list[4] = 5;
        #region toremovetheduplicate
        int c = 0, flag = 0;
        int[] list1 = new int[5];
        for (i = 0; i < list.Length; i++)
        {
            flag = 0;
            for (j = i + 1; j < list.Length; j++)
            {

                if (i != j)
                {
                    if (list[i] == list[j])
                    {
                        flag = 1;
                    }
                }
            }
            if (flag == 0)
            {
                list1[c] = list[i];
                c++;
            }
        }

InformationsquelleAutor dhinesh

Je viens de voir cela, j'ai essayé le code suivant ; il fonctionne très bien, je suis en utilisant une CheckedListBox pour afficher les résultats.
Il y a 2 liste de tableaux utilisés. 'Darray' la tenue de la liste originale de duplication des chaînes. Ensuite, "FinArray' pour vider les non dupliquée cordes, puis afficher le 'FinArray contenu dans la zone de liste:

    Sub CleanDupes()
    ' Clear listbox
    CheckedListBox1.Items.Clear()
    ' Create Final Array for non-duped data
    Dim FinArray As New ArrayList
    Dim InitFinarray, DarrayN, FinArrayN As String
    ' Add first record from original array into new array
    FinArray.Add(Darray.Item(0))
    InitFinarray = FinArray.Item(0)
    CheckedListBox1.Items.Add("Select/Unselect All")
    CheckedListBox1.Items.Add(InitFinarray)
    ' Loop into Orig Array and compare each record with strings in new array,
    ' if exist in new array, then skip, else add it
    For n As Integer = 0 To Darray.Count - 1
        DarrayN = Darray.Item(n)
        For n2 As Integer = 0 To FinArray.Count - 1
            If FinArray.Contains(DarrayN) Then
            Else
                FinArray.Add(DarrayN)
                FinArray.Sort(1, FinArray.Count - 1, Nothing)
            End If
        Next
    Next
    'Display New Non-Duped Array in listbox
    For n3 As Integer = 1 To FinArray.Count - 1
        CheckedListBox1.Items.Add(FinArray(n3))
    Next
     End Sub

InformationsquelleAutor user3144575

Pourquoi ne pas vous comme ce

if number.length = 11 then
    if Not ItemList.contains(number)
        ItemList.Add(number)

InformationsquelleAutor Dorababu Meka

Vous devez vous connecter pour publier un commentaire.