用QTP调用外部vbs读写XML的例子

上一篇 / 下一篇 2007-05-19 13:32:18 / 个人分类：原创文章

查看( 2389 ) / 评论( 35 )

目前，企业中对XML的应用越来越广泛，作为自动化测试的测试工程师，也应该掌握XML的读写操作。
以下我使用XML DOM技术演示一个例子，用以读取XML指定节点的节点内容值。
读取函数原型 GetXml strXmlPath,nodeName
这个函数的第一个参数表示xml文件所在路径，第二个参数表示希望获取到的xml节点名，请结合下列例子看
首先，新建一个vbs文件（取个名字叫readXml.vbs），输入代码：

CODE:51Testing软件测试网CjPZ d7sV$I

'==================================================================
a#Nc]"P)p
S0'   Author  : songfun51Testing软件测试网|a/TQbv%h`]V
'51Testing软件测试网i7W5Z3i&b
'  Description :  Read XML51Testing软件测试网jtZ})~_Cj+X
'==================================================================51Testing软件测试网!Aw]a-\5p L
Dim strXML51Testing软件测试网~+f#q%BA

IGw6w:E
y0GetXml "c:\search.xml","TestResult"  '这个函数的第一个参数表示xml文件所在路径，第二个参数表示希望获取到的xml节点名，请结合下列例子看51Testing软件测试网BXPh!W1ao}o
MsgBox strXML
,Od7[2NM;]?0
,lXY"e]7oD+n
y2Z	I0
'@4Lz1u!F0@;d0Function GetXml (ByVal strXmlFilePath,ByVal xmlNodeName)51Testing软件测试网vr6qI
qq
        Dim xmlDoc,xmlRoot
@~F.|,G0       
XFe&Baw
y8_&xlg0        Set xmlDoc = CreateObject("Microsoft.XMLDOM") '创建XML DOM对象51Testing软件测试网j-` z/~"t
        xmlDoc.async = False  '控制加载模式为同步模式（xml树加载完毕后再执行后续代码）
 _5C:j:F9y0        xmlDoc.load strXmlFilePath        '载入xml文件51Testing软件测试网'`)k?A~a
        If xmlDoc.parseError.errorCode <> 0 Then51Testing软件测试网_&pzA
Zp)dw(l
                MsgBox "XML文件格式不对，原因是：" & Chr(13) &  xmlDoc.parseError.reason51Testing软件测试网1ioA4p0ou!C"gj
                Exit Function               51Testing软件测试网:HB,j5fYg$I0_)f
        End If
_hf
h({Q0        Set xmlRoot = xmlDoc.documentElement       51Testing软件测试网L3L`f6F,n4U
        xmlRecursion xmlRoot,xmlNodeName        '调用xml递归函数传入指定的根和节点名       
!nH&Y6k#J/u`qA^0        GetXml = True 'xmlRecursion (xmlRoot)51Testing软件测试网Xh m.|3}/`
       51Testing软件测试网9Y3TKV+ZE
End Function51Testing软件测试网c8l,q-tn
rh~L
51Testing软件测试网'pEwG\3G}5~
Function xmlRecursion(byval xmlNode,byval strNodeName)
+D4L(oG&sy^X0        If xmlNode.nodeName = strNodeName And xmlNode.hasChildNodes Then51Testing软件测试网.e/?\kcv
                If  xmlNode.childNodes.item(0).nodeName = "#text" Then51Testing软件测试网6NRi(@wY8tw#a
                        strXML = strXML & xmlNode.nodeName & ":" & xmlNode.childNodes.item(0).nodeValue & Chr(13)                                               
v"HHii!uJB0P0                End If               
!VR4D
r9n_0        End If                       51Testing软件测试网_;YIVw$U%Re}
        If xmlNode.hasChildNodes Then

st:nAn2r6d*W0                For Each childNodeItem In xmlNode.ChildNodes51Testing软件测试网e&H^%Q.}D
                        If childNodeItem.hasChildNodes Then
|NN'wWo7d0                                xmlRecursion childNodeItem,strNodeName                               
!B]*kE^'cRB0                        End If                       51Testing软件测试网{/pS ]X+o&}
                Next
 E+z"H9o^r&w2s0        End If       51Testing软件测试网W:b$J_J'\"j&`{a#]&R
End Function

接着，自己构造一个xml文件（取个名字叫search.xml），如：

