Solved

XML duplicate empty namespace in child nodes. Why ?

Posted on 2007-12-05
2
2,132 Views
Last Modified: 2013-11-26
I want to create in VB6 a KML file for import in Google Earth.

Following the template for KML file (http://code.google.com/apis/kml/documentation/kml_tut.html) I must specify a namespace in root element.

<?xml version="1.0" encoding="UTF-8"?>
<kml xmlns="http://earth.google.com/kml/2.2">
  <Placemark>
    <name>Simple placemark</name>
    <description>Attached to the ground. Intelligently places itself
       at the height of the underlying terrain.</description>
    <Point>
      <coordinates>-122.0822035425683,37.42228990140251,0</coordinates>
    </Point>
  </Placemark>
</kml>

But after execute my program (see code) I have this result:

<?xml version="1.0" encoding="UTF-8" ?>
<?xml-stylesheet type='text/xml' href='test.xsl'?>
      <!-- sample xml file created using XML DOM object.-->
<root xmlns="http://earth.google.com/kml/2.0" created="2007.12.05" language="vb6">
      <node1 xmlns="">some character data</node1>
            <node2 xmlns="">
                  <![CDATA[ <some mark-up text>]]>
            </node2>
      <node3 xmlns="">
            <subNode1 />
            <subNode2 test="wow">other character data</subNode2>
            <subNode3 />
      </node3>
</root>

As you can see, xmlns attribute (xmlns="") is repeated in every child node but I don't want.
Any idea so tolve the problem ?


Set DOM = New DOMDocument60
  
  With DOM
    .async = False
    .preserveWhiteSpace = False
    .resolveExternals = False
    .validateOnParse = False
  End With
  
  ' Create a processing instruction targeted for xml.
  Set ProcessingInstruction = DOM.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8""")
  DOM.appendChild ProcessingInstruction
  Set ProcessingInstruction = Nothing
  
  ' Create a processing instruction targeted for xml-stylesheet.
  Set ProcessingInstruction = DOM.createProcessingInstruction("xml-stylesheet", "type='text/xml' href='test.xsl'")
  DOM.appendChild ProcessingInstruction
  Set NodeElement = Nothing
  
  ' Create a comment for the document.
  Set Comment = DOM.createComment("sample xml file created using XML DOM object.")
  DOM.appendChild Comment
  Set Comment = Nothing
  
  ' Create the root element
  Set RootElement = DOM.createElement("root")
  
  Set Attr = DOM.createAttribute("xmlns")
  Attr.Value = "http://earth.google.com/kml/2.0"
  Set Attr = Nothing
  
  ' Create a "created" attribute for the root element and assign the "2007.12.05" character data as the attribute value.
  Set Attr = DOM.createAttribute("created")
  Attr.Value = "2007.12.05"
  RootElement.setAttributeNode Attr
  Set Attr = Nothing
  
  ' Create a "language" attribute for the root element and assign the "vb6" character data as the attribute value.
  Set Attr = DOM.createAttribute("language")
  Attr.Value = "vb6"
  RootElement.setAttributeNode Attr
  Set Attr = Nothing
  
  ' Add the root element to the DOM instance.
  DOM.appendChild RootElement
  
  ' Create and add one more node to the root element just created.
  
  ' Create a text element.
  Set NodeElement = DOM.createElement("node1")
  NodeElement.Text = "some character data"
  
  ' Add text node to the root element.
  RootElement.appendChild NodeElement
  Set NodeElement = Nothing
	
	and so on...

Open in new window

0
Comment
Question by:peter1950
2 Comments
 
LVL 38

Accepted Solution

by:
PaulHews earned 500 total points
ID: 20413044
Create your root element with a default namespace like so:

 Dim DefaultNS As String
 DefaultNS = "http://earth.google.com/kml/2.0"
 ' Create the root element
 Set RootElement = Dom.createNode(NODE_ELEMENT, "root", DefaultNS)

Now, add your child nodes with the namespace as well:

 ' Create a text element.
 Set nodeElement = Dom.createNode(NODE_ELEMENT, "node1", DefaultNS)
 nodeElement.Text = "some character data"
0
 

Author Closing Comment

by:peter1950
ID: 31412878
Thanks
0

Featured Post

The New “Normal” in Modern Enterprise Operations

DevOps for the modern enterprise offers many benefits — increased agility, productivity, and more, but digital transformation isn’t easy, especially if you’re not addressing the right issues. Register for the webinar to dive into the “new normal” for enterprise modern ops.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The Client Need Led Us to RSS I recently had an investment company ask me how they might notify their constituents about their newsworthy publications.  Probably you would think "Facebook" or "Twitter" but this is an interesting client.  Their cons…
The Confluence of Individual Knowledge and the Collective Intelligence At this writing (summer 2013) the term API (http://dictionary.reference.com/browse/API?s=t) has made its way into the popular lexicon of the English language.  A few years ago, …
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…
In an interesting question (https://www.experts-exchange.com/questions/29008360/) here at Experts Exchange, a member asked how to split a single image into multiple images. The primary usage for this is to place many photographs on a flatbed scanner…

828 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question