|
把循环体分为独立的action是一个解决方法,但对这个action的单独循环不是“action——action call properties——run ”这样设置的,应该把action放到一个block下,对block设置循环次数,这样才会生效。
对于循环,我建议把要循环的部分“Sub 函数名() ……End Sub” 封装起来,再根据你的用例数来设置它的循环次数。
比如一个简单的计算器,我们有i个用例要运行,就要计算器运行i次,我们录制后可以这么改:
Option Explicit
SystemUtil.Run "计算器路径"
Call 函数体名()
Window("计算器").Close
Sub 函数体名()
Dim iLoop,iCount
iCount=DataTable.GetSheet("Action1").getRowCount
For iLoop=0 to iCount-1
Window("计算器").WinButton(DataTable("A", dtLocalSheet)).Click
Window("计算器").WinButton("+").Click
Window("计算器").WinButton( DataTable("B", dtLocalSheet)).Click
Window("计算器").WinButton("=").Click
Window("计算器").WinEdit("Edit").Output CheckPoint("Edit")
DataTable.Getsheet("Action1").SetNextRow
Next
End Sub |
|