Découpage de chaîne.

Version imprimable

Bonjour,

J'ai une chaine :

Code:

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:

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:

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.

21/10/2013, 14h29
hackoofr

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

:salut:

Code:

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

21/10/2013, 15h02
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:

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.
21/10/2013, 15h12
hackoofr

:salut:
Pouvez-vous poster le code du batch ?
:merci:
21/10/2013, 15h28
snorky94
Compliqué, c'est le résultat d'une commande DHCP.
Code:

1 2 netsh dhcp server \\localhost scope 127.0.0.1 show clients 1
Ce qui va donner exactement :

Citation:

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.

Salut,

Voilà la solution à ton problème !

C'est pas en VBS mais vu que tu est déjà en ligne de commande ça devrait pas
te poser de problème.

C'est mon ami Hackoo :ccool: qui ma demander de regarder ton problème...

Voilà :

Tu remplace "toto.log" par le nom de ton log.
le fichier de sortie sera sortie.log

traite.bat

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
@echo off&cls & color 17
 
:::Le Path du fichier log
 
set $log="toto.txt"
 
:::Le Path du fichier log de sortie
 
set $sortie="sortie.log"
 
 
setlocal enabledelayedexpansion
 
 
:::ON RECUPERE LES ELEMENTS INTRESSANTS DE CHAQUE LIGNE
 
set $c=1
for /f "delims=" %%a in ('type %$log%') do for %%b in (%%a) do (if !$c! equ 1 set #IP=%%b
                                                                if !$c! equ 3 set #MASK=%%b
                                                                if !$c! equ 4 set #MAC=%%b
                                                                if !$c! equ 5 set #DATE=%%b
                                                                if !$c! equ 6 set #HEURE=%%b
                                                                if !$c! equ 7 set #TYPE=%%b
                                                                if !$c! equ 8 set #SITE=%%b
                                                                set /a $c+=1)
 
:::ON ENLEVE LES "-" SUPERFLUE LORSQUE C'EST NECESSAIRE
 
set #DATE=!#DATE:-=!
set #MASK=!#MASK:-=!
SET #TYPE=!#TYPE:-=!
 
:::ET ON SAUVE DANS UN NOUVEAU LOG
 
(echo.
 echo !#site!
 echo !#DATE! !#HEURE!
 echo !#IP!
 echo !#MASK!
 echo !#MAC!
 echo !#TYPE!
 echo.
 echo -----------) >>%$sortie%
 
 
set #
 
echo Termin‚

A+

21/10/2013, 21h44
snorky94

merci pour ton aide sacah mais il me faut du vbs :) pas du batch :)

Je doit intégrer ca dans un seul script HTA.

Je vais spliter à chaque "-" pour le moment, ca va le faire mais c'est moche

Merci à toi. :ccool:
22/10/2013, 00h56
sachadee

Citation:

Je doit intégrer ca dans un seul script HTA.

Tu peux très bien l'intègrer de manière transparente, en génerant le code batch avec ton VBS et en l'executant en mode "Hide" et en le détruisant. Je vois pas le problème.

Ou sinon recrée ce code en VBS.

Je ne suis pas un spécialiste du VBS, mais en bouclant avec un "ReadFile" sur ton fichier log et en utilisant la fonction "Split" pour découper ta ligne et attribuer une variable à chaque élément que tu traite ensuite avec "Mid" ou "Replace" suivant le cas, ça devrait ce faire assez facilement.

:ccool:

:salut:
Avec un petit bricolage avec la fonction Replace :king:

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
34
35
36
37
38
39
40
41
Option Explicit
Dim Titre,fso,ws,NewLogFile,Resultat
Titre = "Découpage de Chaînes"
Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("Wscript.Shell")
'Nom du fichier qui va stocker le résultat
NewLogFile = Left(Wscript.ScriptFullName,InstrRev(Wscript.ScriptFullName, ".")) & "txt"
if fso.FileExists(NewLogFile) Then 'Si le fichier LogFile existe 
	fso.DeleteFile NewLogFile 'alors on le supprime
end If
MsgBox LireLogFile("Dhcp.log"),64,Titre
Call WriteNewLogFile(LireLogFile("Dhcp.log"),NewLogFile)
Resultat = ws.Run(NewLogFile,1,False)
'**************************************************************************************
Function LireLogFile(TextFile)
Dim Msg,MyTab
Msg = ""
With CreateObject("Scripting.FileSystemObject").OpenTextFile(TextFile)
		While .AtEndOfStream = False
		LireLogFile = .ReadLine
		LireLogFile = Replace(LireLogFile,"- ","*")
		LireLogFile = Replace(LireLogFile," -","*")
		LireLogFile = Replace(LireLogFile,"D-","*")
		MyTab = Split(LireLogFile,"*")
		Msg = Msg & "@IP = " & MyTab(0) & vbCrLf & "@Mask = " & MyTab(1) & vbCrLf &_
		"@MAC = " & MyTab(2) & vbCrLf & "Date = " & MyTab(3) & vbCrLf & MyTab(4) & vbCrLf & "Domaine = " & MyTab(5) & vbCrLf & String(40,"*") & vbCrLf
		Wend
