Discussion :

[GuillaumeNcy]

Bonjour à tous,

Je souhaite parcourir les items contenu dans une listbox, (qui sont des mots) et également parcourir une list of string. A chaque itération, si le mot de le listbox est le même que le dernier mot de la string, alors je la supprime de la list of string :

Chaque string contient exactement 3 mots.

Code :

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

1
2
3
4
5
6
7
8
9
For h = 0 To listbox1.Items.Count - 1
                For i = Maliste.Count - 1 To 0 Step -1
                    If Maliste(i).Substring(Maliste(i).IndexOf(i)).Split(" ")(2).Contains(listbox1.Items(h).ToString) Then
                        Maliste.RemoveAt(i)
 
                    End If
 
                Next
            Next

Lors de l'éxecution j'ai cette erreur :

Une exception non gérée du type 'System.ArgumentOutOfRangeException' s'est produite dans mscorlib.dll

Informations supplémentaires : StartIndex ne peut pas être inférieur à zéro.

Je n'arrive pas a voir ce qui cloche, quelqu'un peut il me renseigner?

Merci d'avance!

[dkmix]

Bonjour,
Vous faites un "RemoveAt" à l’intérieur d'une boucle "For".
Donc "Maliste.Count" est susceptible de changer à chaque itération.

Vous pouvez regardez RemovAll

Code :

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

1
2
3
4
 
  For Each It As String In ListBox1.Items
            Maliste.RemoveAll(Function(text) text = It)
  Next

[GuillaumeNcy]

Je ne vois pas où est le problème, car en parcourant ma liste "a l'envers", que l'élément soit supprimer ou pas, le prochain i sera toujours le bon. Je me trompe?

[ebastien]

Bonjour,

Oui en parcourant la liste à l'envers, ça ne pose pas de problème.
Mais plutôt que de parcourir les listes, essayer avec :

Code :

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

 MaListe.RemoveAll(Function(aLine) ListBox1.Items.Contains(aLine.Split(" ")(2)))

A priori ça devrait répondre à ton besoin.

[GuillaumeNcy]

Ca a l'air redoutable comme ligne de code Merci beaucoup je vais essayer ça. Par contre j'utilisais une boucle car pour chaque élément supprimé dans la maliste, je supprimais en parallèle des éléments dans une autre. Est il possible de récupérer l'index des éléments supprimer?

[ebastien]

Ah effectivement, alors en un peu moins bien tu peux faire ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Function ...
  MaListe.RemoveAll(AddressOf RemoveLine)
End Function
 
Private Function RemoveLine(aWord As String) As Boolean
    Dim Index As Integer
    If ListBox1.Items.Contains(aWord.Split(" ")(2)) Then
        Index = MaListe.IndexOf(aWord)
        ...
        Return True
    End If
    Return False
End Function

Après il y a peut être mieux mais bon, il faudrait y réflechir ...

[GuillaumeNcy]

Je déchiffre/test et te tiens ou courant, merci!!

[chrismonoye]

Bonjour,
concernant l'erreur du début (StartIndex), en décomposant un peu, on comprend mieux d'où vient le souci :

Code :

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

1
2
3
4
5
6
7
8
9
        For h = 0 To ListBox5.Items.Count - 1
            For i = Maliste.Count - 1 To 0 Step -1
                Dim txt As String = (Maliste(i).Split(" "c))(2)
                Dim startIndex As Integer = Maliste(i).IndexOf(txt)
                If Maliste(i).Substring(startIndex).Contains(ListBox5.Items(h).ToString) Then
                    Maliste.RemoveAt(i)
                End If
            Next
        Next

[GuillaumeNcy]

Merci pour toutes cette considération, la méthode avec les 2 fonctions marche très bien, je peux effectué mon traitement dans la boucle comme voulu

Par contre Chrismonoye je ne vois pas ce que tu veux me dire?

[chrismonoye]

Bonjour,

Par contre Chrismonoye je ne vois pas ce que tu veux me dire?

Oui je répondais essentiellement à ta première question :

Je n'arrive pas a voir ce qui cloche, quelqu'un peut il me renseigner?

en essayant de décomposer l'action que tu veux mener :
Rechercher la position d'un texte dans une chaine afin d'analyser son contenu.

le texte :

Code :

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

Dim txt As String = Maliste(i).Split(" "c)(2)

sa position :

Code :

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

 Dim startIndex As Integer = Maliste(i).IndexOf(txt)

Ce qui donne, si on veut tout mettre sur une ligne :

Code :

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

1
2
3
                If Maliste(i).Substring(Maliste(i).IndexOf(Maliste(i).Split(" "c)(2))).Contains(ListBox1.Items(h).ToString) Then
                    Maliste.RemoveAt(i)
                End If

Voilà, voilà.
Bonne continuation.