Problème suppression élément List(of classe)

Version imprimable

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:

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!

16/04/2014, 14h05
_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 ...
16/04/2014, 14h08
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!
16/04/2014, 14h18
GuillaumeNcy
MILLE EXCUSES, je viens de revoir la définition de ma classe, qui était défini comme ceci :
Code:

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!

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

Regarde cet exemple :

Code:

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

16/04/2014, 14h45
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?
16/04/2014, 16h39
_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... :ouin:
17/04/2014, 14h03
Jabbal'H
Un truc comme çà, ca devrait fonctionner aussi
Code:

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