1 生产随机数列
第一种方法
CODE:
randomize'更新反回的数据
funcation rand(k,n)
n=int((k-1)*rnd+1)
rand=n
end funcation
第二种方法
CODE:
n=randomnumber.value(1,255)
2 当运行到表中的某一行,自动导出表中的所有数据
CODE:
row=datatable.getcurrentrow
if row="5" then
datatable.export("d:\data.xml")
end if
3
CODE:
webedit("txtpass").setsecure"sdsdf...."
如果参数化密码,可以直接在数据表中写入未加密的密码,它会自动识别,即不用把setsecure改为set
4 如果弹出对话框就获取上面提示信息并与表中的信息对比,不统一证明弹出的提示出错,主要用来验证
'判断一个窗口是否存在
if(Dialog(dialog_name).exist=true) then
else
end if
'判断一个窗口是否激活
if(window("window_name").active=true) then
else
end if
导入一个EXCEL表
datatable.Import(excel_name)'将该excel文件中的表全部导入
datatable.ImportSheet(excel_name,sheet_name)'导入excel中名字为sheet_name的sheet表
导出一个EXCEL表
datatable.ExportSheet(excel_name,sheet_name)或
datatable.ExportSheet(excel_name,sheet_index)
获取表中当前的行数
datatable.GetCurrentRow
获取表中总行数
datatable.GetRowCount
返回EXCEL中表的数量
DataTable.GetSheetCount
获取运行的表中的某个值或者设置该值
DataTable.Value(colume_name,sheet_name)'获取colume_name列中的当前光标处的值
DataTable.value(colume_name,sheet_name)=New_Value'设置新值
DataTable.GetSheet(sheet_name).GetParameter(colume_name).valueByRow(n)
判断当前光标是否处于最后一列
iRow=datatable.getCurrentRow
if(dataTable.value(sheet_name).GetParameter(colume_name).ValueByRow(iRow)<>expected_value) then
for iRow=0 to iRow<datatable.getRowCount
rowNum=iRow
next
end if
获取一列数据
DataTable(colume_name,sheet_name)
'一个登陆的对话框,首先为一个错误的判断,后来输入正确的值点击button_name按钮
Dialog(dialog_name).WinEdit(login_name).set login_wrongname
Dialog(dialog_name).WinEdit(login_pwd).set login_wrongpwd
Dialog(dialog_name).Dialog(wrongdialog_name).WinButton(button_name).click
Dialog(dialog_name).WinEdit(login_name).set login_correct_name
Dialog(dialog_name).WinEdit(login_pwd).set login_correct_pwd
Dialog(Dialog_name).WinButton(button_name).click
window的方法和属性
window(win_name).active
CODE:
if browser("web_name").dialog("dialog_name").exist(1) then'如果不出现=false
error_message=browser("web_name").dialog("diaglog_name").static("用户密码错误!".getRoproperty("text")
if error_message<>(datatable.value("error_info"))then
msgbox(error_message)
end if
browser("web_name").dialog("diaglog_name").close
end if
这里我总结了两点技巧:
一是:对于dialog中,虽然提示信息对象名称是"用户密码错误",但如果信息对象名称是“该用户不存在”,不用更改会自动识别,我想主要是录制第 一遍时,“用户密码错误”只是让运行时能找到这个控制,而不管它是什么内容,因为在对象仓库中,text不是决定该对象的属性
二是:如果对于提示信息比较长的,可以用mid(error_message,n,m)取一部份特征提示信息进行验证,这样我想可以节省处理时间,又可以避免长度以及空格等字符的处理
5 datatable.value("num")只在global形式下的一种省略形式;完整形式是:
CODE:
datatable.value("num",dtlocalsheet)
-----向某一列的单元格赋值:
CODE:
datatable.value("column_name",dtlocalsheet)="nanjing"
-----取得某一行具体值:
CODE:
datatable.setcurrentrow(n)
msgbox(datatable.getsheet("global").getparameter("column_name").Rawvalue)
或者kk=datatable.Rawvalue("column_name","action1")
----在run-time时,动态添加表格与数据
CODE:
kk=datatable.addsheet("sheet_name").addparameter("column_name","value").name;
6 简化代码,明晰结构的方式with--end with 结构:
CODE:
with Dialog("name")
c1=.button("b_name").click'//等价于Dialog("name").button("b_name").click
end with
7 wintreeview一些操作
CODE:
选择一个条目:wintreeview.select(item)'根是0
根的名称:wintreeview.getitem(0)
8 数据库检查点模块:
CODE:
sub database_check
set con=createobject("adodb.connection")
con.open "Description=IBM_ODBC;DRIVER=SQL Server;SERVER=IBM;UID=sa;"&_
"PWD=123456;APP=Quick Test Pro;WSID=IBM;DATABASE=IBM_table"
'access方式:con.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\test.mdb"
'Orocle方式:con.open "DRIVER={Oracle in OraHome92};SERVER=CESHI;UID=CND_TEST;PWD=CND;DBQ=CESHI;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O;"
set record=createobject("adodb.recordset")
sql="select*from ibm_one_table"
record.open sql,con
DO
if(record("ibm_table_column")="kai")then'//查找表格中有多少kai
num=num+1;
end if
record.movenext
loop until record.eof=true
record.close
set record=nothing
con.close
set con=nothing
end sub
9 换行符
CODE:
vbcr----chr(13)回车符
vblf----chr(10)换行符
vbcrlf----chr(13)+chr(10)结合
10 Run from step有两种方式:
CODE:
在Keyword View模式会从本步骤运行到所有action结束
在expert view模式仅会将本action运行结束
11 对于属性是变化的,有时可以把该属性从识别对象里删除,来解决识别问题
12 对系统文件的操作
CODE:
-------从系统的文件中获取信息及删除文件
get_file_infor("c:\she.mpg")
function get_file_infor(url)
dim fso,f
set fso=createobject("scripting.filesystemobject")
set f=fso.getfile(url)
f.name:f.size:f.type:f.datacreated'///获取文件信息
fso.deletefile(url)'/删除文件
end function
--------获取文件夹里所有文件信息
get_folder_infor("c:\kai")
function get_folder_infor(folder)
dim fso,f,f1,n
set fso=createobject("scripting,filesystemobject")
set f=fso.getfolder(folder)
set fc=f.files
for each f1 in fc
select case f1.name
case"kai.mpg","she.mpg","dd.mp3"'//检查文件夹里是否含有这些文件
end select
next
end function
13 等待某个对象出现方法
CODE:
y=......waitproperty("visible",true,10000)
14 防程序中断方法
CODE:
On error resume next
On error goto handle
15 数组的应用:
CODE:
name=array(1,2,"aa","bb")
name(2)="aa"
16 正则表达式应用模板
CODE:
进行日期YYYY-MM-DD的格式检查 :
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' Create variable.
Set regEx = New RegExp ' Create a regular expression.
regEx.Pattern = patrn ' Set pattern.
regEx.IgnoreCase = True ' Set case insensitivity.
regEx.Global = True ' Set global applicability.
Set Matches = regEx.Execute(strng) ' Execute search.
For Each Match in Matches ' Iterate Matches collection.
RetStr = RetStr & "Match found at position "
RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
RetStr = RetStr & Match.Value & "'." & vbCRLF
Next
RegExpTest = RetStr
End Function
date_pattern="^((((19|20)(([02468][048])|([13579][26]))-02-29))|((20[0-9][0-9])|(19[0-9][0-9]))-((((0[1-9])|(1[0-2]))-((0[1-9])|(1\d)|(2[0-8])))|((((0[13578])|(1[02]))-31)|(((01,3-9])|(1[0-2]))-(29|30)))))$"
result_message=RegExpTest(date_pattern, inputbox("请你输入要检查的时间:"))'用其它正则表达式更改此处
Select case result_message
Case ""
msgbox("你输入的日期格式与标准不匹配")
case else MsgBox(result_message)
end select
17 返回一个字符串在另一字符串中的位置
CODE:
instr(string1,string2)
18 有时回放出现找不到对象时,可能不是由于你的代码问题,而是由于你的操作系统等设置问题;
CODE:
举例说明1:
比如:你录制一个选择磁盘中的文件动作
会录制为:
.winlistview(" ").drap 46,99
.winlistview(" ").draponitem "she.mp3"
下次录制的时候,如果你的系统文件改为不显示扩展名,下次执行的时候,QTP就找不到she.mp3,只能找到she;
举例说明2:
有时由于不同操作系统以及不同的ie,导致有些窗口不能识别,比如在2000下弹出的网页对话框的标题是:
“web对话框",而在2003上是”网页对话框"
19 "is+*"类型function
CODE:
isarray'是否是数组
isconnected'判断QTP是否连接到TD
isdate'是否是合法的日期类型
isempty'判断是否初始化
isNull'判断是否为空值
isNumeric'判断是否是数字型
isobject'判断是否一个功能对象
isready'判断设备是否准备就绪
isRootFolder'是否是根目录
QTP提供全局错误处理模式,有Popup message box,Process next action iteration,Stop run,Process next step这四种。
QTP也提供On Error Resumt Next/On Error goto 0的局部错误处理模式。可以在局部范围内实现Process next step的效果,忽略错误继续执行后续步骤。这个局部错误处理模式,象局部变量优先于全局变量并且只在本函数内有效一样,优先级高于全局错误处理模式,同 时只在本函数局部范围(Action本身也可以看成是个函数)内生效。它不会影响外层函数的错误处理模式,但会改变局部范围内调用的子孙函数,将子孙函数 的错误处理模式改为Stop Run!
四种全局错误处理模式的区别在于:
1、Process next step
这种模式忽略错误继续往下执行,可以通过Err.Number来判断是否发生了错误。
因为Case函数的每个步骤都是密切相关的,不可能忽略错误继续往下执行下一步骤
也不可能在每个步骤每个语句后面都加错误检查,这样错误处理代码太多了
在很多个步骤后再检查也是不严谨的,会错上加错,并因此失去第一个错误的信息
所以,这种模式不可取
2、Stop run
这种模式发生错误后,就抛出异常(可用Err对象得到异常里的错误信息),中止本函数,并一层一层的返回到上一层函数,最后到达Action函数后(Action本身也可以看成是个函数),就停止整个Test的执行。
在一层一层的返回上层函数的过程中,如果某个中间函数有On Error Resumt Next/On Error goto 0,就会把错误拦截下来,这个中间函数会继续往下执行,不会中止函数并返回上一层函数。
3、Popup message box
这种模式在发生错误时,弹出对话框让用户选择Stop、Retry、Skip、Debug。
主控Test要全自动执行,不能要求人工干预,所以这种模式不可取
4、Process next action iteration
这种模式跟Stop run类似,但是它只是退出本次Action循环,还会继续下一个Action循环。
主控Test没有继续下一个Action循环的需求,所以这种模式不可取。
经过上述分析,我们可以得到结果,我们的主控Test,全局错误处理模式使用Stop run模式,同时在主控函数里使用On Error Resumt Next/On Error goto 0的局部错误处理模式来调用Case函数。这样使得Case函数和其子函数里发生错误时,会停止执行,并层层返回到主控函数这里,并由主控函数来拦截错 误,记录错误。然后主控函数就可以正常的继续执行下一个Case函数了,不用担心会导致整个Test停止执行。
主控函数调用Case函数的详细过程如下:
Err.Clear
On Error Resume Next
call CaseFunctionName
If Err.Number <> 0 Then
WriteLog Err.Number '错误码
WriteLog Err.Description '错误描述
WriteLog Err.Source '错误来源对象,不过好像没啥用
End
Err.Clear
On Error goto 0