123 Eng

Engineering the engineers™


Latest Jobs   Forum Map

 


Home

Source Codes

Engineering Colleges

BE Students

Training  Reports (updated)

Seminar Reports (updated

Placement Papers (updated)

Forums

   Computer Science / IT

   Electronics

   Electrical

   Mechanical

   Chemical

   Civil

   CAT / MBA

   GMAT / Foreign MBA

Latest Jobs

Engineering Jobs / Technical Jobs

Management Jobs

Sitemap

About-Us

Terms of use

Displaying  Source Code(s)  
 

 
--------------------------------------------------------------------------------

XML walker

--------------------------------------------------------------------------------



<%
Option Explicit
Dim DOM
' create instance of MS XML object
Set DOM = CreateObject("microsoft.xmldom")
DOM.async = False ' we want the whole file In one go
' open file.
Dim loadBool
Dim StrURI
StrURI="C:yourxmlfilehere.xml"
If request("xml") > "" Then
StrURI=request("xml")
End If
loadBool = DOM.load (StrURI)
If loadBool=False Then
Response.Write("Failed To load XML data source<P>" & StrURI)
Response.End
End If
Response.Write("<B>XML WALKER</B><P>")
Dim objNodeList
Set objNodeList = DOM.getElementsByTagName("*")
Response.Write("<PRE>")
xmlwalk objNodeList.item(0),"","" ' start With root node
Response.Write("</PRE>")
Function xmlwalk (node,disdepth,path)
Dim blue,red,endcolor
red="<FONT COLOR=""#FF0000"">"
blue="<FONT COLOR=""#0000FF"">"
endcolor="</FONT>"
Dim outStr,tstAttrib,c,tstchild
outStr = ""
If node.nodeName <> "#text" Then
outStr =disdepth & outStr & blue & "<" & endcolor & red & node.nodeName & endcolor & blue & ">" & endcolor
path=path & "/" & node.nodeName
End If
If node.nodeValue>"" Then
outStr=outStr & "" & node.nodeValue & "<!-- #######" & path & "######-->" ' i want this To be part of the href i create later.
Else
outStr=outStr & "<!--NULL-->"
End If
outStr=outStr & "<!--[" & node.nodeTypeString & "]-->"
Set tstAttrib = node.attributes
If node.nodeTypeString="element" Then
If Not IsNull(tstAttrib) Then
If (tstAttrib.length) >0 Then outStr= disdepth & blue & "<" & endcolor & red & node.nodeName & endcolor & " "
For c=0 To (tstAttrib.length -1)
outStr= outStr & " " & red & tstAttrib.item(c).nodeName & endcolor & blue & "=""" & endcolor & "<B>" & tstAttrib.item(c).text & "</B>" & blue & """ " & endcolor
Next
If (tstAttrib.length) >0 Then outStr= outStr & blue & ">" & endcolor
End If
Set tstChild = (node.childNodes)
disdepth=disdepth & " "
Response.Write "<BR>" & outStr
For c=0 To tstChild.length -1
disdepth = xmlwalk(tstChild.item(c),disdepth,path)
Next
If Len(disdepth)>0 Then
disdepth=Left(disdepth,Len(disdepth)-2)
End If
If Len(path)>0 Then
path=Left(path,InStrRev(path,"/")-1)
End If

Response.Write (disdepth & blue & "</" & endcolor & red & node.nodeName & endcolor & blue & "><BR>" & endcolor)
Else
Response.Write ("<B>" & LTrim(outStr) & "</B>")
End If
xmlwalk = disdepth
End Function
Response.Write ("<P>EOP")
%>
 

 

Contribute content or training reports / feedback / Comments
job placement papers
All rights reserved copyright 123ENG