无聊，发个根据字段名称找到其对应的Web控件的小方法 - 51Testing软件测试论坛

Function webEditObj(pageObj, fieldName)
'功能：根据指定的页面文字，找到其所对应的WebEdit输入框，默认查找页面上符合条件的第一个输入框
'传入参数： pageObj 页面对象
' fieldName 要查找的字段信息，注意不要添加冒号，本方法会自动添加中文或英文的冒号
'实现步骤：1 根据传入的字段名称，找到包含该字段的WebTable对象
' 2 根据WebTable对象，找到包含指定字段信息的单元格，记录其行数和列数
' 3 列数+1 就是要找的输入框所在的单元格
'使用方法：
' Set curPage = Browser("creationTime:=1").Page("index:=0")
' webEditObj(curPage,"客户名称").Set "01-0003"
Set descObj = description.Create()
descObj("html tag").value = "table"
descObj("innertext").value =".*"& fieldName&"(:|：).*"
Set allDescObjs = pageObj.childObjects(descObj)
objsCount = allDescObjs.count()
For i= 0 to objsCount-1
Set webTableObj = allDescObjs(i)
webTableObj.highLight
rows = webTableObj.rowCount
For rowNO =1 to rows
cols = webTableObj.columnCount(rowNO)
For colNO = 1 to cols
temp = webTableObj.getCellData(rowNO,colNO)
reporter.ReportEvent micDone,rowNO&","&colNO,temp
If (trim(temp) = fieldName&"：") or (trim(temp) = fieldName&":") Then
Set webEditObj = webTableObj.childItem(rowNO,colNO+1,"WebEdit",0)
Exit Function
End If
Next
Next
Next
End Function
Function webObj(pageObj,objClass, fieldName,indexNO)
'功能：根据指定的页面文字，找到其后一个单元格的指定的Web控件。如果页面上有多个相同名字的页面文字，则根据indexNO来查找
'传入参数：pageObj 页面对象
' objClass 目标控件的类别。如，webEdit，webList....
' fieldName 要查找的字段信息，注意不要添加冒号，本方法会自动添加中文或英文的冒号
' indexNO 如果页面上有多个相同文字的字段，默认取第一个，如果指定了indexNO，那么取指定的第indexNO个字段
'实现步骤：1 根据传入的字段名称，找到包含该字段的WebTable对象
' 2 根据WebTable对象，找到包含指定字段信息的单元格，记录其行数和列数
' 3 列数+1 就是要找的输入框所在的单元格
'使用方法：
' Set curPage = Browser("creationTime:=1").Page("index:=0")
' webObj(curPage,"WebList","担保品类别",0).select 1
Set descObj = description.Create()
descObj("html tag").value = "table"
descObj("innertext").value =".*"& fieldName&"(:|：).*"
Set allDescObjs = pageObj.childObjects(descObj)
objsCount = allDescObjs.count()
For i= 0 to objsCount-1
Set webTableObj = allDescObjs(i)
rows = webTableObj.rowCount
For rowNO =1 to rows
cols = webTableObj.columnCount(rowNO)
For colNO = 1 to cols
temp = webTableObj.getCellData(rowNO,colNO)
If (trim(temp) = fieldName&"：") or (trim(temp) = fieldName&":") Then
If label = indexNO Then
Set webEditObj = webTableObj.childItem(rowNO,colNO+1,objClass,0)
Exit Function
else
label = label+1
End If
End If
Next
Next
Next
End Function

复制代码