添加在多維陣列重複的值在傳統的ASP

Question

我在傳統的ASP等
1-5
1-3
2-5

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 
======