Solved

Counting Nodes in a DOM Document Object

Posted on 2002-05-14
12
601 Views
Last Modified: 2013-11-19
I am new to XML and am trying to find some information for navigating an XML document using ASP with the MSXML object (MSXML2.DOMDocument.3.0).  

I am trying to count the number of child nodes with a certain name and then load an array with all the elements in that node.  

Example:  

<DOCUMENT>
 <MY_INFO>
  <QMTB_WERKS>P000</QMTB_WERKS>
  <VERWMERKM>50000524</VERWMERKM>
  <KURZTEXT>FLASH POINT, C, PMCC</KURZTEXT>
  <CSOLLWERT>85</CSOLLWERT>
  <SOLLWNI>X</SOLLWNI>
  <CTOLERANZB />
  <TOLOBNI />
  <CTOLERANZN />
  <TOLUNNI />
  <ZPROPERTY>Physical</ZPROPERTY>
 </MY_INFO>
 <MY_INFO>
  <QMTB_WERKS>P000</QMTB_WERKS>
  <VERWMERKM>50000569</VERWMERKM>
  <KURZTEXT>LBS PER GAL @ 15.6 C</KURZTEXT>
  <CSOLLWERT>7.69</CSOLLWERT>
  <SOLLWNI>X</SOLLWNI>
  <CTOLERANZB />
  <TOLOBNI />
  <CTOLERANZN />
  <TOLUNNI />
  <ZPROPERTY>Physical</ZPROPERTY>
 </MY_INFO>
</DOCUMENT>

Using this example, I would like to count the number of nodes named "MY_INFO".  Then I would like to loop through only those nodes and load each element of those nodes into an array for display within an HTML page at a later time.

Thanks for your help!

DW

0
Comment
Question by:dwadek
  • 7
  • 5
12 Comments
 
LVL 1

Expert Comment

by:sgerlach
ID: 7009305
Use selectNodes.  That will return you a list that you can loop through.

Example:

var doc = new ActiveXObject("Msxml2.DOMDocument30");
doc.load("yourfile.xml");
var nodelist = doc.selectNodes("//MY_INFO");
var len = nodelist.length;
for (var i=0; i<len; i++)
{
  var node = nodelist.item(i);
  ...
}
0
 

Author Comment

by:dwadek
ID: 7009324
Is the example you give written in Perl or JavaScript?
I've been trying to use selectNodes within
my ASP page using VBScript to no avail.  

I have a loaded MSXML DOMDocument Object already but haven't been able to navigate the structure:

<%@ Language=VBScript %>
<%     Dim objXML
     
     Set objXML = Server.CreateObject("MSXML2.DOMDocument.3.0")

objXML.loadXML(strOutputXML)


%>


I'm loading my objXML object with output XML retrieved from a Web Service.  I've checked and it is loaded properly and valid (I can display the objXML.xml).




0
 
LVL 1

Expert Comment

by:sgerlach
ID: 7009492
My example is Javascript.  I am not very proficient at VBScript, but here is probably what you need:


Set objXML = Server.CreateObject("MSXML2.DOMDocument.3.0")
objXML.loadXML(strOutputXML)

Set nodelist = doc.selectNodes("//MY_INFO");
For Each node in nodelist
{
 ...
}
0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Author Comment

by:dwadek
ID: 7009544
I think I've translated your example correctly into VBScript ...
------------------------------------------------------
x = 0
Set nodelist = objXML.selectNodes("//MY_INFO")
For Each node in nodelist
  x = x + 1
Next
Response.Write x
-------------------------------------------------------

I get 0 for x though.  This is what happened to me before when I tried using the selectNodes method.  It made me suspicious of the ("//MY_INFO").  Is there anyway to list out the nodes from the root (DOCUMENT) with code like this ???  
0
 

Author Comment

