QTP里面如何操作XML文件

没有蛀牙

从网上找了这2个东西，但实际使用起来，并不怎么好用。
主要是无法识别一些对象，比如documentElement。
大家有没有一些实际的使用经验，对XML文件的读和写的操作。
还有，这和安装microsoft xml 4.0有没有关系？

walker1020

论坛上有关于 XML操作的帖子，你先找找看。另外，你说的“从网上找了这2个东西”，到底指的是什么东西？

songfun

很简单，我写一段遍历xml的代码给你参考下：
'==========================================================================
' NAME: XMLread
'
' AUTHOR: songfun , 51Testing
' DATE  : 2007-4-28
'
' COMMENT:
'
'==========================================================================
Option Explicit

Dim xmlDoc,myErr,strXML

Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = False   
xmlDoc.load "c:\calc1.xml"
If xmlDoc.parseError.errorCode <> 0 Then   
   Set myErr = xmlDoc.parseError
   MsgBox("XML Loads Failed. " & myErr.reason)
Else
        Set rootNode = xmlDoc.documentElement
        Call rTravel(rootNode)
        MsgBox strXML
End If


Sub rTravel (rNode)
        Dim blnTwo,intTestCase,
        blnTwo = False
        iLen = rNode.childNodes.length
        If iLen > 0 Then
                For i = 0 To rNode.childNodes.length -1
                        Set child = rNode.childNodes.item(i)
                        Call rTravel(child)                       
                        childtext = child.nodeValue                       
                        strXML = strXML & childtext & chr(13)
                Next
        Else
                Exit Sub               
        End If
End Sub

没有蛀牙

非常感谢，能用sdlkfj6
但有个小小的错误：
Dim blnTwo,intTestCase,
最后多了一个逗号

songfun

呵呵，故意留给你排错的sdlkfj3

白洁

ding!!!

auto_tester

学习了！