空间管理您的位置: 51Testing软件测试网 » 大师兄--绝迹江湖 » 日志

心念旧安，夙夜忧叹。

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

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

查看( 2388 ) / 评论( 35 )

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

CODE:

'==================================================================51Testing软件测试网)a
}oGoA
'   Author  : songfun
B;zxa.R-G/]0'
Er9w;M8Vf0'  Description :  Read XML
$s#jGRh8~0'==================================================================
1o.b:XQ!au0Dim strXML
f{Uk'G:Y#v0
3[$oRN	G I7p"q6Bm0GetXml "c:\search.xml","TestResult"  '这个函数的第一个参数表示xml文件所在路径，第二个参数表示希望获取到的xml节点名，请结合下列例子看51Testing软件测试网L#c2]G(az'Q*F\
MsgBox strXML51Testing软件测试网
v/Sn$M
\EI'n4y

PBas(V'U)@5W h051Testing软件测试网^PEE&VT*J7U
Function GetXml (ByVal strXmlFilePath,ByVal xmlNodeName)51Testing软件测试网-tK0z/P(X0BkQ
        Dim xmlDoc,xmlRoot
g7rg^;A0       51Testing软件测试网,f
QG%KFuho
        Set xmlDoc = CreateObject("Microsoft.XMLDOM") '创建XML DOM对象51Testing软件测试网3nO v%hmI
        xmlDoc.async = False  '控制加载模式为同步模式（xml树加载完毕后再执行后续代码）51Testing软件测试网6\.oU^r)Fq
        xmlDoc.load strXmlFilePath        '载入xml文件
f0|feG8`e+f0        If xmlDoc.parseError.errorCode <> 0 Then51Testing软件测试网9D\;~k4}d+J
                MsgBox "XML文件格式不对，原因是：" & Chr(13) &  xmlDoc.parseError.reason
!X'SV,@b0                Exit Function               
H`d I;Wj`5B0        End If51Testing软件测试网!_\*Ls^m0w	j)U,n
        Set xmlRoot = xmlDoc.documentElement       
;r%[4m	AK
?5Sk0        xmlRecursion xmlRoot,xmlNodeName        '调用xml递归函数传入指定的根和节点名       51Testing软件测试网3HN&N
DA3d
        GetXml = True 'xmlRecursion (xmlRoot)51Testing软件测试网S0{$wzH-]
       51Testing软件测试网	wD6g.I!vOq&g_4y+G
End Function51Testing软件测试网3baed0U3B
51Testing软件测试网t
O0O#~_X%Q
Function xmlRecursion(byval xmlNode,byval strNodeName)51Testing软件测试网c;Q\Q'h%i^
        If xmlNode.nodeName = strNodeName And xmlNode.hasChildNodes Then51Testing软件测试网(^,F+eN-r`3dzz2{
                If  xmlNode.childNodes.item(0).nodeName = "#text" Then
d5OqrH{8~0                        strXML = strXML & xmlNode.nodeName & ":" & xmlNode.childNodes.item(0).nodeValue & Chr(13)                                               
/@oH_0x*Cs]}0                End If               
2Z
]y$G2o-g2z	hptY0        End If                       51Testing软件测试网
d5Q3w8R;E
        If xmlNode.hasChildNodes Then
Z	Y/PA$uJ:z1b0                For Each childNodeItem In xmlNode.ChildNodes
D*y5V&z$S|0                        If childNodeItem.hasChildNodes Then
f`)v7[jPG[1tX0Y5V0                                xmlRecursion childNodeItem,strNodeName                               51Testing软件测试网0Up:QUq7v
                        End If                       
	b#Q {fceLL2u0                Next51Testing软件测试网OI.ZB,x
        End If       
Z,~i
EA lZQ0End Function

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

CODE:51Testing软件测试网4oagM1U#dJs

<?xml version="1.0" encoding="GB2312"?>51Testing软件测试网`2x2xdCC2we/o
51Testing软件测试网9}:y~BW QG!S/]
<ROOT>
(`0P
Is2_0        <TestCase>
&`
~	S6N`v+G
n7_0                <TestNumberOne>1</TestNumberOne>51Testing软件测试网ys5[0t?3uO
                <TestNumberTwo>2</TestNumberTwo>
5G1t!e!TPDVO#?0                <TestNumberThree>+</TestNumberThree>51Testing软件测试网4Y0Se[?
i
                <TestResult>3</TestResult>
q\!W(fV~}my0        </TestCase>
T/OT#G@2L#|y0        <TestCase>51Testing软件测试网E+i#G@r}
NUJcK
                <TestNumberOne>3</TestNumberOne>
0o0nk7zw0                <TestNumberTwo>2</TestNumberTwo>51Testing软件测试网A\+O
m5M2iQ
                <TestNumberThree>-</TestNumberThree>51Testing软件测试网9U*Tp9}{
                <TestResult>1</TestResult>
MT	G+[,~tV0        </TestCase>51Testing软件测试网y^"CI1a
ij"_
        <TestCase>51Testing软件测试网4I#YGO5A"FvNw$V
                <TestNumberOne>3</TestNumberOne>
j/]:~3o!N/t_0                <TestNumberTwo>7</TestNumberTwo>
 l9m*hD.nj.LX"t0                <TestNumberThree>*</TestNumberThree>51Testing软件测试网%g0g9Covc
                <TestResult>21</TestResult>
TC:@W,T5C$g0        </TestCase>
*}:gjr@Q/]^? v0        <TestCase>
`xU2|rQ&[]0                <TestNumberOne>2</TestNumberOne>
8H0Rq;FZy	i{.}Q0                <TestNumberTwo>5</TestNumberTwo>
0uv^7V*T{D0                <TestNumberThree>/</TestNumberThree>51Testing软件测试网&z1d9f7aI+k
                <TestResult>0.4</TestResult>51Testing软件测试网0ZV_#WON
        </TestCase>       
nX,x	\]	?~*Q@0</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
xmlNode.hasChildNodes

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

songfun 发布于2007-05-19 16:55:50: hasChildNodes 的目的是判断有没有子节点，如果有子节点要进行递归。这就是xml的遍历。
另一处的目的是判断有没有带文本。

%S)a$o!iu#mULm]_www.51testing.com
QUOTE:
原帖由 dcyan 于 2007-5-19 14:35 发表 51Testing软件测试网/L5Ff$Re4{!A
两个if语句里怎么都有hasChildNodes，没有看到判断hasChildNodes为false的情况会不会有问题啊
9yvy8V
`1eb51Testing软件测试网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
能问一下，这句是什么意思吗？
xmlNode.childNodes.item(0).nodeName = "#text"

没有蛀牙发布于2007-05-22 18:15:45: haschildnodes()这个方法好奇怪
明明已经没有子节点了，却仍然返回true
O*R7Rp.@W{ L!vwww.51testing.com比如<TestResult>1</TestResult>这个节点
它的childNodes.item(0).nodeName竟然是“#text”
,wZ&E'^-I:lM但是根据例子来看TestResult已经没有子节点了阿

songfun 发布于2007-05-22 21:27:39: 因为在xml有一个特殊的“子节点”——文本节点。
比如 <TestResult>100</TestResult>
www.51testing.comF-B7i
Av]#Gsm#w
这个节点TestResult下并不是没有子节点，而是有一个文本节点，这个节点的nodeName就是“#text”，而nodeValue是100.
如果是 <TestResult/> 这种节点的话，那么用hasChildNodes则返回False。www.51testing.com6gfGA7d
N!Be*O
不知道这样描述能理解么？
lu({8A(n,PY}V7x
*q.~&`8U&pv3w
www.51testing.com5Aj{%\Xs,x
p
QUOTE:
原帖由 没有蛀牙 于 2007-5-22 16:33 发表
最近自己也在研究XML，上次经楼主那个TravelXML的启发不少sdlkfj2 www.51testing.comR)f3J
p+V7^9e6MK
能问一下，这句是什么意思吗？
xmlNode.childNodes.item(0).nodeName = "#text"

songfun 发布于2007-05-22 21:31:51: 顺便把以前我发过的关于操作xml的例子黏贴在这里：）
Urp:N7_~
^#@Q

ai\v|http://bbs.51testing.com/thread-74373-1-1.html

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

Option Explicit
Dim xmlStr8JY"Wf|V

xmlLoad ("C:\aa.xml")

Sub xmlLoad (byval strPath)51Testing软件测试网`HG|yOe4I
      Dim xmlDoc,xmlRoot
      51Testing软件测试网9r5R+gsYV9ZD
      Set xmlDoc = CreateObject("Microsoft.XMLDOM")
      xmlDoc.async = False
      xmlDoc.load strPath
      If xmlDoc.parseError.errorCode <> 0 Then       www.51testing.com|c}S:IIs#[DI
            MsgBox "XML loaded Failed.The reason is:" & xmlDoc.parseError.reason
            Exit Sub
      End If
_t['YZ9B       Set xmlRoot = xmlDoc.documentElement
      xmlStr = xmlRoot.nodeName & ": " & xmlRoot.nodeValue
      If xmlRoot.childNodes.length <> 0 Then
            xmlRecursive xmlRootL+\jLEC~
      End If
      MsgBox xmlStr51Testing软件测试网Q+v^\zb
End Sub
/v9}'[#{.ve
Sub xmlRecursive(byval xmlNode).i7['lq:o fO"~0C
      Dim xmlChildNode,xmlChildNodeLen,iLen

      xmlChildNodeLen = xmlNode.childNodes.length
      If xmlChildNodeLen = 0 Then Exit Sub       www.51testing.comh;Xoop
      For iLen = 0 To xmlChildNodeLen - 1
            Set xmlChildNode = xmlNode.childNodes.item(iLen)
            xmlStr = xmlStr & Chr(13) & Chr(10) & xmlChildNode.nodeName & ": " & xmlChildNode.nodeValue51Testing软件测试网4[f_9JeZ
            If xmlChildNode.childNodes.length <> 0 Then
                     xmlRecursive xmlChildNodeY@(B.cj/{ R9D
            End If
      Next
End sub

songfun 发布于2007-05-22 21:32:18: '==========================================================================
' NAME: XMLread
'
' AUTHOR: songfun , 51Testing
' DATE  : 2007-4-28
'
' COMMENT: 51Testing软件测试网9{)^P#Wu-o
'
'==========================================================================
kwa"V8j)gQ'N51Testing软件测试网Option Explicit
M,Plb7qwww.51testing.com
Dim xmlDoc,myErr,strXML%tr-X?] |#Q

|!` Yp+v3i*ZX5KSet xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = False 51Testing软件测试网x F-_'@`,z
xmlDoc.load "c:\calc1.xml"
]_0O3X#ddq51Testing软件测试网If xmlDoc.parseError.errorCode <> 0 Then
Set myErr = xmlDoc.parseErrorwww.51testing.com*dYqUt0[
MsgBox("XML Loads Failed. " & myErr.reason)
c)].pC@1FjbElse
d4F
\l"a51Testing软件测试网       Set rootNode = xmlDoc.documentElement Q+xC&nf
      Call rTravel(rootNode)
      MsgBox strXML
