5、WebTable功能函数集合:
' ************************************************** FunctionLibrary ********************************
' Registering both functions
RegisterUserFunc "WebTable","ObjectsByMicClass", "ObjectsByMicClass"
RegisterUserFunc "WebTable", "ItemByKeyColumn","ItemByKeyColumn"
' Function: ObjectsByMicClass
' Descrīption: Returns a collection of objectsall the objects in a
' WebTable that have the specifiedMicClass
' Return Value: A Collection of Objects
' Arguments:
' Obj - Test Object (WebTable)
' micClass - The micClass of the objects toretrieve
'-----------------------------------------------------------------------------------------------------------
Function ObjectsByMicClass(Obj, micClass)
Set Table = Obj
' Create a collection object to hold theitems
Set ōbjCollection =CreateObject("scrīpting.Dictionary")
' Go over all the cells in the table, and lookfor objects with the specified micClass
For row=1 to Table.RowCount
ColumnCount=Table.ColumnCount(row)
For col=1 to ColumnCount
For ItemIndex=0 to Table.ChildItemCount(row,col, micClass)-1
Set childItem=Nothing
Set childItem = Table.ChildItem(row, col,micClass, ItemIndex)
If Not childItem is Nothing Then
' If the cell contains a micClass object, add itto the collection
ItemKey = objCollection.Count + 1
objCollection.Add ItemKey, childItem
End if
Next
Next
Next
Set ōbjectsbyMicClass = objCollection
End Function
' Function: ItemByKeyColumn
' Descrīption: Returns an item from a column,based on the value of a
' key column
' Return Value: Object
' Arguments:
' Obj - Test Object (WebTable)
' KeyColumnIndex - Index of the KeyColumn
' KeyColumnValue - Value to search for in thekey column
' KeyItemIndex - Index of the value in the keycolumn (if there is
' more than one). If 0, the first item will be used.
' TargetColumnIndex - Column from which toretrieve the target item
' micClass - The micClass of the targetitem
' TargetItemIndex - Index of the target item toretrieve (if there is
' more than one). If 0, the first item will be used.
'------------------------------------------------------------------------------------------------------------------------------------
Function ItemByKeyColumn(Obj, KeyColumnIndex,KeyColumnValue, KeyItemIndex, TargetColumnIndex, micClass,TargetItemIndex)
Table = Obj
rowCount = Table.RowCount
' if TargetItemIndex was not specified, use 1 asdeafult
If TargetItemIndex < 1 Then
TargetItemIndex = 1
End If
' if KeyColumnIndex was not specified, use 1 asdefault
If KeyItemIndex < 1 Then
KeyItemIndex = 1
End If
' look for KeyColumnValue in the key column todetermine which
' row to retrieve the targe item from
Row = 0
foundIndex = 0
While Row <= RowCount AndfoundIndex < KeyItemIndex
Row = Row + 1
CellData = Table.GetCellData(Row,KeyColumnIndex)
If CellData = KeyColumnValue Then
foundIndex = foundIndex + 1
End If
Wend
If foundIndex < KeyItemIndexThen
Exit Function
End If
' Now that we know the row, retrieve the item(according to its micClass)
' from the target column.
ChildItemsCount = Table.ChildItemCount(Row,TargetColumnIndex, micClass)
If ChildItemsCount > =1 AndChildItemsCount >= TargetItemIndex Then
Set GetItemByKeyColumn = Table.ChildItem(Row,TargetColumnIndex, micClass, TargetItemIndex-1)
End If
End Function
' ************************************ Examplesthat use these functions*******************************************************
' Using the ItemByKeyColumn Function
Set ōbj = Browser("Table withobjects").Page("Itenerary: Mercury Tours").WebTable("Acapulco toZurich").ItemByKeyColumn(1,"FLIGHT",2,3,"WebElement",1)
msgbox obj.GetROProperty("innerhtml")
' Using the ObjectsByMicClass function
Set collection =Browser("Browser").Page("Page").WebTable("Table").ObjectsByMicClass("WebCheckBox")
For i=1 to collection.count
If collection(i).GetROProperty("checked")Then
collection(i).Set "OFF"
Else
collection(i).Set "ON"
End If
Next