czjt1234

ReDim ArrName(1,0)
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile("E:\1.txt", 1)
 
strLine = objTextStream.ReadLine
ArrLine = Split(strLine)
IntName = 0

ArrName(0,0) = ArrLine(1)
ArrName(1,0) = ArrLine(5)
 
Do Until objTextStream.AtEndOfStream 
    strLine = objTextStream.ReadLine
    ArrLine = Split(strLine)
    blnNew = True
    For i = 0 To IntName
        If ArrName(0,i) = ArrLine(1) Then
            ArrName(1,i) = ArrName(1,i) & "+" & ArrLine(5)
            blnNew = False
        End If
    Next
    If blnNew Then
        IntName = IntName + 1
        ReDim Preserve ArrName(1,IntName)
        ArrName(0,IntName) = ArrLine(1)
        ArrName(1,IntName) = ArrLine(5)
    End If
Loop
 
objTextStream.Close
Set objTextStream = objFSO.OpenTextFile("E:\2.txt", 8, True)
 
For i = 0 To IntName
    k = 0
    ArrOut = Split(ArrName(1,i), "+")
    For j = 0 To ubound(ArrOut)
        k = k + int(ArrOut(j))
    next
    objTextStream.WriteLine ArrName(0,i) & " " & k & " (" & ArrName(1,i) & ")"
Next
复制代码

czjt1234

没做容错处理

所以注意要求格式正确，不能有空行，特别是最后一行