Instead of AllItems = "7-Technologies A/S;Blue Coat Systems Inc.;Cisco
Systems Inc.;Dell Inc.;EMC Corp.;FIX Protocol Limited;IBM Corp." can you try
creating the array using Array.

AllItems = Array("7-Technologies A/S","Blue Coat Systems Inc.;Cisco Systems
Inc.","Dell Inc.;EMC Corp.","FIX Protocol Limited;IBM Corp.")

then loop through the array without split.

On Wed, May 4, 2011 at 6:04 AM, Sheik Adil <[email protected]> wrote:

> Hi Ganesh,
>                    Every thing is working fine after the completion of the
> operation the control is not coming out of the loop.
> Thanks
>
>
> On Wed, May 4, 2011 at 4:30 PM, Ganesh muralidharan 
> <[email protected]>wrote:
>
>> 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
>
>
>  --
> 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

Reply via email to