Recherche dans 2 listbox avec particularité Contains

Version imprimable

10/08/2021, 13h44
sweetmemories

Recherche dans 2 listbox avec particularité Contains
Bonjour à tous,
je cherche a comparer 2 listbox que je sais remplir via une commande du genre :
Code:

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

Bonjour,

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

Code:

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 ... :D

10/08/2021, 16h43
sweetmemories

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

:D