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

ags1234

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

xiaonan

"我想问下怎么把参数调出来放到xml文件中?"

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

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

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

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

ags1234

能把录好的脚本直接把可参数化的的地放都调出来吗?

xiaonan

你要从哪里调啊?你还是没说清楚.比如从程序界面上,比如从表里?能当然能,只是一个技术的问题.

ags1234

从程序界面上调

xiaonan

用GetROProperty来取相对应的属性值

denisye

之前在论坛里面看过有关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

感觉可以把数据放到Excel中再导出来，这个方法比较方便sdlkfj5

ags1234

那问下方便的,怎么从Excel中导出来变成xml?直接copy?