|
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:TempExcelExamples.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:TempExcelExamples.xlsx"
' excelBook.SaveAs "D:TempExcelExamples.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
|