10 从step run has two ways(一是在key-driven页面,另一个是在代码页面，前者走完项目，后者只是本acton第一行
11 对于时间，日期等的格式检查（一种是正则表达式，另一种是输出对比，如果
不好对比，用mid截取一部分对比)
12对于一些列表框或树结构，如果发生结点名称发生变化，此时如果报没有彼配的对象，此时可以把更改后面的名称如_2"
13;对于动态变化的对象，要分清是对像还是属性；对于属性可以用gettoproperty("ddd");得到；而对于由于动态无法识别对
像可以用描述性脚本：
如：Set ōbject= Descrīption.Create()
Object("regexpwndclass").Value="HtmlButton"
Object("regexpwndtitle").Value="登陆"
browser("ss").page("a").button(Object).click
14:对于属性是变化的，有时可以把该属性从识别对象里删除
15:从系统的文件中获取信息及删除文件
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
16,四舍五入可以在后面+0.5，进行自动解决
17,y=-------waitproperty("visible",true,10000)
18,on error resume next
on error goto o
19 window("").wintreeview("systreeview32").TYpe micctrldown+"p"+micctrlup
20,定义数组 name=array(1,2,"aa","bb");name(0)=1
21进行日期YYYY-MM-DD的格式检查 :
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)
文章来源于领测软件测试网 https://www.ltesting.net/
