add duplicate value in multi dimensional array in classic asp

Question

I have a 2d array in classic asp like
1-5
1-3
2-5

I need this array output in following format
1-8
2-5

please help me

Are you looking just to get a sum of all the values in the 1st dimension? — Control Freak
– Control Freak, Commented Jan 10, 2013 at 11:32
yes, I'm looking just to get a sum of all the values in the 1st dimension. — G.S. Shekhawat
– G.S. Shekhawat, Commented Jan 10, 2013 at 11:41

Ekkehard.Horner · Accepted Answer · 2013-01-10 12:53:14Z

2

You need a dictionary to sum up the col2 values grouped by the col1 values. As in:

  ReDim aIn(2, 1)
  aIn(0, 0) = 1 : aIn(0, 1) = 5
  aIn(1, 0) = 1 : aIn(1, 1) = 3
  aIn(2, 0) = 2 : aIn(2, 1) = 5
  Dim dicX : Set dicX = CreateObject("Scripting.Dictionary")
  Dim i
  For i = LBound(aIn, 1) To UBound(aIn, 1)
      dicX(aIn(i, 0)) = dicX(aIn(i, 0)) + aIn(i, 1)
  Next
  ReDim aOut(dicX.Count - 1, 1)
  For i = LBound(aOut, 1) To UBound(aOut, 1)
      aOut(i, 0) = dicX.Keys()(i)
      aOut(i, 1) = dicX(aOut(i, 0))
  Next
  For i = LBound(aOut, 1) To UBound(aOut, 1)
      WScript.Echo aOut(i, 0), aOut(i, 1)
  Next

output:

======
1 8
2 5
======

answered Jan 10, 2013 at 12:53

Ekkehard.Horner

38.8k2 gold badges50 silver badges101 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

G.S. Shekhawat Over a year ago

Thanks. It's useful for me

Collectives™ on Stack Overflow

add duplicate value in multi dimensional array in classic asp

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related