QTP基础代码[收藏]

        randomize'更新反回的数据

        funcation rand(k,n)

        n="int((k-1)*rnd+1) rand=n

        end funcation

        row=datatable.getcurrentrow

        if row="5" then

          datatable.export("d:\data.xml")

        end if

        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

        datatable.value("num",dtlocalsheet)

        -----向某一列的单元格赋值:

        datatable.value("column_name",dtlocalsheet)="nanjing"

        -----取得某一行具体值：

        datatable.setcurrentrow(n)

        msgbox(datatable.getsheet("global").getparameter("column_name").Rawvalue)

        或者kk=datatable.Rawvalue("column_name","action1")

        ----在run-time时，动态添加表格与数据

        kk=datatable.addsheet("sheet_name").addparameter("column_name","value").name;

        sub database_check

        set con="createobject(""adodb.connection")

        con.open "Descrīption="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;BA

        M=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

        -------从系统的文件中获取信息及删除文件

          get_file_infor("c:\she.mpg")

           function get_file_infor(url)

            dim fso,f

            set fso="createobject(""scrīpting.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(""scrīpting,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

        name="array(1,2,""aa","bb")

        name(2)="aa"

        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

        .winlistview("  ").drap 46,99

        .winlistview("  ").draponitem "she.mp3"

        isarray'是否是数组

        isconnected'判断QTP是否连接到TD

        isdate'是否是合法的日期类型

        isempty'判断是否初始化

        isNull'判断是否为空值

        isNumeric'判断是否是数字型

        isobject'判断是否一个功能对象

        isready'判断设备是否准备就绪

        isRootFolder'是否是根目录

        out_str="This is out_string"

        RunAction "Action2",oneIteration,out_str

        在Acton2中，在其step->Action Properties中的，input参数栏，加入out_str后,

        msgbox(parameter("out_str"))，就能正确显示参数了　

        set WshShell ="CreateObject(""Wscrīpt.Shell")

        WshShell.SendKeys "{ENTER}"　　　　　'模拟键盘进行操作

        WshShell.AppActivate "Calculator"             '启动应用程序

        如:Set m_WinCheck="Descrīption.Create()       m_WinCheck("nativeclass").Value="Button"

              set All_WinCheck="Window(""").Dialog("").Childobject(m_WinCheck)

              n="All_WinCheck.Count()      for i="0" to n-1

              All_WinCheck(i).Set "ON"

             next