DoublonsRésolu

Question

Salut a tous,

Voila je dois faire un soft pour trier des doublons dans des fichiers d'adresses, qui peuvent contenir jusk'a 300000 adress.

la pourle moment je charge les fichiers dans un tableau et puis de la je fais une boucle du genre:

For i = 0 To UBound(AddresListA)

    For i2 = 0 To UBound(AddresListB)
        If StrComp(AddresListA(i), AddresListB(i2)) = 0 Then GoTo nxt
    Next i2

    ReDim Preserve AddresListb(i3) As String
    AddresListB(i3) = AddresListA(i)
    i3 = i3 + 1
nxt:

Next i

Ou bien

For i = 0 To UBound(AddresListA)

    For i2 = i + 1 To UBound(AddresListA)
        If StrComp(AddresListA(i), AddresListA(i2)) = 0 Then GoTo nxt
    Next i2

    ReDim Preserve AddresListb(i3) As String
    AddresListB(i3) = AddresListA(i)
    i3 = i3 + 1
nxt:

Next i

Mais c'est vraiment vraiment lent! Et en meme temps je vois pas comment je pourrais faire plus vite ?

Donc si y a des as de l'algorithme dans le coin, ce serait cool de m'eclairer un peu ;)

Merci d'avance
++
Quand on pose une question on est con 5 minutes,
Quand on ne la pose pas on le reste toute sa vie...

clementio · Accepted Answer

Salut,

Utilise un objet Dictionnary, pour ça rajoute la référence Microsoft Scripting Runtime à ton projet. Un Dictionnary à une methode qui s'appelle "exist". Tu peux faire une boucle qui remplit ton Dictionnary et avant d'ajouter un élément dedans, tu testes si il existe.

Dis-moi si tu veux un exemple mais je ne rentre que ce soir vers 19h.

Clm

PhilocheMan · Answer

Salut,
Une autre solution consiste &#224; cr&#233;er une table temporaire et de la remplir des valeurs issues d'une requete Selection de ce type :
SELECT * FROM Matable WHERE Adresse IN (SELECT Adresse FROM MaTable as tmp_Adresse GROUP BY Adresse HAVING COUNT(*) > 1) 
Bon courage.

TrafMaxime · Answer

Sinons ordonne tes donn&#233;es d&#232;s leur r&#233;cup&#233;ration... en fonction de la valeur qui doit &#234;tre unique
ainsi tous les doublons seront les uns apr&#232;s les autres et tu n'as qu'&#224; les tester 2 &#224; 2...

si tu vois ce que je veux dire...

.Maytheforcebewithyou.Maxime.

draluorg · Answer

Salut a tous,

Merci beaucoup pour vos reponses :)

Clementio> J'ai essaye avec le composant que tu m'a indique, et c'est incoyable la vitesse a la quelle il fait ca!
c'est instantane la j'ai essaye avec 100 000 adress et ca a pris moins de 2 secondes!
Et dire qu'en 3 jours j'etais descendu de 120 a 60 secondes lol 
(P4 a 3.8 Ghz,ddr2 667 !)

PhiloCheman> ta methode m'interesse aussi, pourrais tu developper un peu plus stp ?

TrafMaxime> eh wai c'est une sollution, mais je ne pense pas que ca puisse aller plus vite que la boucle que je faisais...

Encore merci a tous :)

++
 
Quand on pose une question on est con 5 minutes,
Quand on ne la pose pas on le reste toute sa vie...

Doublons

4 réponses

Discussions similaires