Traversant tous les nœuds dans un fichier XML avec VBScript

J'ai écrit un script VBScript qui est censé tranverse tous les nœuds dans un fichier XML, quelle que soit la profondeur de l'arbre. Cela ne veut bien sauf que les noms de noeud pour le ces nœuds qui sont 2 ou plusieurs niveaux de profondeur ne sont pas affichés. J'ai besoin des noms des nœuds ainsi que les valeurs de sorte que j'ai des paires nom/valeur pour la poursuite du traitement par d'autres programmes. Quelqu'un peut-il m'aider à obtenir le manque de noms de nœud affiche.

Ci-dessous mon code:

<html>
<head>
</head>
<body>
<script type="text/vbscript">
Set xmlDoc=CreateObject("Microsoft.XMLDOM")
xmlDoc.async="false"
xmlDoc.load("test.xml")
Dim objDocElem, strNode, strSubNode, xmlnn, xmlnv, xmlnc, xmldd, xmlfd, xmlfv
Set n_firstchild = xmldoc.documentElement.firstChild
Set p_node = n_firstchild.parentNode
Set pn_attribs = p_node.attributes
For Each pnAttr in pn_attribs
xmlfd = xmlfd & pnAttr.name & chr(9)
xmlfv = xmlfv & pnAttr.value & chr(9)
Next 
Set objDocElem=xmlDoc.documentElement
Set y = objDocElem.childNodes
i=0
Do While i < y.length 
If y(i).nodeType <> 3 Then
If Isnull(y(i).childNodes(0).nodeValue) Then
xmlnv = xmlnv & "Category" & chr(9)
Else
xmlnv = xmlnv & y(i).childNodes(0).nodeValue & chr(9)
End If
xmlnn = xmlnn & y(i).nodeName & chr(9)
xmlnc = xmlnc + 1
z=0
Do While z < y(i).childNodes.length
If y(i).childNodes(z).nodeType <> 3 Then
xmlnc = xmlnc + 1
xmlnn = xmlnn & y(i).childNodes(z).nodeName & chr(9)
xmlnv = xmlnv & y(i).childNodes(z).text & chr(9)
End If
z=z+1
Loop
End If
i=i+1  
Loop
document.write("form details: " & xmlfd & "<br />")
document.write("form values: " & xmlfv & "<br /><br />")
document.write("node names: " & xmlnn & "<br />")
document.write("node values: " & xmlnv & "<br />")
document.write("<br />node count: " & xmlnc & "<br />")
</script>
</body>
</html>

et le XML:

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<form penid="AJX-AAE-CRB-7P" submitted="2009-09-10 14:57:07" updated="2009-09-10 15:05:22" finalised="2009-09-10 15:59:48">
<Forename>Russell</Forename>
<Surname>Kilby</Surname>
<HouseNumber>248</HouseNumber>
<Letter>GRG</Letter>
<Products>
<WinSoftware>Product One</WinSoftware>
<MacSoftware>Product Two</MacSoftware>        
<LnxSoftware>Product Three</LnxSoftware>
<Generic>
<Product1>Speedo</Product1>
<Product2>Switches</Product2>
<Product3>BIOS</Product3>
<TestOne>
<Panel1>Front</Panel1>
<Panel2>Back</Panel2>
<Panel3>Middle</Panel3>
</TestOne>
</Generic>
<Hardware>Fender</Hardware>
</Products>
<HouseName>Just Tea House</HouseName>
<PostCode>B87 7DF</PostCode>
<Insurer>ABC Cars</Insurer>
<PolicyNumber>FDA 8D3JD7K</PolicyNumber>
<Make>Ford</Make>
<VehicleReg>EX51 CBA</VehicleReg>
<DescriptionOfDamage>Big smash on the from</DescriptionOfDamage>
<Estimate>1300</Estimate>
<AlertManager>Yes</AlertManager>
</form>
Il serait d'aider massivement si vous avez posté la sortie désirée, donc nous n'avons pas à imaginer ce que c'est votre attendons et nous pouvons ignorer en grande partie de votre code et de montrer comment vous devez l'ai fait.

OriginalL'auteur rob dixon | 2009-12-15

  1. 7

    S'il vous plaît, essayez ceci:

    set nodes = xmlDoc.selectNodes("//*")    
for i = 0 to nodes.length
document.write(nodes(i).nodeName & " - " & nodes(i).text & "<br />")
next
    Merci De Rubens. Que m'a aidé énormément. J'avais besoin d'un coup de pouce dans la bonne direction. De manière beaucoup plus constructive que l'idiot commentaires de par AnthonyWJones.
    Finalement, il a obtenu un point: vous devriez vraiment apprendre sur XPath. XML est encore plus drôle lorsque vous déposez des DOM de navigation et de commencer à sauter directement sur vos données. XPath semble effrayant au premier abord, mais en deux jours, ce sentiment s'en aller =)
    ^deux jours^deux ans . Mais si vous voulez apprendre xpath, essayez de xpathvisualizer.codeplex.com (Windows uniquement)
    Pour la Boucle doit être for i = 0 to nodes.length - 1

    OriginalL'auteur Rubens Farias