CODE:51Testing软件测试网 F7ag(NE

<?xml version="1.0" encoding="GB2312"?>51Testing软件测试网?
s
M3b1z6L5~

dQw~1zVh7Ja)`?^%t0<ROOT>

Rz7o}s'z0        <TestCase>
.\*l$G
L7r^CoO0                <TestNumberOne>1</TestNumberOne>51Testing软件测试网N1pNcAES
                <TestNumberTwo>2</TestNumberTwo>
-ZY	v]u"^2rpw1v0                <TestNumberThree>+</TestNumberThree>51Testing软件测试网*gu+RcA
tWv
                <TestResult>3</TestResult>51Testing软件测试网.db0{%mD8SpZc
        </TestCase>
9P J1]I:uq5L3j0        <TestCase>
XL#z4lK4qsc0                <TestNumberOne>3</TestNumberOne>
/C%R1o*o{HH|2S0p0                <TestNumberTwo>2</TestNumberTwo>51Testing软件测试网K!N
B]
bv{5w*n"L
                <TestNumberThree>-</TestNumberThree>
#uG/sZ6d`f0w^+V [0                <TestResult>1</TestResult>
b vl$GGMU0        </TestCase>51Testing软件测试网!hk'wwk:f
x#I*c
        <TestCase>
pJ%I
~&c0                <TestNumberOne>3</TestNumberOne>51Testing软件测试网c1Z6cYzR,\
U'TO(o
                <TestNumberTwo>7</TestNumberTwo>

xT6k7H|idX"tQ&c'e0                <TestNumberThree>*</TestNumberThree>
V#P}*o
yU0                <TestResult>21</TestResult>
T}Hz[7A"K0        </TestCase>
$_q+Z3m$x6Re
L0        <TestCase>51Testing软件测试网8Z)H'LBiHs
c6jx
                <TestNumberOne>2</TestNumberOne>
`Kj2W0yGNE&}0                <TestNumberTwo>5</TestNumberTwo>
R6je3Si7B0                <TestNumberThree>/</TestNumberThree>
y)e2j2cO9fBFH;f0                <TestResult>0.4</TestResult>51Testing软件测试网7G	|,N	F@e2`)D;V
        </TestCase>       
q[Q(r9K.S0</ROOT>

然后，在QTP的expert view中调用刚才写的vbs文件：
executefile "c:\readXml.vbs"

点“Run”，就能看到这个效果了。
当然，如果你不用调用外部文件的方式，也可以，如下图。

[本帖最后由 songfun 于 2007-5-19 13:46 编辑]

qtpxml.JPG

论坛模式推荐收藏分享给好友管理

TAG:

dcyan 发布于2007-05-19 14:35:59: 两个if语句里怎么都有hasChildNodes，没有看到判断hasChildNodes为false的情况会不会有问题啊
xmlNode.nodeName = strNodeName And xmlNode.hasChildNodes
h$^.a0{a51Testing软件测试网xmlNode.hasChildNodes

walker1020 发布于2007-05-19 15:43:01: 谢谢楼主，是该研究一下 XML在QTP上的应用了

songfun 发布于2007-05-19 16:55:50: hasChildNodes 的目的是判断有没有子节点，如果有子节点要进行递归。这就是xml的遍历。51Testing软件测试网4]q&@k!P)S
另一处的目的是判断有没有带文本。(T&|"aL5B2q
www.51testing.com8wd-^;KmUMT
N
QUOTE:
原帖由 dcyan 于 2007-5-19 14:35 发表
两个if语句里怎么都有hasChildNodes，没有看到判断hasChildNodes为false的情况会不会有问题啊
xmlNode.nodeName = strNodeName And xmlNode.hasChildNodes
xmlNode.hasChildNodes

alex_82712 发布于2007-05-20 21:27:50: 学习了

bestmonty发布于2007-05-20 23:05:18: 很有用的例子，学习了，谢谢！sdlkfj2

yuedao发布于2007-05-21 10:23:59: sdlkfj8 怎么取属性名和属性值?

没有蛀牙发布于2007-05-22 16:33:10: 最近自己也在研究XML，上次经楼主那个TravelXML的启发不少sdlkfj2 CYi_jc8d
能问一下，这句是什么意思吗？
]3h8eApp5\51Testing软件测试网xmlNode.childNodes.item(0).nodeName = "#text"

没有蛀牙发布于2007-05-22 18:15:45: haschildnodes()这个方法好奇怪
明明已经没有子节点了，却仍然返回true
比如<TestResult>1</TestResult>这个节点www.51testing.com5P&g2[6hd0G
它的childNodes.item(0).nodeName竟然是“#text”y+\p6?+\ ]*y
但是根据例子来看TestResult已经没有子节点了阿

songfun 发布于2007-05-22 21:27:39: 因为在xml有一个特殊的“子节点”——文本节点。
h3?6o
llVwww.51testing.com比如 <TestResult>100</TestResult>51Testing软件测试网hH]/X~3cq

这个节点TestResult下并不是没有子节点，而是有一个文本节点，这个节点的nodeName就是“#text”，而nodeValue是100.
p;NF
Hsp5sbwww.51testing.com如果是 <TestResult/> 这种节点的话，那么用hasChildNodes则返回False。
不知道这样描述能理解么？

$DP}E1[#a%_wK4uwww.51testing.com
1jg*r;k.fk+T+d
QUOTE:
原帖由 没有蛀牙 于 2007-5-22 16:33 发表 /E f/r9r+t$Q\6N
最近自己也在研究XML，上次经楼主那个TravelXML的启发不少sdlkfj2 www.51testing.com2s'ST
^qgj'?
能问一下，这句是什么意思吗？
xmlNode.childNodes.item(0).nodeName = "#text"

songfun 发布于2007-05-22 21:31:51: 顺便把以前我发过的关于操作xml的例子黏贴在这里：）K{/x}T?m

http://bbs.51testing.com/thread-74373-1-1.html

http://bbs.51testing.com/thread-76388-1-1.html
www.51testing.com+a)U!??s
Option Explicitwww.51testing.com/a~Y4v_ ]4q.z
Dim xmlStrf C"Q
j|#gd
!k9ush8_,h;K&QG
xmlLoad ("C:\aa.xml")
rEAZ_
Sub xmlLoad (byval strPath)
      Dim xmlDoc,xmlRoot
