51Testing软件测试论坛

标题: 关于用QTP为xml文件自动添加信息的问题 [打印本页]

作者: tuchun81 时间: 2006-10-19 16:07
标题: 关于用QTP为xml文件自动添加信息的问题
众所周知，用QTP能在网页上需要输入参数的地方参数化，能达到自动添加的效果。而我现在需要对xml文件添加信息，不知道可以吗？有知道的烦请告诉我，请看下面的xml文件内容：
<?xml version="1.0" standalone="yes"?>
<MonitorPlanList xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://tempuri.org/MonitorPlanList.xsd">
  <MonitorPlan nodeID="1" timePlanID="1">
<MonitorInstance id="1" nodeID="1" name="192.168.18.23-ping" monitorID="1100" interval="10">
   <Param paramName="SENDNUM" monitorInstanceID="1">3</Param>
</MonitorInstance>
  </MonitorPlan>
</MonitorPlanList>
   我想让MonitorInstance id值自动增加到200个，并且name的值也自动增加到200个，如下的效果：（我只增加MonitorInstance id到2，红色部分就是我添加的）
<?xml version="1.0" standalone="yes"?>
<MonitorPlanList xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://tempuri.org/MonitorPlanList.xsd">
  <MonitorPlan nodeID="1" timePlanID="1">
<MonitorInstance id="1" nodeID="1" name="192.168.18.23-ping" monitorID="1100" interval="10">
   <Param paramName="SENDNUM" monitorInstanceID="1">3</Param>
</MonitorInstance>
<MonitorInstance id="2" nodeID="1" name="192.168.18.23-ping02" monitorID="1100" interval="10">
   <Param paramName="SENDNUM" monitorInstanceID="1">3</Param>
</MonitorInstance>
  </MonitorPlan>
</MonitorPlanList>

作者: xiaonan 时间: 2006-10-20 10:40
QTP能够处理xml文件,你这只是让QTP写xml文件吧.有关xml的内容,有帖子讲到过.

作者: tuchun81 时间: 2006-10-20 10:50
是啊，我这就是要写xml文件，要把MonitorInstance id递增到2000。请问xiaonan版主，有关这方面的帖子具体在那里啊？我找过，似乎很难找噢。

作者: xiaonan 时间: 2006-10-20 10:53
就在这个版快里,我都看到过的

作者: tuchun81 时间: 2006-10-20 11:19
好，我再找找谢谢

作者: tuchun81 时间: 2006-10-23 16:49
怎么也找不到，哎。。有人有现成的资料吗？谢谢。。

作者: viviv_wang 时间: 2006-12-28 17:40
下面是我写的,希望能帮上你,不过双引号没了.

Set doc = XMLUtil.CreateXML()

doc.CreateDocument "root"

Set root = doc.GetRootElement()

Dim rc :  rc = micPass

For n= 1 to 9

root.AddChildElementByName "MonitorInstance",""
Set children = root.ChildElements()
str1= "id="&n
'msgbox str1
ip = "192.168.18.23-ping"
str2=" name="&cstr(ip)&n
'msgbox str2
num1="1"
num2="1100"
num3 = "10"
If rc = micPass  Then str3 =cstr(str1)&"nodeID="&cstr(num1) &cstr(str2)&" monitorID="&cstr(num2  )&"interval="&cstr(num3) End If
'msgbox str3
If rc = micFail Then  str3 = "第 "&N&" 次测试Fail"  End If
root.AddChildElementByName "Result"&n,str3
doc.SaveFile "c:\report.xml".

Next

作者: lix43420 时间: 2009-12-12 16:13
标题: 回复 7# 的帖子
doc.SaveFile "c:\report.xml"放在循环里面，循环N次不就写N次文件？！
虽然最后的结果一样~~~囧~~~~

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