by:dwadek
ID: 7009550
The string that I'm using and loading into the objXML object might not be structured like I'm expecting it to be and I would like to verify this structure by looping through the objXML and pulling up the node names and hopefully finding one that says "MY_INFO" at some level.  

0
 
LVL 1

Expert Comment

by:sgerlach
ID: 7009569
The XPath "//MY_INFO" should find that node at any level.  Two things to try:

(1)Make sure your document loaded properly
if (!objXML.loadXML(strOutputXML))
{
Response.Write "Error"
}

(2)If loaded properly, see what you have loaded
objXML.save("c:\temp\myxml.xml");
or
(if you have a server-side debugger)
Dim xml = objXML.xml
0
 

Author Comment

by:dwadek
ID: 7009582
I just figured out that the xml being loading into the object had a problem.  So now I'm getting closer.  

Now my code returns the correct number of nodes with the name "MY_INFO"  ... Now for the second part of the question:


"...and then load an array with all the
elements in that node."

0
 
LVL 1

Expert Comment

by:sgerlach
ID: 7009596
Is this what you need?
Set children = node.childNodes
0
 

Author Comment

by:dwadek
ID: 7009620
In what context?  (i.e. I am able to detect the 7 instances of the node I was looking for (MY_INFO) but now I want to be able to reference all the child node names as well as their values.  I'm not sure how to use the code that you suggested within my collection of nodes with
the "MY_INFO")

0
 

Author Comment

by:dwadek
ID: 7009632
Using this logic to iterate through the collection:

Set nodelist = objXML.selectNodes("//MY_INFO")
  For Each node in nodelist
    IF node.hasChildNodes THEN
    { this is where I need to store get the child node names and values }
    End IF
  Next
0
 
LVL 1

Accepted Solution

by:
sgerlach earned 50 total points
ID: 7009691
Dim childnames
Dim childvalues
Set nodelist = objXML.selectNodes("//MY_INFO")
 For Each node in nodelist
   IF node.hasChildNodes THEN
     //not sure how you have the arrays initialized
     //
     //don't really need in array, because can
     //access directly from children list
     //but here is an example anyway
     Dim i = 0
     For Each child in node.childNodes THEN
        childnames(i) = child.nodeName
        childvalues(i) = child.nodeValue
        i= i+1
     Next
   End IF
 Next
0
 

Author Comment

by:dwadek
ID: 7010824
Thanks for all your help.  I had to modify the code a little and I'm not sure if the syntax is right with the arrays as I was getting errors, but I'm on the right track from here.  Here is the code with the modifications:


     Dim i
     
        Set nodelist = objXML.selectNodes("//MY_INFO")
     For Each node in nodelist
          IF node.hasChildNodes THEN
               Response.Write "<br>"
               i = 0
               For Each child in node.childNodes
                    'display child node names & values
                    Response.Write child.nodeName & " - " & child.text & "<br>"
                    i= i+1
               Next
               
         End IF
     Next

 
0

Featured Post

Space-Age Communications Transitions to DevOps

ViaSat, a global provider of satellite and wireless communications, securely connects businesses, governments, and organizations to the Internet. Learn how ViaSat’s Network Solutions Engineer, drove the transition from a traditional network support to a DevOps-centric model.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Preface This is the third article about the EE Collaborative Login Project. A Better Website Login System (http://www.experts-exchange.com/A_2902.html) introduces the Login System and shows how to implement a login page. The EE Collaborative Logi…
Many times as a report developer I've been asked to display normalized data such as three rows with values Jack, Joe, and Bob as a single comma-separated string such as 'Jack, Joe, Bob', and vice versa.  Here's how to do it. 
The viewer will the learn the benefit of plain text editors and code an HTML5 based template for use in further tutorials.
Learn how to create flexible layouts using relative units in CSS.  New relative units added in CSS3 include vw(viewports width), vh(viewports height), vmin(minimum of viewports height and width), and vmax (maximum of viewports height and width).

713 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question