Remove the empty xmlns attribute in generated xml

如果直接写

1.             Dim xd As New XmlDocument()
2.             xd.Load(xmlPath)
4.             Dim root As XmlNode = xd.DocumentElement
6.             Dim xn As XmlNode = xd.CreateElement("ItemType")
8.             Dim nameAttr As XmlAttribute = xd.CreateAttribute("Name")
9.             nameAttr.Value = name
10.             xn.Attributes.Append(nameAttr)
12.             Dim displayNameAttr As XmlAttribute = xd.CreateAttribute("DisplayName")
13.             displayNameAttr.Value = displayName
14.             xn.Attributes.Append(displayNameAttr)
16.             root.AppendChild(xn)
18.             xd.Save(xmlPath)

产出的xml会有一个空的xmlns属性, e.g:

<FileExtension Name=".cd" ContentType="ClassDiagram" xmlns=""/>

 

解决这个问题，只需要在CreateElement的时候改为：

Dim xn As XmlNode = xd.CreateElement("ItemType", root.NamespaceURI)

就可以了