Thanks all for your help..!! I found the mistake yesterday itself and yes the mistake was simple, keys were not unique.... :)
Regards Shalabh Dixit On Sun, Jul 3, 2011 at 1:58 AM, Parke Kuntz <[email protected]> wrote: > 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 > -- 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
