|
本帖最后由 janne09 于 2010-9-28 13:28 编辑
通过QTP的action参数传递模拟求和方法,可是传递的参数却为空,请大家帮忙看一下呀
场景:
action1传参数a,b给action2,action1通过调用action2得到两个参数的各
action2接收参数,执行两个参数的求和运算,最后将结果返回给action1
步骤:
1.exls表格(test)中设置参数,如下图
2.编写vbs文件- Dim WshShell,path
- Set WshShell = CreateObject("WScript.Shell")
- Path = WshShell.CurrentDirectory
- temp=""""+path+"\test.xls"+""""
- DataTable.AddSheet "Action1"
- DataTable.ImportSheet temp,1,"Action1"
复制代码 1.创建两个Actions分别为Acton1和Acton2,Acton2嵌套在Acton1下
2.两个Action中添加参数
1).Keyword View视图中选择Action1--右键--Action Properties--Parameter 在其中添加input和output参数,如下图
2).Keyword View视图中选择Action2--右键--Action Properties--Parameter 在其中添加input和output参数,与上图一致
3.在Action1和Action2间建立关联
1).Keyword View视图中选择Action2--右键--Action Call Properties--a的Value
Parameter:选择Test/Action parameter
Parent action parameters的parameter中选择a
2).同理设置b和c的值,如下图
4.action1中代码如下:- int a,b
- a=DataTable.GetSheet("Action1").GetParameter("value").ValueByRow(1)
- b=DataTable.GetSheet("Action1").GetParameter("value").ValueByRow(2)
- RunAction "Action2", oneIteration, Parameter("a"), Parameter("b"), Parameter("c")
复制代码 5.action2中代码如下:- int a,b
- c=a+b
- msgbox Parameter("c")
复制代码 6.导入exls表格中参数
QTP--file-settings--resources--加载写好的vbs文件,将exls中参数导入代码中
7.单点调试脚本
结果返回:
a,b中取得值
Parameter("a"), Parameter("b")值为0
c的值为0
脚本运行后结果返回0 |
|