QTP學習分享

發布: 2007-5-30 15:31 | 作者: 網絡轉載 | 來源: 網絡 | 查看: 789次 | 進入軟件測試論壇討論

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