获取并处理WebTable中的子对象

' ***************************** Function Library ******************************

 

RegisterUserFunc "WebTable", "ObjectsByMicClass", "ObjectsByMicClass"

 

' Function: ObjectsByMicClass

 

' Description: Returns a collection of objects. All the objects in a

 

' WebTable that have the specified MicClass

 

' Return Value: A collection of objects

 

' Arguments:

 

' Obj - Test Object (WebTable)

 

' micClass - The micClass of the objects to retrieve

 

'--------------------------------------------------------------------------

 

Function ObjectsByMicClass(Obj, micClass)

 

    Set Table = Obj

 

    ' Create a collection object to hold the items

 

    Set objCollection = CreateObject("Scripting.Dictionary")

 

    ' Go over all the cells in the table,

    'and look for 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 it to the collection

 

                    ItemKey = objCollection.Count + 1

 

                    objCollection.Add ItemKey, childItem

 

                End if

 

            Next

 

        Next

 

    Next

 

    Set ObjectsbyMicClass = objCollection

 

End Function

 

' 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