急 用QTP修改XML文件中的一个值，怎么写脚本

helen_xm2005

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

sunnyswu

baidu

freedomwar3

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

up  Microsoft.XMLDOM