Discussion :

[snorky94]

Bonjour,

J'ai une chaine :

Code :

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

1
2
 
phrase = "127.0.0.1    - 255.255.255.128- 00-86-9d-8d-48-3c   -27/10/2013 03:40:47    -D-  pc1.mon.domaine.fr"

Je souhaiterais extraire des données de ma chaine de facon propre. je pense que le plus simple est de spliter au séparateur "-".

Comment faire pour extraire : IP, Mask, MAC, DateTime Type Device.

Code :

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

1
2
3
4
 
phrase = "127.0.0.1    - 255.255.255.128- 00-86-9d-8d-48-3c   -27/10/2013 03:40:47    -D-  pc1.mon.domaine.fr"
 
wscript.echo parse(phrase)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
function parse(strtoparse)
    'découpe la chaine en fonction des tirets "-"
    'le résultat de la fonction Split est stocké dans un tableau
    Tableau = Split(strtoparse, "-")
 
    'boucle sur le tableau pour visualiser le résultat
    For i = 0 To UBound(Tableau)
    	'Le résultat s'affiche dans la fenêtre d’exécution de l'éditeur de macros
        parse = parse &  Tableau(i)
    Next
end function

Merci d'avance pour votre aide.

[hackoofr]

Juste une question est-ce-que ceci est un LogFile qui est généré par un script automatiquement ?

[hackoofr]

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
Function parse(strtoparse)
    'découpe la chaine en fonction des tirets "-"
    'le résultat de la fonction Split est stocké dans un tableau
    Tableau = Split(strtoparse,VbCrLF)
 
    'boucle sur le tableau pour visualiser le résultat
    For i = 0 To UBound(Tableau)
    	'Le résultat s'affiche dans la fenêtre d’exécution de l'éditeur de macros
        parse = parse &  Tableau(i) & VbCrLF
    Next
    parse = parse
End Function
Titre = "Découpage de Chaînes"
phrase = " 127.0.0.1  "&vbCrLf&" 255.255.255.128  "&vbCrLf&" 00-86-9d-8d-48-3c  "&vbCrLf&" 27/10/2013 03:40:47    "&vbCrLf&" D : pc1.mon.domaine.fr"
MsgBox parse(phrase),64,Titre

[snorky94]

Merci pour ta réponse

La phrase est le résultat d'une commande DOS en fait donc ça ne va pas aller

La syntaxe de retour de la commande exacte est ça :

Code :

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

1
2
 
"127.0.0.1    - 255.255.255.128- 00-86-9d-8d-48-3c   -27/10/2013 03:40:47    -D-  pc1.mon.domaine.fr"

Le séparateur le mieux adapté est donc le tiret.
Parfois il y a un espace avant ou après le tiret, parfois non.
A un moment l'@MAC comprend que des tirets :00-86-9d-8d-48-3c, il faut donc les garder sans les couper, etc... pas facile



Donc le retour chariot vbCrLf que tu as ajouté, ca ne fonctionnera pas

Merci.

[hackoofr]

Pouvez-vous poster le code du batch ?

[snorky94]

Compliqué, c'est le résultat d'une commande DHCP.

Code :

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

1
2
 
netsh dhcp server \\localhost scope 127.0.0.1 show clients 1

Ce qui va donner exactement :

127.0.0.1 - 255.255.255.192- 00-80-9f-57-4d-d3 -27/10/2013 06:12:22 -D- Monpc1.mondomaine.fr
127.0.0.2 - 255.255.255.192- 00-80-9f-7b-3c-8c -27/10/2013 06:06:33 -D- Monpc2.mondomaine.fr
127.0.0.3 - 255.255.255.192- 00-80-9f-7a-83-a2 -27/10/2013 06:09:40 -D- Monpc3.mondomaine.fr

En affichant les caractères spéciaux dans notepad++, il n'y a pas de tabulation dans les lignes que des espaces et retour chariot CRLF à chaque ligne.

Je ne sais pas si tu auras plus d’éléments de réponse

merci bcp.