我回到asp使用XML manupulation。 初始文件:
<?xml version="1.0" ?>
<root>
<sport/>
</root>
这是我的功能
Public Function DefinitFunction( x,z)
Dim text
Dim Root
Dim NodeList
text = "<Definition>" ---<x> </x> <z> </z> --</Definition> "
text = text & "<x><![CDATA["&x&"]]> </x>"
text = text & "<z> </z>"
text = text & "</Definition>"
Set Root = objDoc.documentElement
Set NodeList = Root.getElementsByTagName("sport")
NodeList.appendChild text
objDoc.Save strFile
end function
' Private strFile, objDoc are class object
我想动态地修改所有东西。所以我有一个功能:
DefinitFunction(x,z)
将连接字符串,并在节点<Definition> ---<x> </x> <z> </z> --</Definition>
之后立即在我的文件中附加<sport>
最后这应该是我的结果:
<?xml version="1.0" ?>
<root>
<sport>
<Definition>
---<x> </x> <z> </z> --
</Definition>
</sport>
</root>
这不起作用。有没有更好的方法来实现这个目标?
答案 0 :(得分:1)
您不能直接附加文本..您需要先将其转换为XML节点..
Set newXML = CreateObject("Microsoft.XMLDOM")
newXML.async = False
newXML.loadXML( "<root>" & text & "</root>")
NodeList.appendChild( newXML.documentElement.selectSingleNode("/Definition"))