End With
LireLogFile = Msg
End Function
'*****************************************************************
'Fonction pour écrire le résultat dans un nouveau fichier texte
Sub WriteNewLogFile(strText,NewLogFile)
	Dim fs,ts 
	Const ForAppending = 8
	Set fs = CreateObject("Scripting.FileSystemObject")
	Set ts = fs.OpenTextFile(NewLogFile,ForAppending,True)
	ts.WriteLine strText
	ts.Close
End Sub
'*****************************************************************

salut,

une methode facile consiste a splitter en '-' puis joiner les tokens 2 à 7 de la MAC
tu peux aussi les 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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
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"
 
Set re= new Regexp
re.global = True
re.pattern = "^" & _
             "\s*" & _
             "(" & _
                 "[^ ]+" & _
              ")" & _
               "\s*-\s*" & _
               "(" & _
                 "[^ ]+" & _
               ")" & _
               "\s*-\s*" & _
               "(" & _
                 "(?:" & _
                    "[0-9a-f]{2}" & _
                    "-" & _
                  "){5}" & _
                  "(?:" & _
                     "[0-9a-f]{2}" & _
                  ")" & _
                ")" & _
                "\s*-\s*" & _
                "(" & _
                  "(?:" & _
                     "[^ ]+" & _
                   ")" & _
                "\s" & _
                   "(?:" & _
                      "[^ ]+" & _
                    ")" & _
                 ")" & _
                 "\s*-\s*" & _
                 "(" & _
                   "[^ ]+" & _
                 ")" & _
                 "\s*-\s*" & _
                 "(" & _
                   "[^ ]+" & _
                 ")" & _
                 "$"
 
Set Matches = re.execute(phrase)
 
Set Match = Matches(0)
 
txt = "IP        = " & match.submatches(0) & vbCrLf _
&     "MASK      = " & match.submatches(1) & vbCrLf _
&     "MAC       = " & match.submatches(2) & vbCrLf _
&     "DateTime  = " & match.submatches(3) & vbCrLf _
&     "Type      = " & match.submatches(4) & vbCrLf _
&     "Site      = " & match.submatches(5) & vbCrLf _
 
msgBox txt

:salut:
Ce matin un pote à moi Temp m'a envoyé ce code pour définir un nouveau délimiteur pour la conversion, d'ailleurs je le dois aussi l'idée du premier code avec la fonction Replace :mouarf: :king:
:plusser:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
line="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"
'Définir un nouveau délimiteur pour la conversion
'ce que vous voulez, y compris une chaine, un espace ou un saut de ligne (vbCRLF)
new_delimiter= "@"
wscript.echo convert(line,new_delimiter)
wscript.quit
 
function convert(str,delim)
  Dim regEx
  Set regEx= New RegExp
  regEx.Pattern= " +- +| +-|- +"
  regEx.Global= True
  convert= regEx.Replace(str, delim)
End Function

22/10/2013, 14h39
omen999

bonjour,
sous réserve que netsh renvoie au minimum un espace avec le tiret séparateur des données (ce qui est vraisemblablement le cas), le script de temp est nickel :ccool:
22/10/2013, 15h50
snorky94

Merci hackoofr, merci temp :ccool::ccool::ccool::ccool:

Avec un expression régulière c'est le top du top.

Merci également à tout ceux qui ont contribué sur le sujet.

Bonne journée. :ccool::ccool:

Citation:
Envoyé par hackoofr
:salut:
Ce matin un pote à moi Temp m'a envoyé ce code pour définir un nouveau délimiteur pour la conversion, d'ailleurs je le dois aussi l'idée du premier code avec la fonction Replace :mouarf: :king:
:plusser:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 line="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" 'Définir un nouveau délimiteur pour la conversion 'ce que vous voulez, y compris une chaine, un espace ou un saut de ligne (vbCRLF) new_delimiter= "@" wscript.echo convert(line,new_delimiter) wscript.quit function convert(str,delim) Dim regEx Set regEx= New RegExp regEx.Pattern= " +- +| +-|- +" regEx.Global= True convert= regEx.Replace(str, delim) End Function
salut,

merci pour ta contribution puisque snorky94 a trouvé son bonheur avec ce code donc je crois que sa question est resolu
du point de vue technique le pattern n'est pas générique et dépend fortement du nombre d'espaces générés
je trouve qu"'un pattern plus générique sera plus fiable
on peux aussi changé le code de snorky94 en lui ajoutant un petit bout de code pour avoir le resulat souhaité:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 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" Tableau = Split(Phrase,"-") n=1 For i = 2 to 7 if n > 0 Then n = 0 Else mac = mac & "-" End If mac = mac & Tableau(i) Next ' Tableau(0) Tableau(1) mac Tableau(8) Tableau(9) Tableau(10)