[问题求助] vbs如何读取文本文档数据并汇总？

habiaosuo

文本文档1.txt原始数据格式如下
aa 张三 bb cc dd 1
aa 张三 bb cc dd 2
aa 张三 bb cc dd 3
aa 李四 bb cc dd 2
aa 李四 bb cc dd 3

目前程序

Const adVarChar = 200 
Const MaxCharacters = 255 
Const ForReading = 1 
Const ForWriting = 2 
Set DataList = CreateObject("ADOR.Recordset") 
DataList.Fields.Append "line", adVarChar, MaxCharacters 
DataList.Open 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.OpenTextFile("E:\1.txt", ForReading) 
Do Until objFile.AtEndOfStream 
strLine = objFile.ReadLine
str_arr=Split (strLine," ")
For i=0 to ubound(str_arr)
strLine1=str_arr(i)
next
strLine2=str_arr(1)&" "&str_arr(5) 
DataList.AddNew 
DataList("line") = strLine2 
DataList.Update 
Loop 
objFile.Close 
DataList.Sort = "line" 
DataList.MoveFirst 
Do Until DataList.EOF 
strText = strText & DataList.Fields.Item("line") & vbCrLf 
DataList.MoveNext 
Loop 
Set objFile = objFSO.OpenTextFile("E:\2.txt", ForWriting) 
objFile.WriteLine strText 
objFile.Close
复制代码

能实现结果如下

李四 2
李四 3
张三 1
张三 2
张三 3

理想状态是想要实现汇总
即： 李四 5   （2+3）
     张三 6    （1+2+3）
恳请各位大侠帮助，无比感谢，在线等结果

habiaosuo

急需实现这段程序，本人能力有限，恳请各位大侠帮忙，无限感激