Three filters to get object count

[SBsteven]

How do I use three filters to grab the count of web objects on a page?

I want to get the number of objects on a page where the objects have these values:

micClass = WebElement
html tag = SPAN
x = 180

Here is the code I have so far:

=================================================

Code:

'Gather the number of filtered objects on the website. On Error Resume Next webCount = 0 Set Doc = Browser("micClass:=Browser").Page("micClass:=Page").Object 'Loop through all the objects in the page. For Each Element In Doc.all If Element.TagName = "SPAN" and Element.x = 180 then webCount = webCount + 1 End If Next Msgbox "The number of objects are " & webCount

=================================================

The msgbox should come back with a count of 4 instead it comes back as 93.

Any ideas?

SBsteven

[Saket]

you should look in the page child objects not in the page.object also you have not serached for webElement object.
try the code below

Code:

Set Desc = Description.Create() Desc("micclass").Value = "WebElement" Desc("html tag").Value = "SPAN" Desc("X").value = 180 Set Doc = Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(Desc) MsgBox "Number of Edits: " & Doc.Count

---

Sorry for the typo, Please read Number of webelements in the last statement.

[SBsteven]

Saket,

Thanks much for helping me out with this. I feel that I am much closer now. But when running your code I am getting a "General Run Error" on this line:

Code:

Set Doc = Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(Desc)

And I am unsure why. Do you or anyone here have any ideas?

Thanks!!
SBsteven

[SBsteven]

I finally have the answer. After posting on a few message forums and some Google searching, here is the code that works..YAY!

==========================================================

Code:

Dim oDesc 'Description Object Dim colObject 'Object Collection Set oDesc = Description.Create oDesc("micclass").Value = "WebElement" oDesc("html tag").Value = "SPAN" oDesc("x").Value = 180 Set colObject = Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects( oDesc ) 'Retrieve the count iCount = colObject.Count msgbox iCount

=========================================================

SBsteven