extraire les adresses ip d'une chaîne contenant un tracert (commande Dos)

Bonjour,

Je suis actuellement en train de me remettre à niveau, j'explore actuellement les bases des services webs.

J'en utilise un tout simple permettant de récupérer la localisation en fonction de l'adresse ip (GeoIpService), or le service ne fonctionne pas très bien avec mon adresse actuelle (il indique Russie) dans l'idée de m’entraîner j'ai donc eu l'idée d'envoyer l'adresse du premier node d'un tracert à ce service web pour voir si l'information est meilleure.

Ce qui m’amène à ma question je voudrais extraire les adresses ip d'un tracert récupéré sous forme de chaîne (excellente la DLL dos de ce forum au passage)

exemple de "tracert" :

Citation:

---

Détermination de l'itinéraire vers google.com [216.58.213.174]
avec un maximum de 30 sauts*:

1 1 ms 1 ms <1 ms dsldevice.lan [192.168.1.1]
2 50 ms 49 ms 49 ms mar-1-rdb.fr.eu [178.32.37.6]
3 50 ms 51 ms 795 ms vl31.mar-5-6k.fr.eu [178.32.37.190]
4 53 ms 53 ms 53 ms be3.lyo-5-6k.fr.eu [91.121.131.222]
5 744 ms 170 ms 60 ms be100-1134.th2-1-a9.fr.eu [91.121.131.220]
6 * * * Délai d'attente de la demande dépassé.
7 307 ms 61 ms 60 ms 108.170.245.1
8 820 ms 208 ms 61 ms 64.233.175.195
9 60 ms 803 ms 208 ms par21s04-in-f174.1e100.net [216.58.213.174]

Itinéraire déterminé.

---

je ne suis pas extrêmement familier de la manipulation de chaines sous Windev, j'ai testé plusieurs solution et je ne comprend pas pourquoi cela ne fonctionne pas, dernière en date :

Code:

---

1 2 3 4 5 6 7 8 9 10

tabl est un tableau de chaînes bla est une chaîne   //gsCha variable globale de type chaine contenant le tracert   POUR TOUTE CHAÎNE bla DE gsCha SEPAREE PAR ["[","]"] Trace(bla) TableauAjoute(tabl,bla) FIN

---

or ce code me renvoi en plus des adresses, le début de chaque lignes.

Je vous remercie de m'avoir lu, et j’espère que vous pourrez m'accorder quelques minutes.

Cordialement,
Julien

Bonjour,
A priori ton code renvoie

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Détermination de l'itinéraire vers google.com 216.58.213.174   avec un maximum de 30 sauts*:   1 1 ms 1 ms <1 ms dsldevice.lan 192.168.1.1 2 50 ms 49 ms 49 ms mar-1-rdb.fr.eu 178.32.37.6 ......

---

Bonjour,

regarde du côté de la fonction ExtraitChaine.

oui le code me renvoie le texte suivant avec les balises de mise en page, je ne comprend donc pas le comportement de la fonction, elle devrait en theorie renvoyer uniquement ce qui est entre crochets.

édit : je viens de comprendre cette fonction ne fait que diviser la chaîne en sous chaînes dont on spécifie un séparateur (ici les crochets), donc cela pourrais marcher mais il faudrait que j’interprète les chaines renvoyée et ne stocker que celle qui correspondent à un masque "adresse ip"

Citation:

---

<\r><\n>Détermination de l'itinéraire vers google.com
216.58.213.174
<\r><\n>avec un maximum de 30 sauts*:<\r><\n><\r><\n> 1 1 ms 1 ms <1 ms dsldevice.lan
192.168.1.1
<\r><\n> 2 50 ms 49 ms 49 ms mar-1-rdb.fr.eu
178.32.37.6
<\r><\n> 3 50 ms 51 ms 795 ms vl31.mar-5-6k.fr.eu
178.32.37.190
<\r><\n> 4 53 ms 53 ms 53 ms be3.lyo-5-6k.fr.eu
91.121.131.222
<\r><\n> 5 744 ms 170 ms 60 ms be100-1134.th2-1-a9.fr.eu
91.121.131.220
<\r><\n> 6 * * * Délai d'attente de la demande dépassé.<\r><\n> 7 307 ms 61 ms 60 ms 108.170.245.1 <\r><\n> 8 820 ms 208 ms 61 ms 64.233.175.195 <\r><\n> 9 60 ms 803 ms 208 ms par21s04-in-f174.1e100.net
216.58.213.174
<\r><\n><\r><\n>Itinéraire déterminé.<\r><\n>

