Working with XML

Accessing XML

Dim StrXmldatafile=c:\test.xml

Set xmldoc=createobject("Microsoft.XMLDOM"")
Xmldoc.async=false

Xmldoc.load(StrXmldatafile)

'get number of nodes
Set nodes=Xmldoc.selectnodes("/bookstore/book")
Msgbox "total books" &nodes.length

'get title of all books
Set nodes=Xmldoc.selectnodes("/bookstore/book/title/text()")
'get their value
For I=0 to ( nodes. Length -1)
Title = nodes(I).nodevalue
Msgbox " title#"&(I+1)&":"&title
Next

'get first book element that is child of bookstore element
Setnodes=xmldoc.selectnodes("/bookstore/book[1]")

'get last book element that is child of bookstore element
Strnodes=xmldoc.selectnodes("/bookstore/book[last()]")

'get all title element that have attribute name Lang
Strnodes=xmldoc.selectnodes("//title[@Lang]")

'get all title element that have attribute name Lang with value English
Strnodes=xmldoc.selectnodes("//title[@Lang='english']")

'get all book element of bookstore element that have price element with value >35
Strnodes=xmldoc.selectnodes("/bookstore/book[price>35.]")

'get all title element of book element of bookstore element that have price element with value > 35
Strnodes=xmldoc.selectnodes("/bookstore/book[price>35.00]/title")