|
Function NeedInput(el_page,id_len)
Set dtSheet=GetGlobalSheet(TestDir&"\Data\InsertInfo.xls","Global")
For i =1 to V_NUM
dtSheet.SetCurrentRow(i) '获取当前行
get_text= DataTable.Value(el_page,"Global")
isStatus=DataTable.Value(el_page+"Status","Global")
codeNum=GetLen(get_text) '调用函数来获取其字符串长度
tszf=CheckTszf(get_text) '调用函数判断其是否含有特殊字符 返回值是 True 和 False;若含有特殊字符则返回True
If get_text="" or tszf="True" or codeNum>id_len Then
browser("browser").page("page").Frame("name:=main").WebEdit("name:=" & el_page).Set get_text
browser("browser").page("page").Frame("name:=main").WebButton("name:=提交").Click
getStatus=replace(browser("browser").Dialog("text:=Microsoft Internet Explorer").Static("window id:=65535").GetROProperty("text"),vbcrlf,"")
If isStatus=getStatus Then
browser("browser").Dialog("text:=Microsoft Internet Explorer").WinButton("text:=确定").Click
rep micPass,"提示信息" ,"提示信息 :"+getstatus+"正确"
else
QTP_Capture(TestDir&"\Pictures")
browser("browser").Dialog("text:=Microsoft Internet Explorer").WinButton("text:=确定").Click
rep micFail,"提示信息","提示信息:"+getStatus+"不正确"+vbcrlf+"正确的提示信息为:"+isStatus
End If
elseif codeNum>0 and codeNum<=id_len then
browser("browser").page("page").Frame("name:=main").WebEdit("name:=" & el_page).Set get_text
rep micPass,"录入信息" ,"录入信息 :"+get_text+"正确"
Exit for
End If
Next
ClsGSheet "dtSheet"
End Function
上边的代码是一个对输入域为必输项的一个校验,其中包括特殊字符和长度。。
整个系统只要用到这个校验的地方。。OK。。只要维护要EXCEL表就可以了。。。
这种东西都是个人喜好问题,。。当然我承认他运行的效率没有有对象库好。。但是他的优点也是毋庸置疑的。。 |
|