Redondance a supprimer dans un tableau

Bonjour à tous !

J'ai un .vbs qui récupère dans un fichier texte des adresses IP. Seulement, dans ce fichier texte il est possible qu'il y ai plusieurs fois la même adresse IP.

Le problème et que si je les récupères, c'est pour faire un nslookup via le cmd dessus en automatique, voir un tracert, alors pour ne pas effectuer x fois la même manipulation, il faut que je trouve le moyen de virer les redondances dans ce tableau...

Vous auriez une idée ?:calim2:

Voici ce que j'ai commancé mais une erreur apparait a la dernière boucle for

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

a = UBound(IpArray) for x = Lbound(IpArray) to a Step + 1 if IpArray(x) <> IpArray(a) then for c = x + 1 to a Step + 1 if IpArray(x) = IpArray(c) then msgbox "redondance !!" for c = x + 1 to a Step + 1 IpArray(c) = IpArray(c+1) next end if next end if next

---

Je l'ai modifié en ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

a = UBound(IpArray) for x = Lbound(IpArray) to a Step + 1 if x <> a then for c = x + 1 to a Step + 1 if IpArray(x) = IpArray(c) then msgbox "redondant" for f = x + 1 to a Step + 1 if f <> a then IpArray(f) = IpArray(f+1) End if next end if next end if next

---

Seulement, sa fonctionne a moitié... Bizard ou quoi ? sa m'enlève des doublons, mais d'autre non...

Exemple: j'ai 16 ip dans tableau IpArray. Dont 11 redondante, il devrait m'en rester 5, mais il m'en garde 8..

Bonjour,

Je n'ai pas trop compris l'imbrication des 2 boucles (y a celle de la lecture du fichier?), mais je ne suis pas très sûr d'avoir cerné le problème.
Juste que d'après ton énoncé, je verrais bien ce type de résolution, à faire pour chaque strReadIpAdress récupérée dans la lecture du fichier :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

boolIpIsPresent = False   For Each strArrIpAddress in IpArray If strReadIpAdress = strArrIpAddress Then boolIpIsPresent = True Exit For End If Next   If boolIpIsPresent = True Then Redim Preserve IpArray(Ubound(IpArray)) IpArray(Ubound(IpArray) - 1) = strReadIpAdress End If

---

En espérant que ça réponde à tes besoins.

pluitôt qu'un tableau tu peu aussi utiliser un dictionnaire pour stocker ta liste d'adresses :
http://tahe.developpez.com/web/vbscr...e=page_3#LII-R

tu utilise l'adresse IP comme clef .. et avant chaque ajout tu utilise la méthode exisits pour tester l'existence de l'élément dans ton dico...;)