非常全qtp學(xué)習(xí)-多種函數(shù)使用方法

QTP多種函數(shù)使用方funcationrand(k,n)n="int((k-1)*rnd+1)rand=nendfuncationifrow="5"thenendif setsecureset iferror_message<>(datatable.value("error_info"))thenendifend一是：對(duì)于dialog中，雖然提示信息對(duì)象名稱(chēng)是"用戶(hù)錯(cuò)誤"，但text subsubsetcon.open"PWD="123456;APP=Quick"'access方式:con.open"DRIVER="{ "AccessDriver'Orocle方式:con.open"DRIVER="{Oracle"in setrecord="createobject(""adodb.recordset")sql="select*fromibm_one_table"record.opensql,conendifloopuntilrecord.eof="truerecord.closesetrecord="nothingcon.closesetcon="nothingendvbcr----chr(13)回車(chē)符// RunfromstepKeywordViewactionexpertviewaction

functionget_file_infor(url)dimfso,fsetf="fso.getfile(url)" endend functionget_folder_infor(folder)dimfso,f,f1,endselectend OnerrorresumenextOnerrorgotohandleYYYY-MM-DDFunctionFunctionRegExpTest(patrn,DimregEx,Match, 'CreateSetregEx=NewRegExp regEx.Pattern=patrn 'Setpattern.regEx.IgnoreCase=True regEx.Global=True 'Setglobalapplicability.SetMatches=regEx.Execute(strng)'Executesearch.ForEachMatchin RetStr=RetStr&"MatchfoundatpositionRetStr=RetStr&Match.FirstIndex&".MatchValueis'"RetStr=RetStr&Match.Value&"'."&vbCRLFRegExpTest=RetStrEndFunctionSelectcaseresult_messageCase""caseelseMsgBox(result_message)end ").drap ").draponitemQTPshe.mp3，she;2000下彈出的網(wǎng)頁(yè)框的標(biāo)題是："is+*functionout_str="Thisout_str="ThisisRunActionRunActionWscrīpt.S的一些應(yīng)setset 對(duì)象動(dòng)態(tài)屬性值）indexGetToProperty,因?yàn)閼?yīng)QTP 并到 下這樣每次新建action都會(huì)包含固定的信息了''類(lèi)型

indexc