要 引用 Microsoft XML1.0 Library
或 更高版本的 XML。
如:引用 Microsoft XML2.0 LibraryDim xmldoc As New MSXML2.DOMDOCUMENT
xmldoc.loadXML "Put Your XML String Here"
'manipulate DOM nodes here
xmldoc.Save "C:\test.xml"
==================================================
Element 和 Node 是不一样的。XMLDOMElement,XMLDOMComment,XMLDOMEntity等等都是从XMLDOMNode继承的
如:
Private Sub Command1_Click()
Set xmldoc = CreateObject("Msxml2.DOMDocument")
Set rootElement = xmldoc.createElement("memo")
Set toElement = xmldoc.createElement("to")
Set toElementText = xmldoc.createTextNode(Text1.Text)
xmldoc.appendChild (rootElement)
rootElement.appendChild (toElement)
toElement.appendChild (toElementText)
xmldoc.Save ("C:\test1.xml")
End Sub
或 更高版本的 XML。
如:引用 Microsoft XML2.0 LibraryDim xmldoc As New MSXML2.DOMDOCUMENT
xmldoc.loadXML "Put Your XML String Here"
'manipulate DOM nodes here
xmldoc.Save "C:\test.xml"
==================================================
Element 和 Node 是不一样的。XMLDOMElement,XMLDOMComment,XMLDOMEntity等等都是从XMLDOMNode继承的
如:
Private Sub Command1_Click()
Set xmldoc = CreateObject("Msxml2.DOMDocument")
Set rootElement = xmldoc.createElement("memo")
Set toElement = xmldoc.createElement("to")
Set toElementText = xmldoc.createTextNode(Text1.Text)
xmldoc.appendChild (rootElement)
rootElement.appendChild (toElement)
toElement.appendChild (toElementText)
xmldoc.Save ("C:\test1.xml")
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货