Set objDict = CreateObject("Scripting.Dictionary")
For tb = 0 To UBound(ARR1)
if objDict.exists(arr1(tb)) then
objDict(arr1(tb)) = objDict(arr1(tb)) + 1
else
objDict(arr1(tb)) = 1
end if
Next
You can print out all keys were the value is greater than one and easily see
your duplicate keys.
On Sat, Jul 2, 2011 at 3:17 PM, Roman Zilber <[email protected]> wrote:
> maybe the the values in ARR1 are not not unique?
>
>
> On Sat, Jul 2, 2011 at 6:20 AM, Shalabh Dixit <[email protected]>wrote:
>
>> Hi All,
>>
>> I'm facing one strange problem.
>>
>> I'm storing the two arrays ARR1 and ARR2 into the DICTIONARY as keys
>> and values respectively. i.e.I'm storing ARR1 as KEYS and ARR2 as
>> ITEMS
>>
>> both arrays contains same number of items i.e. 75
>>
>> Set objDict = CreateObject("Scripting.Dictionary")
>> For tb = 0 To UBound(ARR1)
>> objDict.Add ARR1(tb),ARR2(tb)
>> Next
>>
>> Now the dictionary is just storing 45 elements only of both the arrays
>> instead of complete 75.
>>
>> Thanks in anticipation.
>>
>> --
>> 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
>
--
Parke
Cell: 770-842-0121
--
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