End If

Llv
J%mxq2OkO
Sub rTravel (rNode)
      Dim blnTwo,intTestCase,51Testing软件测试网*u7Frv8iM
      blnTwo = False
      iLen = rNode.childNodes.length
hc-G'T5|-t&p       If iLen > 0 Then
            For i = 0 To rNode.childNodes.length -1
                     Set child = rNode.childNodes.item(i)www.51testing.comGz1it)S8DP\
                     Call rTravel(child)                      51Testing软件测试网8tgF(KX}o
                     childtext = child.nodeValue

L+v9{#~+\qKwww.51testing.com                      strXML = strXML & childtext & chr(13)
7I,pj[,ESv4B)M             Next
      Else
            Exit Sub             2_R,G.`&]3w%a
      End If
End Sub

milan330330 发布于2007-05-23 10:20:18: 谢谢楼主共享..学习了~

ccc-51testing发布于2007-05-23 11:12:58: 学习
要学的东西真多，累。。。

dyq 发布于2007-07-15 15:24:39: 还没看，不过先支持一下。。。

v_v 发布于2007-08-06 01:56:50: 哈哈，明天宋老大要讲的XML 读写。先看下了。。。sdlkfj5

nedved1020 发布于2007-08-27 15:32:31: 讲的真不错!!学了不少!!体会中!!

看雪时节发布于2007-08-29 10:01:31: 顶了

看雪时节发布于2007-08-29 10:01:50: 斑竹辛苦

lovetest6 发布于2008-08-11 15:42:10: 强帖留名啊。呵呵。

zhaoping 发布于2008-09-10 10:26:20: 按照楼主这样做,弹出对话框:xml文件格式不对，原因是：不支持从当前编码到指定编码的切换Qs8J_
A)@MLS
www.51testing.comt$j |.}&b.uM
[ 本帖最后由 zhaoping 于 2008-9-10 10:28 编辑 ]

进入论坛，查看全部评论

songfun

用户菜单

我的栏目

标题搜索

日历

数据统计

访问量: 452831
日志数: 138
图片数: 4
建立时间: 2006-11-26
更新时间: 2013-08-30

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

用户菜单

我的栏目

标题搜索

日历

我的存档

数据统计

RSS订阅