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)  
 

 
XMLRead Function

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

Description : The XMLRead function outputs an array of values returned by an XML expression. There are two required arguments: xmlfilepath and expression. Xmlfilepath is the absolute path to an XML file. expression is a valid node path or xml query in the specified XML file.

example usage:
<%
Dim i, a, strXMLPath, strXMLExpression

strXMLPath = Server.MapPath("/aspemporium/examples/xmlcatalog/database.xml")
strXMLExpression = "/CATALOG/MOVIE[RUNNINGTIME $gt$ 100]/RATING | " & _
"/CATALOG/MOVIE[RUNNINGTIME $gt$ 100]/TITLE"
a = XMLRead( strXMLPath, strXMLExpression )

For i = 0 To UBound(a) - 1
Response.Write a(i) & "<BR>"
Next
%>
source code:
<%
Private Function XMLRead(ByVal xmlfilepath, ByVal expression)
Dim temp, item, tmp, objXML, tmpArray
On Error Resume Next
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Load( xmlfilepath )
If Err Then
On Error GoTo 0
Err.Raise 5140, "XMLRead Function", _
"Specified XML File Not Found."
Err.Clear
XMLRead = Null
Set objXML = Nothing
Exit Function
End If
Set temp = objXML.documentElement.selectnodes( expression )
If Err Then
On Error GoTo 0
Err.Raise 5140, "XMLRead Function", _
"Expression argument produced an error."
Err.Clear
XMLRead = Null
Set objXML = Nothing
Exit Function
End If
For Each item In temp
tmp = tmp & item.text & vbCrLf & "/" & vbCrLf
Next
Set temp = Nothing
Set objXML = Nothing
tmpArray = Split( tmp, vbCrLf & "/" & vbCrLf )
XMLRead = tmpArray
On Error GoTo 0
End Function
%>
 

 

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