aa77dd@163.com

回复 15# serena

有 bug, 当求和结果绝对值 < 0.1 时 或者 负数小数 取符号时, 都会触发

5 楼已更新


如楼下所言, 你的数据文件按 用户号排序, 在 EXCEL 里分类汇总就 OK 了, 很简单的

pcl_test

vbs

Set Dict = CreateObject("Scripting.Dictionary")
Set fso = CreateObject("Scripting.FileSystemObject")
Set File1 = fso.OpenTextFile(".\测试.txt", 1)
Set File2 = fso.CreateTextFile(".\结果.txt", 2)
Do While File1.AtEndOfStream <> True
    arr = split(File1.ReadLine,"        ")
        If Dict.Exists(arr(0)) <> True Then
            Dict.Add arr(0), arr(1)
        Else 
            tmp = CDbl(Dict.Item(arr(0)))+CDbl(arr(1))
            Dict.Item(arr(0))=tmp
        End If
Loop
objKeys = Dict.Keys
objItems = Dict.Items
For i = 0 To Dict.Count -1
    File2.WriteLine objKeys(i)&"="&formatnumber(objItems(i),2,true)
Next
File1.Close
File2.Close
Dict.RemoveAll
Set Dict = Nothing
Msgbox "完成"
复制代码

用Excel也可很方便合并求和

回家路上

学了set，请教了5楼，也没写好。待改进O(∩_∩)O！

@echo off & setlocal enabledelayedexpansion
for /f "tokens=1-3 delims=. " %%i in ('sort a.txt') do (
	set d=%%j
	if "%%i"=="!flag!" (
		set /a "neg=^!(!d:~1!+!d!),pos=^!neg,int+=%%j,s=^!((int>>31)-(%%j>>31)),n=^!s,dec-=s*(%%k+0),dec+=n*(%%k+0),int+=dec/10,dec=dec%%10"
	) else (
		if defined flag (
			set /a "dec=(1+2*(dec>>31))*dec"
			echo;!flag!=!int!.!dec!
		)
		set flag=%%i&set int=%%j&set dec=%%k
	)
)
set /a "dec=(1+2*(dec>>31))*dec"
echo;!flag!=!int!.!dec!
pause & exit /b
复制代码

set dec=!dec!00000&set dec=!dec:~,5!&set ndec=%%k00000&set ndec=!ndec:~,5!&set int=!int:*0=!&set nint=%%j&set nint=!nint:*0=!
set /a rst=!nint!!ndec!+!int!!dec!&set int=!rst:~,-5!&set dec=!rst:~-5!
复制代码

回家路上

再开个bat、JS混编的

@if(0)==(0) echo off&sort "a.txt"|cscript -nologo -e:jscript "%~f0"&pause&exit /b&@end

var content = WScript.StdIn.ReadAll();
var re = {};
content.replace(/([^\s]+)\s+(.*)/g,function($0,$1,$2){
	re[$1] = re[$1]?parseFloat(re[$1])+parseFloat($2):$2;
});
for(var i in re) WSH.Echo(i+"="+re[i]);
复制代码