How do I parse through this XML tree in VBScript?

Question

I'm trying to parse through the a XML tree in VB Script, but I'm unable to pull out the values I want. I'm would like to pull the name value (eg. CHNG_REQT_NB and CHNG_REQT_DTL_CO), however with the code I have below, I'm only able to get it to print out "column" and value associated with each, For example, with the below code and XML, it would print out as below:

column
13389
column
/* NOTES */ 1) CR#145: New Code Table

I would like it to print as

CHNG_REQT_NB
13389
CHNG_REQT_DTL_CO
/* NOTES */ 1) CR#145: New Code Table

Could someone please point out where I'm going wrong? Below are my code and XML samples.

Set objXMLDoc = CreateObject("Microsoft.XMLDOM") 
objXMLDoc.Async = False 
objXMLDoc.Load("result.xml")

Set Root = objXMLDoc.DocumentElement 
Set rowList = Root.GetElementsByTagName("row")

For Each row In rowList
     handleNode(row)
Next

Sub handleNode(row)
    For Each elem In row.ChildNodes
        WScript.Echo elem.TagName
        WScript.Echo elem.Text
    Next
End Sub

<?xml version="1.0" encoding="UTF-8"?>
<resultsets>
<resultset xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<row>
<column name="CHNG_REQT_NB">13389</column>
<column name="CHNG_REQT_DTL_CO">/* NOTES */ 1) CR#145: New Code Table</column>
</row>
</resultset>
</resultsets>

WScript.Echo elem.tagName -> WScript.Echo elem.GetAttribute("name") — Ansgar Wiechers
– Ansgar Wiechers, Commented Aug 15, 2017 at 14:28
That was it! I've tried that but I must have tried it in the wrong spot or something. Post it as the answer and I'll accept it. — johns4ta
– johns4ta, Commented Aug 15, 2017 at 14:32

Ansgar Wiechers · Accepted Answer · 2017-08-15 14:37:36Z

2

You need to get the value of the name attribute of the nodes rather than the node names.

Change

For Each elem In row.ChildNodes
    WScript.Echo elem.TagName
    WScript.Echo elem.Text
Next

into

For Each elem In row.ChildNodes
    WScript.Echo elem.GetAttribute("name")
    WScript.Echo elem.Text
Next

and the code will do what you want.

answered Aug 15, 2017 at 14:37

Ansgar Wiechers

202k27 gold badges286 silver badges363 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

William Walseth · Accepted Answer · 2017-08-15 14:31:48Z

2

Use XPath for this, don't mess around crawling through child nodes.

Set xml = CreateObject("Msxml2.DOMDocument")
xml.Async = "False"

xml.Load("45694693.xml")

if( xml.parseError ) then  
    WScript.Echo        xml.parseError.reason & " line: " & xml.parseError.line
end if

for each ndColumn in xml.selectNodes( "//column" )
    WScript.Echo ndColumn.getAttribute( "name" ) + vbCrLf + ndColumn.text
next

WScript.Echo strReturn

answered Aug 15, 2017 at 14:31

William Walseth

2,9431 gold badge28 silver badges26 bronze badges

Collectives™ on Stack Overflow

How do I parse through this XML tree in VBScript?

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related