plus tal i et array

Function SamletSum(str)
    Dim re, matches, dic, m, antal, id, strsum, key

    Set re = New RegExp
    re.Global = True
    re.Pattern = "#(\d+);(\d+)"
   
    Set matches = re.Execute(str)
   
    Set dic = Server.CreateObject("Scripting.Dictionary")
   
    For Each m in matches
   
        antal = CInt(m.SubMatches(0))
        id = m.SubMatches(1)
   
        If dic.Exists(id) Then
            dic(id) = dic(id) + antal
        Else
            dic.Add id, antal
        End If
    Next
   
    strsum = ""
   
    For Each key in dic.Keys
        strsum = strsum & "#" & dic(key) & ";" & key
    Next

    SamletSum = strsum

End Function

Response.Write SamletSum("#2;1#2;2#6;2#5;1")

Tak for det. Det virker som det skal :o)

Vil du ikke have point? :o)

LUKKER så...