2,503
社区成员




Sub testXML()
Dim dom, node, PCMS
Set dom = CreateDom
Set node = dom.createProcessingInstruction("xml", "version='1.0' encoding='utf-8'")
dom.appendChild node
Set node = Nothing
Set PCMS = dom.createNode(1, "PCMS", "MyNamespace")
dom.appendChild PCMS
PCMS.appendChild dom.createNode(1, "SendPCMSManifest", "MyNamespace")
PCMS.appendChild dom.createNode(1, "header", "MyNamespace")
Debug.Print dom.XML
dom.Save "D:\DomTest.xml"
End Sub
Private Function CreateDom()
Dim dom
Set dom = New DOMDocument
dom.async = False
dom.validateOnParse = False
dom.resolveExternals = False
dom.preserveWhiteSpace = True
Set CreateDom = dom
End Function
运行的结果是生成DomTest.xml
<?xml version="1.0" encoding="UTF-8"?>
-<PCMS xmlns="MyNamespace">
<SendPCMSManifest/>
<header/>
</PCMS>
问题:下面红色的这段代码要怎么写,还有改了以后子节点会不会有xmlns的空属性,要求不显示xmlns=,请高手帮忙解答。谢谢!
<?xml version="1.0" encoding="UTF-8"?>
-<PCMS xmlns="MyNamespace">
<SendPCMSManifest/>
<text>文字</text>
</SendPCMSManifest>
<header/>
</PCMS>