Comparaison de deux fichiers de référencesRésolu

Question

Bonjour &#224; tous,
J'ai deux fichiers text de r&#233;f&#233;rences, un fichiers text ref1 avec toutes les r&#233;f&#233;rences total de 1 &#224; 999 et un fichier text ref2 avec seulement les r&#233;f&#233;rences enregistr&#233;es mais pas complet.
Je voudrais trouver les r&#233;f&#233;rences manquantes du fichier text2.
On m'a conseiller de cr&#233;er une collection et de faire une boucle avec les items, j'ai &#233;ssay&#233; une journ&#233;e, mais rien &#224; faire, je ne suis pas assez call&#233; sur vb.
J'ai donc cr&#233;er trois listbox listbox1 avec le fichier ref1, listbox2 avec le fichier ref2 et la listbox est vierge pour recevoir les r&#233;f&#233;rences manquantes du listbox2.
Si vous avez une petite id&#233;e, elle est la bienvenue.
Cordialement
Jean Paul

jrivet · Accepted Answer

Salut,
En VB6
Si tes deux listBox sont deja rempli, tu peux essayer un truc du style:

Dim i As Integer
Dim j As Integer
Dim Trouve As Boolean
For i = 0 To List1.ListCount
    Trouve = False
    For j = 0 To List2.ListCount
        If List1.List(i) = List2.List(j) Then
            Trouve = True
            Exit For
        End If
    Next
    If Not Trouve Then List3.AddItem List1.List(i)
Next

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

roller0022 · Answer

Merci Julien, c'est exactement ce que je recherchais.
Cordialement
Jean Paul

Comparaison de deux fichiers de références

2 réponses

Discussions similaires