Web Hosting, Free Web Site Builder & Domain Name, Web Hosting Made Easy By Brinkster

Scan through entire XML

Added By: ssanjays

Rated:

(3 of 5) by 15.

Rate Snippet: 12345

Description:

Many-a-times, situation arises that u need to parse through entire XML irrespetive of what ever tag it contains. Also, u may need to display a check box at each leaf node, along with its value. If value is too large, u can restrict to say 200 characters and then display "........"

Language: XML

Save to web space
E-mail Link

Code Snippet:

'Call this function with XMLPath. XML Name can be used in checkbox.
Sub showXML(vXMLFilePath,vXMLFile)
	Dim objXmlDoc
	Set objXmlDoc=server.CreateObject("MSXML.DOMDocument")
	objXmldoc.load vXMLFilePath

For Each objNode in objxmlDoc.childnodes
		If objNode.nodeType <> 7 and objNode.nodeType <> 8 Then
			Call showChild(objNode,"",vXMLFile)
		End If
	Next
End Sub

'Purpose: Show child node. Its a recursive function. strDepth for indentation based on XML node
Sub showChild(objNode,strDepth,vXMLFile)
	Const MAX_DISPLAY_LEN = 190
	Const DELIMITER = "~"
	'Nodeype=3 is text node or data node
	If objnode.hasChildNodes() then 
		for each objChild in objNode.childnodes
			call showChild(objChild,strDepth & "   ",vXMLFile)
		next
	Else   'It is a leaf node
		Response.Write "<br>   " & _
			"<input type=checkbox name=""chk" & vXMLFile & _
			""" value=""" & Server.HTMLEncode(objNode.ParentNode.nodename) & " : " & Server.HTMLEncode(objNode.text) & DELIMITER & """>" & _
			"<b>" & objNode.ParentNode.nodename & "</b> -> " & Left(objNode.text,MAX_DISPLAY_LEN)
                                ' If u want to display limited length value.
		if len(objNode.text)>MAX_DISPLAY_LEN then Response.Write "........."
	End if
End Sub

Sample:
--------------------
Assume a check box at start of each line:

CompanyName -> Oklahoma Energy
   Recommendation -> SELL
   Recommendation -> BUY
   Highlights -> The file name for this tag is APC-2002-13052002-100107.xml OK is well positioned to succeed in this region.
   Summary -> 267 We continue to look for companies that can take advantage of a strong priceenvironment to create value, and OKL fits the bill. We expect OKL to provide acombination of strong internal pr.........
   Abstract -> 267 We recently initiated coverage of Oklahoma Energy with a Buy rating and a12-month target price of $100, assuming 6.0 times our 2002 EBITDA estimate.Depending on the duration and magnitud.........
   Resource -> This report is distributed in Europe by Credit Suisse First Boston (Europe) Limited, which is regulated in the UnitedKingdom by The Securities and Futures Authority (223SFA224). It is not fo.........

For any queries, be free to mail me at ssanjays@yahoo.com