51Testing软件测试论坛

标题: qtp与外部xml文件数据的传递 [打印本页]

---

作者: chengyujiao    时间: 2013-7-5 10:58
标题: qtp与外部xml文件数据的传递
我新建了一个xml文件，如何用vbs语言实现将case1运行过程中的值传送到case2的调用action中使用？
  例如 case1 运行中产生一个系统当前时间值currenttime，如何将这个值写入xml文件，并从case2中读取，应用在case2的action中。
  请各位高手帮帮忙

---

作者: wuxue107    时间: 2013-7-5 22:30
下面就是我用的。

1. 
   
2. Dim objconfig ,v_file
   
3. Public Function openconfig(file)
   
4.         v_file = file
   
5.         Set objconfig = CreateObject("msxml2.domdocument")
   
6.         If CreateObject("scripting.filesystemobject").FileExists(v_file) Then
   
7.                 objconfig.load file
   
8.         Else
   
9.                 objconfig.loadXML "<root><param></param></root>"
   
10.         End If
    
11. End Function
    
12. 
    
13. Public Function getconfig(name)
    
14.         Set tmp = objconfig.selectSingleNode("/root/param/"&name)
    
15.         If tmp Is Nothing Then
    
16.                 getconfig = ""
    
17.         Else
    
18.                 getconfig = tmp.text
    
19.         End If
    
20. End Function
    
21. 
    
22. Public Function setconfig(name,value)
    
23.         Set tmp = objconfig.selectSingleNode("/root/param/"&name)
    
24.         If tmp Is Nothing Then
    
25.                 Set newelement = objconfig.createElement(name)
    
26.                 newelement.text = value
    
27.                 objconfig.selectSingleNode("/root/param").appendChild newelement
    
28.         Else
    
29.                 tmp.text = value
    
30.         End If
    
31.         objconfig.save v_file
    
32. End Function
    
33. 
    
34. ''########   使用例子  ##########
    
35. openconfig "mm.xml"
    
36. setconfig "testname","test01"
    
37. MsgBox getconfig("testname")
    

复制代码

---

作者: chengyujiao    时间: 2013-7-8 10:12
回复 2# wuxue107


    谢谢你，问题解决了

---

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)

Powered by Discuz! X3.2