One more simple logic:-
myarr="bb aa cc gg hh tt gg bb aa 44 55 77 66 22 55 44 88 77 66 22 44"
myarr=split(myarr, " ")
for i=0 to ubound(myarr)
if instr(newarr, myarr(i))=0 then
newarr=newarr & myarr(i) & " "
End if
Next
msgbox newarr
newarr=split(newarr, " ")
Regards
Uma Mahesh
On Mon, Oct 7, 2013 at 8:39 PM, Amit Kumar <[email protected]>wrote:
> another logic...
>
> Dim arr, res(), temp, count1
> count1=0
> arr=array(11, 11, 12, 13, 14, 13, 11)
> ReDim preserve res(0)
> res(0)=arr(0)
> For i=1 to ubound(arr)
> j=0
> Do while j <= ubound(res)
> If arr(i) = res(j) Then
> Exit do
> End If
> j=j+1
> Loop
>
> If j > ubound(res) Then
> count1=count1+1
> ReDim preserve res(count1)
> res(count1)=arr(i)
> End If
> Next
>
> For i=0 to ubound(res)
> print res(i)
> Next
>
>
>
> On Mon, Oct 7, 2013 at 4:21 PM, Amit Kumar <[email protected]>wrote:
>
>> you can write the simpler one.
>>
>> Dim arr, res(4), temp, count1
>> count1=0
>> arr=array(11, 22, 33, 44, 22, 44, 55, 11)
>> For i=lbound(arr) to ubound(arr)
>> temp=i
>> For j=i+1 to ubound(arr)
>> If arr(i)<>arr(j) Then
>> temp=temp+1
>> End If
>> Next
>> If temp=ubound(arr) Then
>> res(count1)=arr(i)
>> count1=count1+1
>> End If
>> Next
>>
>> For i=0 to count1-1
>> print res(i)
>> Next
>>
>> Thanks,
>> Amit
>>
>>
>> On Mon, Oct 7, 2013 at 3:27 PM, Venkat Kandula <[email protected]
>> > wrote:
>>
>>> Hi Experts,
>>>
>>> I need a script for the below question.
>>>
>>> How to find the duplicate values in an array and Delete the Duplicate
>>> values from the array.
>>>
>>> Thanks,
>>> Venkat
>>>
>>> --
>>> --
>>> 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
>>> Groups "QTP - HP Quick Test Professional - Automated Software Testing"
>>> group.
>>> To unsubscribe from this group and stop receiving emails from it, send
>>> an email to [email protected].
>>> For more options, visit https://groups.google.com/groups/opt_out.
>>>
>>
>>
> --
> --
> 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 Groups
> "QTP - HP Quick Test Professional - Automated Software Testing" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to [email protected].
> For more options, visit https://groups.google.com/groups/opt_out.
>
--
--
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 Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/groups/opt_out.
