[XSL-LIST Mailing List Archive Home] [By Thread] [By Date] [Recent Entries] [Reply To This Message]

RE: Solved -accessing Character Entity's via MSXML par

Subject: RE: Solved -accessing Character Entity's via MSXML parser, in their original form...
From: "Julian Reschke" <julian.reschke@xxxxxx>
Date: Mon, 29 Oct 2001 10:38:00 +0100
msxml amp
Again:

It's not "untransformed". It's just hat you forced MSXML to escape the
string for you.

If the input was "&#38;" you'll still get back "&amp;".


> -----Original Message-----
> From: owner-xsl-list@xxxxxxxxxxxxxxxxxxxxxx
> [mailto:owner-xsl-list@xxxxxxxxxxxxxxxxxxxxxx]On Behalf Of
> jdgarrett@xxxxxxxxxx
> Sent: Monday, October 29, 2001 9:03 AM
> To: xsl-list@xxxxxxxxxxxxxxxxxxxxxx
> Subject:  Solved -accessing Character Entity's via MSXML parser, in
> their original form...
>
>
> Solved -accessing Character Entity's via MSXML parser, in their original
> form...
> ******************************************************************
> **********
> *****
>
> Given the following XML structure ....
>
> ******************************************************************
> *********
> <?xml version="1.0"?>
> <Company>
> 	<AccountNumber  Name="Ben &amp; Jerry's"
> PhoneNumber="555-1212">123456</AccountNumber>
> </Company>
> ******************************************************************
> *********
>
> where the above XML structure is set to a variable XML1
>
>
> and the following VB function...using the MSXML parser....
>
> ******************************************************************
> *********
> Function RetrieveValue() as String
> On Error GoTo errorhandler
>
>     Dim XMLDoc As New MSXML2.DOMDocument30
>     Dim selection As MSXML2.IXMLDOMSelection
>     Dim strValue_1$, strValue_2$, strValue_3$, strValue_4$
>     Dim bLoadError%
>     Dim i%
>
>     i = 0
>     bLoadError = XMLDoc.loadXML(XML1)
>     Set selection = XMLDoc.selectNodes("//AccountNumber")
>
>     strValue_1$ = selection.Item(i).Attributes.getNamedItem("Name").Text
>
>     strValue_2$ = selection.Item(i).Attributes.getNamedItem("Name").xml
>
>     strValue_3$ =
> selection.Item(i).Attributes.getNamedItem("Name").firstChild.Text
>
>     strValue_4$ =
> selection.Item(i).Attributes.getNamedItem("Name").firstChild.xml
>
>
>     FindXMLCharacterEntity = strValue_4$
>
> Exit Function
> errorhandler:
> Resume Next
> End Function
> ******************************************************************
> *********
>
> ..then the following values will be found
>
> strValue_1$ = Ben & Jerry's
> strValue_2$ = Name="Ben &amp; Jerry's"
> strValue_3$ = Ben & Jerry's
> strValue_4$ = Ben &amp; Jerry's
>
> and it is strValue_4$ that now finally allows me
> to return the value of the Name attribute
> as it exists in the XML structure before
> it is loaded ....by accessing firstChild.xml ....
>
> strValue_4$ =
> selection.Item(0).Attributes.getNamedItem("Name").firstChild.xml
>
>
> and so I can now finally retrieve the node
> attribute value as it exists in the original XML structure ....
>
> **********************************************************
> **********************************************************
> **********************************************************
> NOTE: "This is all I had wanted to begin with !!"
> **********************************************************
> **********************************************************
> **********************************************************
>
> or
>
> given
> .
> .
> .
> <SomeNode  SomeAttribute="ABC123" SomeOtherAttribute="Ben &amp;
> Jerrys">123456</SomeNode>
> .
> .
> .
>
>
> Dim pbError as Boolean
> Dim XMLDOC As New MSXML2.DOMDocument30
> XMLDOC.setProperty "SelectionLanguage", "XPath"
> pbError = XMLDOC.Load(msXMLFile)
>
> XMLDOC.selectSingleNode("//SomeNode[@SomeAttribute =
> 'ABC123' ]").Attributes.getNamedItem
> ("SomeOtherAttribute").firstChild.text
>
> will return   Ben & Jerrys
>
> vs.
>
> XMLDOC.selectSingleNode("//SomeNode[@SomeAttribute =
> 'ABC123' ]").Attributes.getNamedItem("SomeOtherAttribute").firstChild.xml
>
> but this will return   Ben &amp; Jerrys
>
>
>
>  XSL-List info and archive:  http://www.mulberrytech.com/xsl/xsl-list
>


 XSL-List info and archive:  http://www.mulberrytech.com/xsl/xsl-list


Current Thread

PURCHASE STYLUS STUDIO ONLINE TODAY!

Purchasing Stylus Studio from our online shop is Easy, Secure and Value Priced!

Buy Stylus Studio Now

Download The World's Best XML IDE!

Accelerate XML development with our award-winning XML IDE - Download a free trial today!

Don't miss another message! Subscribe to this list today.
Email
First Name
Last Name
Company
Subscribe in XML format
RSS 2.0
Atom 0.3
Site Map | Privacy Policy | Terms of Use | Trademarks
Free Stylus Studio XML Training:
W3C Member
Stylus Studio® and DataDirect XQuery ™are products from DataDirect Technologies, is a registered trademark of Progress Software Corporation, in the U.S. and other countries. © 2004-2013 All Rights Reserved.