获取并处理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

转载于:https://www.cnblogs.com/dushuai/articles/2682824.html