helen_xm2005 发表于 2010-12-16 21:02:49

急 用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:44

baidu

freedomwar3 发表于 2010-12-17 12:28:55

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:01

upMicrosoft.XMLDOM
页: [1]
查看完整版本: 急 用QTP修改XML文件中的一个值,怎么写脚本