非常全qtp学习-多种函数使用方法

QTP多种函数使用方funcationrand(k,n)n="int((k-1)*rnd+1)rand=nendfuncationifrow="5"thenendif setsecureset iferror_message<>(datatable.value("error_info"))thenendifend一是：对于dialog中，虽然提示信息对象名称是"用户错误"，但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)回车符// 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下弹出的网页框的标题是："is+*functionout_str="Thisout_str="ThisisRunActionRunActionWscrīpt.S的一些应setset 对象动态属性值）indexGetToProperty,因为应QTP 并到 下这样每次新建action都会包含固定的信息了''类型

indexc