QTP學習分享_QuickTestPro_領測軟件測試網

QTP學習分享

發表于：2007-05-30來源：作者：點擊數：標簽：

1.在測試中我們使用 QTP 調試腳本的時候一般就是DEBUG或者MSGBOX察看一些信息,其實有時候也可以使用print來實現批量的察看信息但是不影響程序運行. 運行腳本: a="100" print a ~~~~~~~~~~~~~~~~~~~~~~~~~ 2.取datatable特定行的數據可以這樣使用運行腳本:

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."

原文轉自：http://www.anti-gravitydesign.com

軟件測試 > 測試技術 > 軟件測試工具 > Mercury軟件測試工具 > QuickTestPro >