Hi All,
This is the code After Executing the code the control is not coming out of
the loop.
your help will be appreciated
AllItems = "7-Technologies A/S;Blue Coat Systems Inc.;Cisco Systems
Inc.;Dell Inc.;EMC Corp.;FIX Protocol Limited;IBM Corp."
Flag = False
Set objWEL = Description.Create
objWEL("micclass").Value = "WebElement"
objWEL("html id").Value ="j_id1:j_id2:0:j_id856:0:tree:n-.*:j_id1087"
Set WELgroup =
Browser("micclass:=Browser").Page("micclass:=Page").ChildObjects(objWEL)
WELCount = WELgroup.Count
Set objIMG = Description.Create
objIMG("micclass").Value = "Image"
objIMG("html id").Value ="j_id1:j_id2:0:j_id856:0:tree:n-.*:checkImage"
Set IMGgroup =
Browser("micclass:=Browser").Page("micclass:=Page").ChildObjects(objIMG)
sItem = Split(AllItems,";")
For i = 0 to WELCount-1
ItemName = WELgroup(i).GetROProperty("innertext")
For j = 0 to Ubound(sItem)
If ItemName = sItem(j) Then
' Flag = True
IMGgroup(i).Click
Wait(4)
Exit For
End If
Next
Next
'
Thank you,
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
