@gawk "{arr[$1]+=$2}END{for(i in arr)print i \"\t\" arr[i]}" 输入.txt >输出.txt
复制代码

@echo off & setlocal EnableDelayedExpansion

for /f "tokens=1-3 delims==.	 " %%a in (a.txt) do (
    set "decim=1%%c00"
    set /a "decim = !decim:~0,3! %% 100, sign = %%b1 >> 31 | 1"
    set /a "$%%a += %%b * 100 + sign * decim"
)
set $
> b.txt (
    for /f "tokens=1-2 delims==" %%a in ('set $') do (
        set "user=%%a"        
        set /a "sign = %%b >> 31 | 1, int=%%b / 100 * sign, dec = %%b %% 100 * sign"
        set "dec=00!dec!"
        echo !user:~1!=!sign:~0,-1!!int!.!dec:~-2!
    )
)
start b.txt
pause
exit
复制代码

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 "完成"
复制代码

@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!
复制代码

@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]);
复制代码