Discussion :

[blepharocyte]

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 ?

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

Code :

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

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

[blepharocyte]

Je l'ai modifié en ça:

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

[pitchalov]

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 :

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

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.

[SfJ5Rpw8]

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