|
- 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
复制代码 |
|