,sX,?q
b
w
      Set xmlDoc = CreateObject("Microsoft.XMLDOM")
      xmlDoc.async = False
      xmlDoc.load strPath
      If xmlDoc.parseError.errorCode <> 0 Then
hf;y["b4?51Testing软件测试网             MsgBox "XML loaded Failed.The reason is:" & xmlDoc.parseError.reason/z j}/Ni
            Exit Sub
pO)e5Q2F1hwww.51testing.com       End If       www.51testing.comA9cc+{]H
      Set xmlRoot = xmlDoc.documentElementy^x^r,ms
      xmlStr = xmlRoot.nodeName & ": " & xmlRoot.nodeValue51Testing软件测试网?Xe$VlF
      If xmlRoot.childNodes.length <> 0 Thenwww.51testing.comuB*f9^xP;A
            xmlRecursive xmlRoot
      End If
      MsgBox xmlStr
End Sub

Sub xmlRecursive(byval xmlNode)
      Dim xmlChildNode,xmlChildNodeLen,iLen

      xmlChildNodeLen = xmlNode.childNodes.length
      If xmlChildNodeLen = 0 Then Exit Sub
      For iLen = 0 To xmlChildNodeLen - 151Testing软件测试网,K.P2_g+Jp
            Set xmlChildNode = xmlNode.childNodes.item(iLen)
8o5c`8A3_4`
~             xmlStr = xmlStr & Chr(13) & Chr(10) & xmlChildNode.nodeName & ": " & xmlChildNode.nodeValue
            If xmlChildNode.childNodes.length <> 0 Then
#pQL6r@5J4E51Testing软件测试网                      xmlRecursive xmlChildNode
            End If
      Next       0T.l4u4i6|4_P
End sub

songfun 发布于2007-05-22 21:32:18: '==========================================================================
' NAME: XMLread
Y+]L,S+[@3]51Testing软件测试网'
' AUTHOR: songfun , 51Testing
' DATE  : 2007-4-28
6P.q9^3NKk"B1U51Testing软件测试网'
' COMMENT:
'www.51testing.comt5`WTq7n*|4|S$|
'==========================================================================
Option Explicit Pf4mvy
N\!i;I

Dim xmlDoc,myErr,strXML

G9Vh-?L*ESet xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = False
xmlDoc.load "c:\calc1.xml"
If xmlDoc.parseError.errorCode <> 0 Then
#n6Z7n$\#\www.51testing.com Set myErr = xmlDoc.parseError
MsgBox("XML Loads Failed. " & myErr.reason)
Else
      Set rootNode = xmlDoc.documentElement
      Call rTravel(rootNode)
      MsgBox strXML
6z.aK.Ta%^+_}xEnd Ifwww.51testing.comAxnk @_r,h8P

www.51testing.comsJ/v2V~
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)
,I6~p}^                      Call rTravel(child)
| `)A)UAwl                      childtext = child.nodeValue
                     strXML = strXML & childtext & chr(13)
            Next
      Else
:J9b^)a:y(]0UC%kj             Exit Sub

MZH[E
U51Testing软件测试网       End If #KYnE6nk1b3QBnH
End Sub