标题: 急 用QTP修改XML文件中的一个值，怎么写脚本 [打印本页] 作者: helen_xm2005 时间: 2010-12-16 21:02 标题: 急 用QTP修改XML文件中的一个值，怎么写脚本 急 用QTP修改XML文件中的一个值，怎么写脚本
哪位大侠知道 麻烦告诉下哈
XML文件内容如下:
<?xml version="1.0" encoding="UTF-8"?>
<userinfo>
<userName>系统管理员</userName>
<count>1</count>
</userinfo>
我想把1修改为0作者: sunnyswu 时间: 2010-12-16 23:21
baidu作者: freedomwar3 时间: 2010-12-17 12:28
Sub mySub
Dim xmlDoc, xmlRoot, ChildItem, msg
Set xmlDoc = CreateObject ("Microsoft.XMLDOM")
xmlDoc.Load "E:\test.xml"
If xmlDoc.parseError.errorCode <> 0 Then
MsgBox "XML loaded failed. :" & xmlDoc.parseError.reason
Exit Sub
End If
Set xmlRoot = xmlDoc.documentElement
If Not xmlRoot.hasChildNodes Then Exit Sub
For Each ChildItem In xmlRoot.childNodes
If ChildItem.nodeName = "count" Then
ChildItem.firstchild.nodeValue = 0
MsgBox ChildItem.firstChild.nodeValue
End If
Next
End Sub
mysub作者: Jun_Li 时间: 2010-12-18 08:39
up Microsoft.XMLDOM