QTP如何修改XML中的值？

木卫十二 · 发表于 2007-10-25 16:31:09

仔细的看了songfun大虾的文章和代码，经过一些修改，已经能够从XML中读取相应的值了

但是如果要对XML中某个值做修改应该怎么办呢？

还请大虾们指点

[ 本帖最后由木卫十二于 2007-10-25 16:49 编辑 ]

jmy_1981 · 发表于 2007-10-25 17:09:50

如题。

/* Code Dummy */
xfile          The file name (including its path)
epath       The path containing the child elements you want to retrieve
eleName  The name of the attribute to idenify the right element
attrValue The value of the attribute to identify the right element

Public Function ChangeAttributeValue(xfile, epath, attrName, attrValue)
' Create and load the XML file
Set doc = XMLUtil.CreateXML()
doc.LoadFile xfile
Set elementCol = doc.ChildElementsByPath(epath)

' Search through the nodes for the child you want.
for i = 1 to elementCol.Count
   set attribs = elementCol.Item(i).Attributes

   for x = 1 to attribs.Count
      set attr = attribs.Item(x)
      ' If the specified attribute does not match the one you are looking for, continue with the next iteration.
      If StrComp(attrName,attr.Value) <> 0 then
            Exit For
      End if
      ' Specified child element found, retrieve the desired value.
      Set attrib = attribs.ItemByName(attrValue)
      If attrib is nothing Then
            ChangeAttributeValue = "Attribute not found"
      else
            attrib.Value = ......
      End If
      Exit Function
   Next
Next
' The child node was not found.
RetrieveAttributeValue = "Attribute not found"
End Function

希望有帮助。