51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2449|回复: 8
打印 上一主题 下一主题

[原创] 我想问下怎么把参数调出来放到xml文件中?然后在读取我保存好的参数?

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2006-10-30 15:10:09 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我想问下怎么把参数调出来放到xml文件中?然后在读取我保存好的参数?
我有好几个不同的版本再做测试,但每次都要录容易出错,怎么把参数都挖出来放在xml文件中呢?
有人会吗?请说的详细点啊谢谢拉!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2006-10-30 15:30:59 | 只看该作者
"我想问下怎么把参数调出来放到xml文件中?"

你这里指的参数是什么呢,从哪里去调呢?说的明白点.

至于把参数放到xml文件中只是一个读写xml文件的过程.

"然后在读取我保存好的参数?"

这里又是从哪里去读取呢?
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2006-10-30 15:32:52 | 只看该作者
能把录好的脚本直接把可参数化的的地放都调出来吗?
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2006-10-30 16:00:27 | 只看该作者
你要从哪里调啊?你还是没说清楚.比如从程序界面上,比如从表里?能当然能,只是一个技术的问题.
回复 支持 反对

使用道具 举报

该用户从未签到

5#
 楼主| 发表于 2006-10-30 16:20:48 | 只看该作者
从程序界面上调
回复 支持 反对

使用道具 举报

该用户从未签到

6#
发表于 2006-10-30 17:04:39 | 只看该作者
用GetROProperty来取相对应的属性值
回复 支持 反对

使用道具 举报

该用户从未签到

7#
发表于 2006-10-30 18:03:07 | 只看该作者
之前在论坛里面看过有关XML文件的处理方法,附上来,可做为参考,看对楼主有没有帮助

function  autoXML(ary)  
           On  Error  Resume  Next  
           Dim  xmlFile  
           Dim  xmldoc,root,books  
           xmlFile  =  "book.xml"  
           Set  xmldoc  =  WScript.CreateObject("Microsoft.XMLDOM")  
           xmldoc.async  =  false  
           xmldoc.load  xmlFile  
           if  xmldoc.parseError.errorCode  Then  
                       Dim  xmlhead,xslhead  
                       Set  xmlhead  =  xmldoc.createProcessingInstruction("xml","version=""1.0""  encoding=""UTF-8""")  
                       xmldoc.insertBefore  xmlhead,xmldoc.childNodes(0)  
                       Set  xslhead  =  xmldoc.createProcessingInstruction("xml-stylesheet","type=""text/xsl""  href=""book.xsl""")  
                       xmldoc.insertBefore  xslhead,xmldoc.childNodes(1)  
                       Set  books  =  xmldoc.createElement("books")  
                       xmldoc.appendChild  books  
           Else  
                       Set  books  =  xmldoc.documentElement  
           End  If  
           Dim  book,nodes,node  
           Set  book  =  xmldoc.createElement("book")  
           books.appendChild  book  
           nodes  =  split("id,ISBN,book_name,writer,publish,price,img",",")  
           for  i=0  to  UBound(nodes)  
                       Set  node  =  xmldoc.createElement(nodes(i))  
                       node.text  =  ary(i)  
                       book.appendChild  node  
           Next  
           xmldoc.save  xmlFile  
           If  Err.number<>0  Then  
                       WScript.echo  "保存失败!原因:"  &  Err.Description  
           Else  
                       WScript.echo  "《"  &  ary(2)  &  "》保存成功!"  
           End  If  
End  Function

(原版作者别告我侵权哈^_^)
回复 支持 反对

使用道具 举报

该用户从未签到

8#
发表于 2006-10-31 10:05:55 | 只看该作者
感觉可以把数据放到Excel中再导出来,这个方法比较方便sdlkfj5
回复 支持 反对

使用道具 举报

该用户从未签到

9#
 楼主| 发表于 2006-10-31 11:12:47 | 只看该作者
那问下方便的,怎么从Excel中导出来变成xml?直接copy?
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-11 15:12 , Processed in 0.067298 second(s), 23 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表