Solved

Counting Nodes in a DOM Document Object

Posted on 2002-05-14
12
559 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
 

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
How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

 

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

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

Suggested Solutions

Title # Comments Views Activity
Contact Forms for Website 6 69
MVC and Angular 2 71
Question on web subscription for apps 3 74
PHP and Soap 3 29
Introduction Knockoutjs (Knockout) is a JavaScript framework (Model View ViewModel or MVVM framework).   The main ideology behind Knockout is to control from JavaScript how a page looks whilst creating an engaging user experience in the least …
Have you tried to learn about Unicode, UTF-8, and multibyte text encoding and all the articles are just too "academic" or too technical? This article aims to make the whole topic easy for just about anyone to understand.
Viewers will learn about arithmetic and Boolean expressions in Java and the logical operators used to create Boolean expressions. We will cover the symbols used for arithmetic expressions and define each logical operator and how to use them in Boole…
The viewer will learn the basics of jQuery, including how to invoke it on a web page. Reference your jQuery libraries: (CODE) Include your new external js/jQuery file: (CODE) Write your first lines of code to setup your site for jQuery.: (CODE)

762 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

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now