Looping through XML file using VBScript

vbscript

I have a XML file below ..I want to loop through this file and extract the node node value like for node com get the name value and then loop 2 times to get the file values.

<common>
  <com name="Test1.css">
    <file name="Tech.css">
    <file name="Comp.css"> 
  </com>
  <com name="Test2.css">
    <file name="HR.css">
    <file name="HR2.css"> 
  </com> 
</common>

I started using the below VBScript to start looping but I am getting an error Object required:Root
Can someone please have a look and tell me what I am doing wrong here

Option Explicit

Dim Root

Set objXMLDoc = CreateObject("Microsoft.XMLDOM") 
objXMLDoc.async = False 
objXMLDoc.load("C:\test\combineXML.xml")    
Set Root = objXMLDoc.documentElement 
WScript.Echo Root
Set NodeList = Root.getElementsByTagName("common")     
For Each Elem In NodeList 
WScript.Echo Elem.text

Next

Best Answer

Your error Object required:Root indicates that there was a parsing error during objXMLDoc.load() (because that's the only situation where documentElement would be set to Nothing).

Check objXMLDoc.parseError.

In fact you must always check if there were parse errors after loading an XML document.

On a more general note you should never use object references like documentElement without checking that they are valid. That's bad style.

Hint: The root node and the document element are two different things.

The root node is / (essentially, the root node is the document)
The document element in your case is <common>
This means: objXMLDoc.documentElement.getElementsByTagName("common") will be empty

Related Solutions

VBScript Data Validation – Numeric 1 Results in Infinite Loop

Way too much code for a simple input of a number. Just try to keep it short and simple. Example:

Do
    dtm = InputBox("Please Enter a Numeric Month for the Starting Range", _
                "Starting Range Month")
    Select Case True
        Case isNull(dtm), (not isNumeric(dtm)), dtm = "", dtm = empty, (dtm < 1 OR dtm > 12)
            ' too exhaustive, but just for the sake of the example.
             MsgBox "Please enter an amount between 1 and 12"
        Case else
            ' Hey, this seems to be a valid amount!
            Exit do
    End Select
Loop While True

'  Do something with dtm

Just showed you some creative Select Casing, this supports lazy exit, so if a value is Null, it escapes before getting evaluated where evaluating could throw an error.

Xml – Looping through XML file elements

You're making this too complicated. Just select the name attribute from the child nodes of all com nodes with an XPath expression:

Set xmlDoc = CreateObject("Msxml2.DOMDocument")
xmlDoc.async = False
xmlDoc.load "C:\test\combineXML.xml"
If xmlDoc.parseError = 0 Then
  For Each x In xmlDoc.selectNodes("//com/*/@name")
    WScript.Echo x.text
  Next
End If

Use //com/file/@name if you need the expression to be more specific (in case there are other child nodes with a name attribute.

If you also want attributes from a parent node, you'll have to modify it like this:

Set xmlDoc = CreateObject("Msxml2.DOMDocument")
xmlDoc.async = False
xmlDoc.load "C:\test\combineXML.xml"
If xmlDoc.parseError = 0 Then
  For Each x In xmlDoc.selectNodes("//com/*")
    WScript.Echo x.parentNode.getAttribute("name") & ": " _
      & x.getAttribute("name")
  Next
End If

Best Answer

Related Solutions

VBScript Data Validation – Numeric 1 Results in Infinite Loop

Xml – Looping through XML file elements

Related Topic