---

merci de votre aide je vais regarder du côté de "extrait chaîne"

Les 2 instructions ci-dessous sont STRICTEMENT équivalentes :

Code:

---

POUR TOUTE CHAÎNE bla DE gsCha SEPAREE PAR [ "[", "]" ]

---

Code:

---

POUR TOUTE CHAÎNE bla DE gsCha SEPAREE PAR [ "]", "[" ] // Idem ci dessus en permutant [ et ]

---

Et cette 3ème instruction a un sens totalement cohérent :

Code:

---

POUR TOUTE CHAÎNE bla DE gsCha SEPAREE PAR [ ",", ";", ".", "/" ]

---

Je pense qu'avec ces 3 exemples, tu devrais comprendre le fonctionnement de cette instruction 'Pour toute Chaine'.

EDIT :


ExtraitChaine ne va pas totalement t'aider. Extrait chaine va te donner la même chose que ce que tu as actuellement. Sauf si parmi les différentes options de extraitchaine, il y en a une que je ne connais pas ?

Ce code là devrait marcher :

Code:

---

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

pour toute chaine bla DE gsCha SEPAREE PAR RC po = position (bla, "[") si po > 0 alors bla2 = bla[[po a]] po2 = position ( bla2, "]") si po2 > 0 alors bla3 = bla2[[ 1 a po2-1]] info(bla3) // Affiche l'adresse IP. fin fin fin

---

limitation : ce code va extraire une seule adresse IP par ligne, mais on est dans ce cas de figure.

EDIT n°2
Je vois que dans l'exemple que tu as donné au début, il y a certaines adresses IP qui ne sont pas entre crochets. Il va donc falloir trouver autre chose pour les traiter aussi.

je penses qu'on peut y arriver avec extraitchaine

je ne suis pas au bureau et ne peut tester mais voila comment je vois la chose

definition

Code:

---

1 2 3 4 5 6 7 8 9

vtexte1 est une chaine vtexte2 est une chaine   pour toute chaine bla DE gsCha SEPAREE PAR RC   vtexte1=ExtraitChaine(gsCha,2,"[") vetext2=ExtraitChaine(vtexte1,1,"]")   FIN

---

a toi de traiter vtexte2 - me trompe peut-être mais je teste ça au bureau demain matin - autre chose envoie moi par MP ton fichier texte que ju'ai tous les éléments en mains après tout je ne sais pas si le RC figure dedans.

PS: j'ai pas trop de mal avec ce genre de manip et je suis intéressé de savoir comment les autres traites ce genre de cas.

Citation:

---

Envoyé par tbc92

EDIT n°2
Je vois que dans l'exemple que tu as donné au début, il y a certaines adresses IP qui ne sont pas entre crochets. Il va donc falloir trouver autre chose pour les traiter aussi.

---

Les adresses IP qui ne sont pas entre crochet sont à priori "hors temps" donc inintéressantes

Code:

---

1 2 3 4

pour toute chaine bla DE gsCha SEPAREE PAR RC vtexte1=ExtraitChaine(gsCha,2,"[") vetext2=ExtraitChaine(vtexte1,1,"]") FIN

---

Oui, bien sûr... je pensais que tu pensais à un seul extraitchaine pour directement obtenir l'adresse IP ... et du coup je suis parti dans un film !
C'est effectivement la solution la plus efficace.
Peut-être que les amateurs de Regexp vont préférer autre chose, mais c'est pas mon truc.

Bonjour,

Tu peux faire comme ça tout simplement

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

