Put a Breakpoint at For j = 0 to Ubound(sItem) and check how value is saved in array sItem using debug viewer for sItem and sItem(j).
On Wed, May 4, 2011 at 5:50 AM, Sheik Adil <[email protected]> wrote: > 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 -- Regards, Ganesh Muralidharan 'God Never Forgets' -- 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
