Discussion :

[GuillaumeNcy]

Bonjour à tous,

J'ai une list(of Couple) appelée Liste_presence ,où couple est un objet composé de 2 string : Liste_presence.ID qui est un identifiant et Liste_presence.Mot qui est un mot.

J'ai une list(of integer) appelée Liste_ID_couple, dont les éléments sont des nombres (qui ont été trouvés a partir d'une datagridview)

J'aimerai parcourir la Liste_ID_couple et la Liste_presence pour supprimer tout les couples ayant le Liste_presence.ID identique au Liste_ID_Couple.

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Dim liste_ID_couple As New List(Of Integer)
 
'puis procédure qui remplis cette liste_ID_couple a partir de la DGV
'et ci-dessous la double boucle 
        For j = 0 To liste_ID_couple.Count - 1
            For i = Liste_Presence.Count - 1 To 0 Step -1
                If Liste_Presence(i).ID.Equals(liste_ID_couple(j)) = True Then
                    Liste_Presence.RemoveAt(i)
                End If
            Next
        Next

Problème : aucun élément n'est supprimé. J'ai messageboxé le contenu des listes, et observé que la condition du IF correspondant à la suppression est plusieurs fois respectée. Il doit s'agir d'un problème de syntaxe, mais lequel?
N'hésitez pas à me demander des infos!
Merci d'avance!

[_Ez3kiel]

Tu boucles sur Liste_Presence.Count et tu lui supprimes des éléments à l'intérieur de la boucle, donc le count est impacté, l'index I n'est plus en phase avec l'item ...

[GuillaumeNcy]

Mais je parcours cette liste à l'envers, il ne devrait pas y avoir de soucis?! En plus sur tous les tests que j'ai pu faire, je n'ai jamais eu d'erreur outofrange!

[GuillaumeNcy]

MILLE EXCUSES, je viens de revoir la définition de ma classe, qui était défini comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Class Couple_MotId
 
    Public mot As String
    Public ID As String
 
End Class

Il suffisait de mettre l'ID en integer........ désolé pour le temps perdu!

[_Ez3kiel]

Je suis perplexe ... Et la suppression se passe bien ? Ce sont les bons éléments qui sont supprimés ?


Regarde cet exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
            Dim Listetoto As New List(Of String) From {"Toto1", "2", "3", "Toto4", "Toto5", "6"}
 
            For i As Integer = Listetoto.Count - 1 To 0 Step -1
                If Listetoto(i).Contains("Toto") Then
                    Listetoto.Remove(i)
                End If
            Next
 
            For Each tmp In Listetoto
                Console.WriteLine("---" & tmp)
            Next
 
            '---Toto1
            '---Toto4
            '---Toto5
            '---6

[GuillaumeNcy]

Oui la suppression se passe sans soucis, j'ai vérifié plusieurs fois et les bons éléments sont supprimés.
Dans ton code il te manque peut etre le listetoto.removeAt(i) a la place du remove.
Qu'est ce qui te parait bizarre en fait?
Imaginons que j'ai liste1 et liste2

Si liste1 est parcouru de i = 0 a liste1.count-1, et qu'on ne touche pas au membre de liste1.
Puis dans cette même boucle on parcours liste2 à l'envers,a chaque fois que je supprime un élément, les autres éléments ayant un index inférieurs à celui ci ne sont pas affecté par le décalage. Et de plus a chaque fois qu'on change de i , le count de liste2 est actualisé non?

[_Ez3kiel]

Oui ça semble un peu plus logique ... Faut pas m'en vouloir j'ai eu un grave traumatisme sur les suppressions au sein d'une liste qu'on itère...

[Jabbal'H]

Un truc comme çà, ca devrait fonctionner aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Liste_Presence.RemoveAll(x => liste_ID_couple.Contains(x.Id));