|
- Sub ex()
- s = "工人4人,電焊機1台,吊車1輛,發電機1台,工人2人,電焊機1台,發電機1台"
- Debug.Print
- Debug.Print s
- Debug.Print SumITEM(s)
- End Sub
- Function SumITEM(s)
- Dim d As Object
- Set d = CreateObject("Scripting.Dictionary")
- For Each xItem In Split(s, ",")
- For i = 1 To Len(xItem)
- If Val(Mid(xItem, i)) > 0 Then n = Val(Mid(xItem, i)): Exit For
- Next i
- Key = Replace(xItem, n, "#"): d(Key) = d(Key) + n
- Next
- dkeys = d.keys: dItem = d.items: JoinKeys = Join(dkeys, ",")
- For j = 0 To UBound(dkeys)
- JoinKeys = Replace(JoinKeys, dkeys(j), Replace(dkeys(j), "#", dItem(j)))
- Next
- SumITEM = JoinKeys
- End Function
复制代码 |
|