Discussion :

[sweetmemories]

Bonjour à tous,
je cherche a comparer 2 listbox que je sais remplir via une commande du genre :

Code :

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

1
2
3
4
5
6
 For a As Integer = 0 To ListBox1.Items.Count - 1
     Dim mot = ListBox1.Items(a)
     If ListBox2.Items.Contains(mot) = False Then 
          ListView.Items.Add(mot)
     End if
Next

La particularité c'est que dans mot je mets en forme le résultat : je ne garde que les 10ers caractères de la chaine.
Je souhaiterai en faire autant avec la ListBox2 (ListBox2.Items.Contains).

Là je bloque, je ne sais comment mettre en forme cette partie.

Merci à tous pour votre aide

[Phil Rob]

Bonjour,

En vitesse, sans avoir essayé, et si j'ai bien compris ton problème, le code suivant devrait te dépanner :

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
 
 Dim Trouve As Boolean
 For a As Integer = 0 To ListBox1.Items.Count - 1
     Trouve = False
     Dim mot = ListBox1.Items(a).SubString(0, 10)  ' à partir de 0 et pour 10 caractères
     For b As integer = 0 To ListBox2.Items.Count - 1
         If ListBox2.Items(b)SubString(0, 10) = mot Then   '  même portion de caractères
            Trouve = True
            Exit For    ' exit For b
         End if 
     Next b
     If  Not Trouve Then               
        ListView.Items.Add(mot)   ' s'il faut effectivement mettre dans le ListView, tous les Items de ListBox1 non trouvés dans ListBox2
     End If
Next a

J'espère que ceci t'aidera ou au moins, te donnera une idée ...

[sweetmemories]

Bonjour et merci,
avec cette piste j'ai pu trouver la solution.
Merci pour la rapidité