QTP 的基础代码结构累积

　　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

　　sub getdata

　　set con=createobject("adodb.connection")

　　con.open("descrīption=mod;driver=sqlserver;server=hp\sqlserver;uid=sa;"&_

　　"pwd=11111;APP=qtp;WSID=hp;database=MOD31" '用sqlserver方式

　　Con.open "DRIVER = {Microsoft Access Driver (*.mdb)};DBQ=D:\Testdb.mdb" '用access方式

　　set record=createobject("adodb.recordset")

　　sql="select * from m3_program" '选择具体满足一条件的:sql="select* from m3_program where "

　　record.open sql,con

　　if(not record.eof) then

　　record.movenext

　　msgbox("p_name")

　　end if

　　record.close

　　set record=nothing

　　con.close

　　set con=nothing

　　end sub

　　'如果没有查到内容，在结果中不会报错，也不会弹出窗口

　　如：Set ōbject= Descrīption.Create()

　　Object("regexpwndclass").Value="HtmlButton"

　　Object("regexpwndtitle").Value="登陆"

　　browser("ss").page("a").button(Object).click

　　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)

　　msgbox(f.datecreated)

　　f.name:f.size:f.type

　　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

　　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)