Simple tasks

Steve Gray — Mon, 02 Jul 2007 16:31:00 GMT

Here are a couple of simple tasks in XML for VB.NET

sXML string equals the following

<?xml version='1.0'?>
<EXAMPLE>
      <CUSTOMER id="1" type="B">Mr. Jones</CUSTOMER>
      <CUSTOMER id="2" type="C">Mr. Johnson</CUSTOMER>
</EXAMPLE>

<%

Dim oXMLDoc
Dim oXMLNode
Dim oXMLNodeList

   Set oXMLDoc = Server.CreateObject("MSXML2.DOMDocument.4.0")

          oXMLDoc.LoadXML(sXML)

Set oXMLNode = oXMLDoc.selectSingleNode("//EXAMPLE/CUSTOMER[@id='2' or @type='C']")

         ' oXMLNode.Text will show "Mr Johnson"

Set oXMLNode = oXMLDoc.selectSingleNode("//EXAMPLE/CUSTOMER[@id='1' and @type='B']")

         ' oXMLNode.Text will show "Mr Jones"
         ' oXMLNode.Attributes.getNamedItem("id").Text will show "1"
         ' oXMLNode.Attributes.getNamedItem("type").Text will show "B"

' Select a node list where id equals 1 and the type equals B or C.
' In our example, only Mr. Jones will be returned.

   Set oXMLNodeList = oXMLDoc.selectNodes("//EXAMPLE/CUSTOMER[@id='1' and (@type='B' or @type='C')]")

     ' oXMLNode.Text will show "Mr Jones"

' Select a node with a specific text value

   Set oXMLNode = oXMLDoc.selectSingleNode("//EXAMPLE/CUSTOMER[. ='Mr. Johnson']")

         ' oXMLNode.Text will show "Mr. Johnson"

' Select node list of all nodes with CUSTOMER not equal to "EggHeadCafe"

   oXMLNodeList.selectNodes("//EXAMPLE/CUSTOMER[. !='EggHeadCafe']")

' Start of MSXML4 or higher features.   If you want to use MSXML3, then
' you'll need to set the following:

    oXMLDoc.setProperty "SelectionLanguage", "XPath"

' Search for a substring in an attribute

Set oXMLNode = oXMLDoc.selectSingleNode("//EXAMPLE/CUSTOMER[substring(@type,1,2) ='DE']")

' Search for a substring in a node value

Set oXMLNode = oXMLDoc.selectSingleNode("//EXAMPLE/CUSTOMER[substring(.,1,3) ='Mr.']")

' Search for a value contained in an attribute

Set oXMLNode = oXMLDoc.selectSingleNode("//EXAMPLE/CUSTOMER[contains(@type,'DECEA')]")

' Search for a contained in a node value

Set oXMLNode = oXMLDoc.selectSingleNode("//EXAMPLE/CUSTOMER[contains(.,'Smith')]")

' Search only from root of selected node.   This examples gets a list of nodes
' from a specific node not the whole XML document.   This XML document
' is too small to be a reasonable example but you get the idea.
' The ".//" tells the parser to make the current node the "root" node of the
' document for this specific XPath query.   Without the ".", the XPath query
' would return all CUSTOMER nodes in the entire document even though
' they may be above or below the current node.

Set oNode = oXMLDoc.selectSingleNode("//EXAMPLE")

Set oXMLTreeList = oNode.selectNodes(".//CUSTOMER")

         nTot = oXMLTreeList.length - 1

         For nCnt = 0 to nTot

                Set oXMLNode = oXMLTreeList.nextNode()
                msgbox oXMLNode.Attributes.getNamedItem("id").Text

        Next

' End of MSXML4 or higher features


Set oXMLNode = nothing
Set oXMLDoc = nothing

%>