急 用QTP修改XML文件中的一个值,怎么写脚本
急用QTP修改XML文件中的一个值,怎么写脚本哪位大侠知道麻烦告诉下哈
XML文件内容如下:
<?xml version="1.0" encoding="UTF-8"?>
<userinfo>
<userName>系统管理员</userName>
<count>1</count>
</userinfo>
我想把1修改为0 baidu 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 upMicrosoft.XMLDOM
页:
[1]