QTP操作xml文件函数示例

本文提供了一个使用QTP(QuickTest Professional)操作XML文件的函数示例,包括创建XML对象、加载文件、处理错误和遍历节点等关键步骤。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

下面给出一个QTP操作xml文件函数的一个范例:

Dim filepath,xmlDoc,myErr,strXML,rootNode
filepath
= " c:\12.xml "
Set xmlDoc = CreateObject ( " Microsoft.XMLDOM " ) ' 创建一个xml对象
xmlDoc.async = False
xmlDoc.load filepath
' 加载xml文件
If xmlDoc.parseError.errorCode <> 0 Then ' 返回错误信息
Set myErr = xmlDoc.parseError
MsgBox ( " XML Loads Faild. " & myErr.reason)
Else
Set rootNode = xmlDoc.documentElement ' 设置根节点
Call rTravel(rootNode) ' 遍历节点
msgBox strXML
End If

Sub rTravel(rNode)
Dim blnTwo,intTestCase,iLen,i,child
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 ) ' chr(13)回车符
Next
else
Exit Sub
End If
End Sub

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值