QTP学习分享-UML软件工程组织-火龙果软件

UML软件工程组织

QTP学习分享

作者: 风过无息来源: 51testing软件测试论坛

1.在测试中我们使用QTP调试脚本的时候一般就是DEBUG或者MSGBOX察看一些信息,其实有时候也可以使用print来实现批量的察看信息但是不影响程序运行.

运行脚本:
a="100"
print a

~~~~~~~~~~~~~~~~~~~~~~~~~

2.取datatable特定行的数据可以这样使用

运行脚本:
DataTable.GetSheet("Action1").GetParameter("test").ValueByRow(4)

~~~~~~~~~~~~~~~~~~

3.Wait Seconds [, Milliseconds]可以精确到毫秒.

~~~~~~~~~~~~~~~~~~

4.在自定义的function里面数组作为返回值.

运行脚本:
circuit = "399937"
Function trimString(circuit)
Dim holdArray(5)
holdArray(0) = Left(circuit, 2)
holdArray(1) = Right(circuit, 2)
msgbox holdArray(0) 'showed 39
trimString = holdArray' I get an out of range error here
End Function
dim myArray
'here I want to assign the return array to another array
myArray = trimString(circuit)
' and then call one element from it
msgbox myArray(1)

~~~~~~~~~~~~~~~

5.计算一个操作的时间.

运行脚本:
Browser("Browser").Page("Page").Image("getRates").Click
var_StartTime = Timer
Browser("Browser").Page("Page").Sync
Browser("Browser").Page("Page").Check CheckPoint("Check1")
var_EndTime = Timer
intRespTime = round ((var_EndTime - var_StartTime), 2 )
msgbox (intRespTime)

~~~~~~~~~~~~~~~

6.取得指定sheet(datatable)的行数和列数(也可以理解为参数个数)

paramcount = DataTable.GetSheet("Action1").GetParameterCount
msgbox "There are " &paramcount&"columns in the data sheet."
rowcount = DataTable.GetSheet("Action1").GetRowCount
msgbox "There are " &rowcount&"rows in the data sheet."

此文来源于51testing论坛,转载请注明出处为51testing论坛
出处http://bbs.51testing.com/viewthread.php?tid=75276