sMaChaine est chaîne =[ Détermination de l'itinéraire vers google.com [216.58.213.174] avec un maximum de 30 sauts*:   1 1 ms 1 ms <1 ms dsldevice.lan [192.168.1.1] 2 50 ms 49 ms 49 ms mar-1-rdb.fr.eu [178.32.37.6] 3 50 ms 51 ms 795 ms vl31.mar-5-6k.fr.eu [178.32.37.190] 4 53 ms 53 ms 53 ms be3.lyo-5-6k.fr.eu [91.121.131.222] 5 744 ms 170 ms 60 ms be100-1134.th2-1-a9.fr.eu [91.121.131.220] 6 * * * Délai d'attente de la demande dépassé. 7 307 ms 61 ms 60 ms 108.170.245.1 8 820 ms 208 ms 61 ms 64.233.175.195 9 60 ms 803 ms 208 ms par21s04-in-f174.1e100.net [216.58.213.174]   Itinéraire déterminé. ] sAdresseIP est chaîne   POUR TOUTE CHAÎNE sLigne DE sMaChaine SEPAREE PAR RC SI sLigne = "" ALORS CONTINUER   sAdresseIP = Remplace(ExtraitChaîne(sLigne,1," ",DepuisFin),["[","]"],"") SI ChaîneOccurrence(sAdresseIP,".") < 3 ALORS CONTINUER   Trace(sAdresseIP) FIN

---

Bonjour

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

vnumip est un entier vtexte1,vtexte2 est une chaine   pour toute chaine bla DE gsCha SEPAREE PAR RC   // on repère les lignes avec crochet   vnumip=chaineoccurence(gsCHa,"[")   SI vnumip > 0 alors vtexte1=ExtraitChaine(gsCha,2,"[") vtext2=ExtraitChaine(vtexte1,1,"]") SINON vtexte1="" vtexte2="" FIN // on traite la chaine vtexte2   SI vtexte2 <> "" alors TRACE(vtexte2) //remplace le trace par le traitement que tu souhaites FIN FIN

---

EDIT : j'aime bien l'approche de philouZ:ccool:

Bonjour,

Encore plus simple s'il ne faut récupérer que ce qu'il y a entre crochets

Code:

---

1 2 3 4 5 6

sAdresseIP est une chaîne   POUR TOUTE POSITION nPosition1 DE "[" DANS sMaChaine sAdresseIP = sMaChaine[[nPosition1 + 1 À Position(sMaChaine,"]",nPosition1)-1]] Trace(sAdresseIP) FIN

---

Merci à tous pour vos solutions élégantes, au final j'était passé par ma solution un peu batarde en filtrant mes resultats avec un masque de type IP, ce qui fonctionnait.

hello,
juste pour le fun et pour faire plaisir à tbc92 :mouarf: , une solution en utilisant les expressions régulières. Comme VérifieExpressionRégulière n'est pas assez développé pour le faire facilement, j'utilise l'objet automation vbscript.regexp :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

sMaChaine est chaîne =[ Détermination de l'itinéraire vers google.com [216.58.213.174] avec un maximum de 30 sauts*:   1 1 ms 1 ms <1 ms dsldevice.lan [192.168.1.1] 2 50 ms 49 ms 49 ms mar-1-rdb.fr.eu [178.32.37.6] 3 50 ms 51 ms 795 ms vl31.mar-5-6k.fr.eu [178.32.37.190] 4 53 ms 53 ms 53 ms be3.lyo-5-6k.fr.eu [91.121.131.222] 5 744 ms 170 ms 60 ms be100-1134.th2-1-a9.fr.eu [91.121.131.220] 6 * * * Délai d'attente de la demande dépassé. 7 307 ms 61 ms 60 ms 108.170.245.1 8 820 ms 208 ms 61 ms 64.233.175.195 9 60 ms 803 ms 208 ms par21s04-in-f174.1e100.net [216.58.213.174]   Itinéraire déterminé. ] MonFiltre est une chaîne MonRegexp est un objet Automation "vbscript.regexp" objMatches est un objet Automation dynamique   MonFiltre = "\[([ 0-9\.]+)]" MonRegexp>>GLOBAL = Vrai // on cherche toutes les occurrences // on recherche les motifs qui sont sous la forme du Filtre MonRegexp>>Pattern = MonFiltre objMatches = MonRegexp>>Execute(sMaChaine) // on recherche tous les motifs SI objMatches>>Count = 0 ALORS Info("pas d' adresse trouvée ") SINON POUR y=0 _A_ objMatches>>Count -1 //on ne prends que le sous-motif (entre parenthèses) pas les crochets Trace(" Adresse IP : " + y + " : " + objMatches>>Item(y)>>Submatches(0)) FIN FIN

---

Résultat :
Pièce jointe 350144

Ami calmant, J.P