XML
How to get the values of the XML tags ?
=> Content of "sample.xml" file from which the tag values will retrieved using below code
=> Content of "sample.xml" file from which the tag values will retrieved using below code
<catalog> <book id="bk101"> <author>Gambardella, Matthew</author> <title>XML Developer's Guide</title> <genre>Computer</genre> <price>44.95</price> <publish_date>2000-10-01</publish_date> <description>An in-depth look at creating applications with XML.</description> </book> <book id="bk102"> <author>Ralls, Kim</author> <title>Midnight Rain</title> <genre>Fantasy</genre> <price>5.95</price> <publish_date>2000-12-16</publish_date> <description>A former architect battles corporate zombies, an evil sorceress, and her own childhood to become queen of the world.</description> </book> </catalog>Code
'Create Microsoft.XMLDOM object Set xmlDoc = CreateObject("Microsoft.XMLDOM") xmlDoc.Async = False 'path of XML file XMLDataFile="D:\sample.xml" 'Load the XML File xmlDoc.Load(XMLDataFile) 'Give the XML path of XML tag you want to access and /text() to access the value of tag. 'XML path follows the hierarchy 'XML path for author tag will start from catalog->book->author 'so the XML path will be /catalog/book/author 'Text() will gie the value of the tag Set nodes = xmlDoc.SelectNodes("/catalog/book/author/text()") Msgbox " total count of Author tag is " & nodes.length For i = 0 To (nodes.Length - 1) Author= nodes(i).NodeValue Msgbox "The name of Author is " & Author Next 'To get the description tag value in the XML file Set nodes = xmlDoc.SelectNodes("/catalog/book/description/text()") Msgbox " total count of Description tag is " & nodes.length For i = 0 To (nodes.Length - 1) Descripton= nodes(i).NodeValue Msgbox "The Description is < " & Descripton & " > " Next Set xmlDoc=nothing
Comments
Post a Comment