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” 

f.close//关闭文件 

4.7.3 创建文件 

Set fso= CreateObject("Scripting.FileSystemObject”) 

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

4.7.4 删除文件 

Set fso= CreateObject("Scripting.FileSystemObject")  

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

End Function 

4.8.3 写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

End Function