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

songfun

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

1. 
   
2. '==================================================================
   
3. '   Author  : songfun
   
4. '
   
5. '  Description :  Read XML
   
6. '==================================================================
   
7. Dim strXML
   
8. 
   
9. GetXml "c:\search.xml","TestResult"  '这个函数的第一个参数表示xml文件所在路径，第二个参数表示希望获取到的xml节点名，请结合下列例子看
   
10. MsgBox strXML
    
11. 
    
12. 
    
13. Function GetXml (ByVal strXmlFilePath,ByVal xmlNodeName)
    
14.         Dim xmlDoc,xmlRoot
    
15.        
    
16.         Set xmlDoc = CreateObject("Microsoft.XMLDOM") '创建XML DOM对象
    
17.         xmlDoc.async = False  '控制加载模式为同步模式（xml树加载完毕后再执行后续代码）
    
18.         xmlDoc.load strXmlFilePath        '载入xml文件
    
19.         If xmlDoc.parseError.errorCode <> 0 Then
    
20.                 MsgBox "XML文件格式不对，原因是：" & Chr(13) &  xmlDoc.parseError.reason
    
21.                 Exit Function               
    
22.         End If
    
23.         Set xmlRoot = xmlDoc.documentElement       
    
24.         xmlRecursion xmlRoot,xmlNodeName        '调用xml递归函数传入指定的根和节点名       
    
25.         GetXml = True 'xmlRecursion (xmlRoot)
    
26.        
    
27. End Function
    
28. 
    
29. Function xmlRecursion(byval xmlNode,byval strNodeName)
    
30.         If xmlNode.nodeName = strNodeName And xmlNode.hasChildNodes Then
    
31.                 If  xmlNode.childNodes.item(0).nodeName = "#text" Then
    
32.                         strXML = strXML & xmlNode.nodeName & ":" & xmlNode.childNodes.item(0).nodeValue & Chr(13)                                               
    
33.                 End If               
    
34.         End If                       
    
35.         If xmlNode.hasChildNodes Then
    
36.                 For Each childNodeItem In xmlNode.ChildNodes
    
37.                         If childNodeItem.hasChildNodes Then
    
38.                                 xmlRecursion childNodeItem,strNodeName                               
    
39.                         End If                       
    
40.                 Next
    
41.         End If       
    
42. End Function
    
43. 
    

复制代码

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

1. 
   
2. <?xml version="1.0" encoding="GB2312"?>
   
3. 
   
4. <ROOT>
   
5.         <TestCase>
   
6.                 <TestNumberOne>1</TestNumberOne>
   
7.                 <TestNumberTwo>2</TestNumberTwo>
   
8.                 <TestNumberThree>+</TestNumberThree>
   
9.                 <TestResult>3</TestResult>
   
10.         </TestCase>
    
11.         <TestCase>
    
12.                 <TestNumberOne>3</TestNumberOne>
    
13.                 <TestNumberTwo>2</TestNumberTwo>
    
14.                 <TestNumberThree>-</TestNumberThree>
    
15.                 <TestResult>1</TestResult>
    
16.         </TestCase>
    
17.         <TestCase>
    
18.                 <TestNumberOne>3</TestNumberOne>
    
19.                 <TestNumberTwo>7</TestNumberTwo>
    
20.                 <TestNumberThree>*</TestNumberThree>
    
21.                 <TestResult>21</TestResult>
    
22.         </TestCase>
    
23.         <TestCase>
    
24.                 <TestNumberOne>2</TestNumberOne>
    
25.                 <TestNumberTwo>5</TestNumberTwo>
    
26.                 <TestNumberThree>/</TestNumberThree>
    
27.                 <TestResult>0.4</TestResult>
    
28.         </TestCase>       
    
29. </ROOT>
    

复制代码

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

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

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

dcyan

两个if语句里怎么都有hasChildNodes， 没有看到判断hasChildNodes为false的情况会不会有问题啊
xmlNode.nodeName = strNodeName And xmlNode.hasChildNodes
xmlNode.hasChildNodes

walker1020

谢谢楼主，是该研究一下 XML在QTP上的应用了

songfun

hasChildNodes 的目的是判断有没有子节点，如果有子节点要进行递归。这就是xml的遍历。
另一处的目的是判断有没有带文本。

原帖由 dcyan 于 2007-5-19 14:35 发表
两个if语句里怎么都有hasChildNodes， 没有看到判断hasChildNodes为false的情况会不会有问题啊
xmlNode.nodeName = strNodeName And xmlNode.hasChildNodes
xmlNode.hasChildNodes

alex_82712

学习了

bestmonty

很有用的例子，学习了，谢谢！sdlkfj2

yuedao

sdlkfj8  怎么取属性名和属性值?

没有蛀牙

最近自己也在研究XML，上次经楼主那个TravelXML的启发不少sdlkfj2
能问一下，这句是什么意思吗？
xmlNode.childNodes.item(0).nodeName = "#text"

没有蛀牙

haschildnodes()这个方法好奇怪
明明已经没有子节点了，却仍然返回true
比如<TestResult>1</TestResult>这个节点
它的childNodes.item(0).nodeName竟然是“#text”
但是根据例子来看TestResult已经没有子节点了阿

songfun

因为在xml有一个特殊的“子节点”——文本节点。
比如 <TestResult>100</TestResult>

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

原帖由 没有蛀牙 于 2007-5-22 16:33 发表
最近自己也在研究XML，上次经楼主那个TravelXML的启发不少sdlkfj2
能问一下，这句是什么意思吗？
xmlNode.childNodes.item(0).nodeName = "#text"

songfun

顺便把以前我发过的关于操作xml的例子黏贴在这里：）

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

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

Option Explicit
Dim xmlStr

xmlLoad ("C:\aa.xml")

Sub xmlLoad (byval strPath)
        Dim xmlDoc,xmlRoot
        
        Set xmlDoc = CreateObject("Microsoft.XMLDOM")
        xmlDoc.async = False
        xmlDoc.load strPath
        If xmlDoc.parseError.errorCode <> 0 Then        
                MsgBox "XML loaded Failed.The reason is:" & xmlDoc.parseError.reason
                Exit Sub
        End If         
        Set xmlRoot = xmlDoc.documentElement
        xmlStr = xmlRoot.nodeName & ": " & xmlRoot.nodeValue
        If xmlRoot.childNodes.length <> 0 Then
                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 - 1
                Set xmlChildNode = xmlNode.childNodes.item(iLen)
                xmlStr = xmlStr & Chr(13) & Chr(10) & xmlChildNode.nodeName & ": " & xmlChildNode.nodeValue
                If xmlChildNode.childNodes.length <> 0 Then
                        xmlRecursive xmlChildNode
                End If               
        Next        
End sub

songfun

'==========================================================================
' 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

milan330330

谢谢楼主共享..学习了~

ccc-51testing

要学的东西真多，累。。。

dyq

还没看，不过先支持一下。。。

v_v

哈哈，明天宋老大要讲的XML 读写。先看下了。。。sdlkfj5

nedved1020

讲的真不错!!学了不少!!体会中!!

看雪时节

顶了

看雪时节

斑竹辛苦

lovetest6

强帖留名啊。呵呵。