用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 编辑 ]

kerryliyan

非常不错！

skducn

学习了。

andrewli

学习了

chris1984

Mark!QTP读写XML,,,,,,学习无止境啊！

oscarli

学习了

tony.dong

请问高手，这个就是读的，取出来用是怎么实现的？

csj

回复 1# songfun
问一下，我的这个语句有什么错误？
“root.childNodes(0).childNodes(10).item(3).nodeName”
运行说是不支持，请高手帮忙

thomy2010

还没接触XML，学习了

hukongli

宋老师如何修改xml标记的值啊
如：<Cells L="DpCells">
            <Cell>FT Historian SE</Cell>
            <Cell>SOFTWARE\Rockwell Software\FTHistorian\last Version</Cell>
            <Cell />
            <Cell>2.20.00.0029</Cell>
          </Cells>
我要修改：<Cell>2.20.00.0029</Cell>用一个变量来代替2.20.00.0029

yuwenit

xml成数据交换的主流啦

lix43420

精华帖,很有借鉴意义~~~

kickgod

留个名回来漫漫看

paulyang

302

这个写的非常好 学习了 哈哈  支持了

TEST_HUAN

写xml的呢？

zhaoping

按照楼主这样做,弹出对话框:xml文件格式不对，原因是：不支持从当前编码到指定编码的切换

[ 本帖最后由 zhaoping 于 2008-9-10 10:28 编辑 ]

lovetest6

强帖留名啊。呵呵。

看雪时节

斑竹辛苦

看雪时节

顶了