测试书基础代码

1、QTP 基础代码1生产 第法Copy tofuncation rand(k,n)end Copy to2 QTP 基础代码1生产 第法Copy tofuncation rand(k,n)end Copy to2 Copy toifrow=5endif Copy to，它会自动识别，即不用把setsecure改为4 如果Copy to ) if error_message(da endend if一是：对于dialog中，虽然提示信息对象名称是用 5 是able.value(num)只在global形式下的一种省略形式；完Copy toCopy toCopy to或者 Copy to6 简化代码

2、，明晰结构的方式with-endwith Copy towith c1=.button(b_name).click/等价于Dialog(name).button(b_name).click end withCopy toCopy tosub set con.openDescription=IBM_ODBC;DRIVER=SQLPWD=123456;APP=Quick Test s方式:con.opensDriver Orocle方式:con.openDRIVER=OracleinPWD=123456;APP=Quick Test s方式:con.opensDriver Orocle方式:con

3、.openDRIVER=Oracleinsetrecord=createobject(adodb.recordset) sql=select*from ibm_one_table record.open sql,conend if loopuntilrecord.eof=true setrecord=nothing setcon=nothing end subCopy tovbcrchr(13)回车符 10 Runfromstep有两种方式Copy to在KeywordView模式会从本步骤运行到所有action结束在expert view 模式仅会将本action 运行结束Copy to f

4、unction get_file_infor(url)dim set f=fso.getfile(url)endfunctionget_folder_infor(folder) dim fso,f,f1,nsetfso=createobject(scripting,filesystemobject) set f=fso.getfolder(folder)set fc=f.files foreachf1endfunctionget_folder_infor(folder) dim fso,f,f1,nsetfso=createobject(scripting,filesystemobject)

5、set f=fso.getfolder(folder)set fc=f.files foreachf1infcselectcaseend selectend Copy toCopy toOnerrorresumeOn oto15 数组的应用Copy to16 正则表达式应用模Copy to进行日期YYYY-MM-DD的格式检查 Function RegExpTest(patrn, DimregEx,Match,Matches Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = TrueregEx.Global = Cr

6、eate Createaregularexpres Set pattern. Set case Set global .Set Matches = Execute For Iterate Matches RetStr = RetStr & Match found ition RetStr= RetStr &Index&.MatchRetStr = RetStr & Match found ition RetStr= RetStr &Index&.MatchValueisRetStr = RetStr& Match.Value& .&vbCRLF RegExpTest=RetStr End Function, Selectcaseresult_message Case case else MsgBox(result_message)end Copy toCopy to举例说明.w