Discussion :

[hubble013]

Bonsoir,

j'ai developpé un ptit script en Vbs pour parser un fichier XML mais j'ai un petit souci :

j'ai un fichier xml en .cfg (fichier de conf) et je cherche a récupérer une info dans le node <disk> ... </disk>

Code :

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

1
2
3
4
5
6
7
8
<disk>
setting name="default" warnlevel="90%" paniclevel="95%"
<setting name="D" warnlevel="90%"  paniclevel="95%" />
<setting name="C" warnlevel="90%"  paniclevel="95%" />
 
<setting name="E" warnlevel="99%"  paniclevel="100%" />
<setting name="F" warnlevel="90%"  paniclevel="98%" />
</disk>

Mon script fonctionne bien mais j'ai un souci pour récupérer les info qd la ligne commence par

Code :

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

"<setting..."

Pas de souci pour la ligne

Code :

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

setting name="default" warnlevel="90%" paniclevel="95%"

Voici ce que j'ai fait :

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
16
17
18
19
20
'-- Lire un doc XML
Set xmlDoc=CreateObject("Msxml2.DOMDocument")
xmlDoc.async="false" ' permet de charger entièrement le document en mémoire avant le traitement
xmlDoc.load("d:\tmp\bbwin\bbwin2.cfg")
 
' Lister les valeurs par nom de balise
    'Set oElement = xmlDoc.documentElement
    Set objNodeList = xmlDoc.getElementsByTagName("disk")
 
        If xmlDoc.parseError.errorCode <> 0 Then
   MsgBox("Parse Error line " & xmlDoc.parseError.line & ", character " &_
       xmlDoc.parseError.linePos & vbCrLf & xmlDoc.parseError.srcText)
 
End If
 
    If Not objNodeList Is Nothing Then
        For Each x In objNodeList
            MsgBox x.Text
        Next
    End If

Auriez vous une idée pour que je récupère toutes les lignes entre <disk> et </disk> ??

Par avance merci.

[hubble013]

je vais me repondre 5 minutes apres car apres 2 heures de recherche, je viens de trouver

remplacer le x.text par x.xml

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
16
17
18
19
20
21
'-- Lire un doc XML
Set xmlDoc=CreateObject("Msxml2.DOMDocument")
xmlDoc.async="false" ' permet de charger entièrement le document en mémoire avant le traitement
xmlDoc.load("d:\tmp\bbwin\bbwin2.cfg")
 
' Lister les valeurs par nom de balise
    'Set oElement = xmlDoc.documentElement
    Set objNodeList = xmlDoc.getElementsByTagName("disk")
 
        If xmlDoc.parseError.errorCode <> 0 Then
   MsgBox("Parse Error line " & xmlDoc.parseError.line & ", character " &_
       xmlDoc.parseError.linePos & vbCrLf & xmlDoc.parseError.srcText)
 
End If
 
    If Not objNodeList Is Nothing Then
        For Each x In objNodeList
            MsgBox x.xml
 
        Next
    End If