asp-classic - クラシックASPの多次元配列に重複値を追加

Question

1-5
1-3
2-5のようなクラシック ASP の 2D 配列があります

この配列出力は次の形式で必要です
1-8
2-5

私を助けてください

Answer 1

col1 値でグループ化された col2 値を合計するには、辞書が必要です。次のように:

  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

出力：

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