求助vbs读取文本文档数据问题，在线等
文本文档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）
恳请各位大侠帮助，无比感谢，在线等结果
我只有20分，全部贡献，多谢了
