QTP自學攻略

QTP自學攻略

　　自學總是很痛苦的，看大量的書籍，可是學到的東西卻不是那麼實用，下面整理了一些在QTP中經常需要的函數，以及方法很實用！

 QTP常用函數 

1, 擷取對話框相應的文字: GetVisible Text 

2, 查找相應的字元串: instr (1,查找目标字元串,所查找的字元串) 

3, 随機數的擷取: Randomnumber.Value() 或cstr(int(Rnd*10)+1) 

4, 等待函數: Wait(秒數) 

5, 擷取數組下标: UBound (數組名) 

6, 拆分數組: Split(MyString, ",", -1, 1) 

7, 可執行步驟: OptionalStep 

8, 報告資訊: Reporter.ReportEvent 3, "Save Step", "Out of

cycle!" 

9, 判斷對話框是否存在: .exist 

10，事件過濾函數：Reporter.Filter=過濾條件(0，1，2，3)，0代表顯示所有的error和warning,1，顯示error,2,顯示waining,3,任何error和warning都不顯示。 

11，循環函數：do … loop until，for…to… then next,while. 

12，資料表格：DataTable,向外指派， 

Dim aa = DataTable.value(“CellingName”,”ActionName”). 

13，獲得對象屬性的三種方法 

GetTOProperty，GetTOProperties,GetROProperty,GetTOProperty獲得程式中對象目前的屬性，GetTOProperties獲得目前屬性所有集合，GetROProperty獲得的是錄制時對象所獲得的屬性。 

14，檢查點方法check和輸出指定屬性值output。 

15，函數Descrīption,可以獲得某頁面同标簽的屬性進行操作。 

16，函數nagative可以随便跳轉頁面到指定的URL。 

17，函數Object可以獲得目前頁面同屬性的控件。 

18，函數Focus可以讓控件獲得焦點，函數Blur則是失去焦點，click單擊，dbclick輕按兩下。 

19，函數setAttribute可以設定控件屬性，getAttribute可以獲得屬性。 

VBS語言基礎程式設計 

基本文法 

l 常用的一些指令函數 

l 對字元的一些處理 

l 對文本檔案的讀、寫、建立、删除等操作 

l 對Excel檔案的讀取和寫入操作 

l 對XML檔案的讀取 

l 調用Dll 

進階應用 

正規表達式 

正規表達式，也叫做通配符，我們在計算機上搜 

索一個檔案，或者編寫一條SQL語句時，經常會用 

到正規表達式。 

l 

在QuickTest中也可以使用正規表達式，用法與我們上面提到的正規表達式類似。通過在QuickTest測試腳本中加入正規表達式，可以使我們的測試腳本更靈活，适應性更好 

l 一個正規表達式就是一個文本字元串，其中除了正常字元外，還包含了一些通配字元，比如

“*”、“^”、“[]”、“?”、“+”等等 

4.2 描述性程式設計 

4.3 虛拟對象的使用 

在使用錄制模式無法正常識别控件的情況下，使用虛拟對象。首先Mark好虛拟對象，然後， 

在錄制的時候，隻要點到你設定的虛拟對象的邊界内，QTP就會識别這個虛拟對象，并把該對象記到對象庫中去 

4.4 test banch runner的使用 

目的是用于批次運作多個Action 

運作目錄：開始-程式-QuicktestProfessional-Tools-Test banch runner。

使用add逐個添加action 

4.5 對字元的處理 

l CStr(expression) 

l InStr([start, ]string1, string2[, compare])

查找字元在字元串中出現的位置 

l Left(string, length) 從字元串中截取指定長度的字元 

l Len(string| varname) 取得字元長度 

l Split(expression[, delimiter[, count[,compare]]])

将字元串根據拆分标記進行拆分 

4.6 常用的一些指令函數 

l SystemUtil.Run  “C:\123.txt“  啟動應用程式 

l Time  目前系統時間 

l SystemUtil.CloseProcessByName “notepad”關閉相關程序 

l Now() 目前日期和時間 

4.7 對文本檔案的操作 

4.7.1 讀檔案 

Set fso= CreateObject("Scripting.FileSystemObject")  

Set f= fso.OpenTextFile(“C:\123.txt”, 1) 

f.readline//讀一行 

f.readall//讀整個文本檔案内容 

f.read(3) //從檔案中讀三個字元 

f.close//關閉檔案 

4.7.2 寫檔案 

Set fso= CreateObject("Scripting.FileSystemObject") 

Set f= fso.OpenTextFile(“C:\123.txt”, 2) 

f.Write “test” 

4.7.3 建立檔案 

Set fso= CreateObject("Scripting.FileSystemObject”) 

fso.CreateTextFile(“C:\123.txt”) 

4.7.4 删除檔案 

fso.DeleteFile(“C:\123.txt”) 

4.8 對excel的操作 

4.8.1 建立excel 

‘******************************************************************************

‘ 函數說明：建立一個excel檔案;

‘ 參數說明：

‘ (1)ExcelPath:Excel檔案存儲路徑;

‘ (1)ExcelPathName:要建立的Excel檔案路徑+名稱;

‘ 調用方法:

‘ QTP_CreateExcel "D:\Temp","D:\Temp\ExcelExamples.xlsx"

‘

******************************************************************************

Function QTP_CreateExcel(ExcelPath,ExcelPathName)

Dim ExcelApp ‘As Excel.Application

Dim excelBook ‘As Excel.workbook

Dim fso ‘As scrīpting.FileSystemObject

‘ Dim excelSheet

Set ExcelApp = CreateObject("Excel.Application")

ExcelApp.Workbooks.Add

‘ExcelApp.Visible = True

Set excelSheet = ExcelApp.ActiveSheet

Set excelBook = ExcelApp.ActiveWorkbook

Set fso = CreateObject("scripting.FileSystemObject")

On Error Resume Next

‘ fso.CreateFolder "D:\Temp"

‘ fso.DeleteFile "D:\Temp\ExcelExamples.xlsx"

‘ excelBook.SaveAs "D:\Temp\ExcelExamples.xlsx"

fso.CreateFolder ExcelPath

fso.DeleteFile ExcelPathName

excelBook.SaveAs ExcelPathName

ExcelApp.Quit

Set ExcelApp = Nothing

Set fso = Nothing

Err = 0

On Error GoTo 0

End Function 

4.8.2 讀取excel檔案 

‘========================================

‘ 函數說明：往EXCEL表中寫資料;

‘ (1)sExcelName：EXCEL檔案名;

‘ (2)sSheetName：Sheet表名

‘ (3)x: 行

‘ (4)y: 列

‘ (5)Content：内容

‘ QTP_WriteExcel "D:\2.xlsx","sheet1",x,y,"abcde"

Function QTP_WriteExcel(sExcelName,SheetNum,x,y,Content)

Set xlsobj=createobject("excel.application")

Set xlsbook=xlsobj.Workbooks.Open(sExcelName)

Set xlssheet=xlsbook.Sheets(SheetNum)

xlssheet.cells(x,y)=Content

xlsbook.Save

xlsbook.Close

4.8.3 寫excel檔案