51Testing软件测试论坛

标题: QTP里面如何操作XML文件 [打印本页]

作者: 没有蛀牙 时间: 2007-4-26 18:00
标题: QTP里面如何操作XML文件
从网上找了这2个东西，但实际使用起来，并不怎么好用。
主要是无法识别一些对象，比如documentElement。
大家有没有一些实际的使用经验，对XML文件的读和写的操作。
还有，这和安装microsoft xml 4.0有没有关系？

作者: walker1020 时间: 2007-4-27 09:06
论坛上有关于 XML操作的帖子，你先找找看。另外，你说的“从网上找了这2个东西”，到底指的是什么东西？

作者: songfun 时间: 2007-4-29 11:31
很简单，我写一段遍历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

作者: 没有蛀牙 时间: 2007-4-29 12:03
非常感谢，能用sdlkfj6
但有个小小的错误：
Dim blnTwo,intTestCase,
最后多了一个逗号

作者: songfun 时间: 2007-4-29 13:24
呵呵，故意留给你排错的sdlkfj3

作者: 白洁 时间: 2007-6-11 14:43
ding!!!

作者: auto_tester 时间: 2014-4-24 09:23
学习了！

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)