首页 > 代码库 > QTP自学攻略

QTP自学攻略

2024-07-04 14:33:30   232人阅读

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 

 


联系
我们