51Testing软件测试论坛

标题: 我想问下怎么把参数调出来放到xml文件中?然后在读取我保存好的参数? [打印本页]

作者: ags1234 时间: 2006-10-30 15:10
标题: 我想问下怎么把参数调出来放到xml文件中?然后在读取我保存好的参数?
我想问下怎么把参数调出来放到xml文件中?然后在读取我保存好的参数?
我有好几个不同的版本再做测试,但每次都要录容易出错,怎么把参数都挖出来放在xml文件中呢?
有人会吗?请说的详细点啊谢谢拉!

作者: xiaonan 时间: 2006-10-30 15:30
"我想问下怎么把参数调出来放到xml文件中?"

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

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

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

这里又是从哪里去读取呢?

作者: ags1234 时间: 2006-10-30 15:32
能把录好的脚本直接把可参数化的的地放都调出来吗?

作者: xiaonan 时间: 2006-10-30 16:00
你要从哪里调啊?你还是没说清楚.比如从程序界面上,比如从表里?能当然能,只是一个技术的问题.

作者: ags1234 时间: 2006-10-30 16:20
从程序界面上调

作者: xiaonan 时间: 2006-10-30 17:04
用GetROProperty来取相对应的属性值

作者: denisye 时间: 2006-10-30 18:03
之前在论坛里面看过有关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

（原版作者别告我侵权哈＾＿＾）

作者: itspilder 时间: 2006-10-31 10:05
感觉可以把数据放到Excel中再导出来，这个方法比较方便sdlkfj5

作者: ags1234 时间: 2006-10-31 11:12
那问下方便的,怎么从Excel中导出来变成xml?直接copy?

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