[文本处理] 【已解决】批处理如何合并左侧同类相，且同类相右侧数值求和？

@echo off
for /f "useback tokens=1-2" %%a in ("1.txt") do (
	set /a #%%a + = %%b
)
setlocal enabledelayedexpansion
(for /f "useback tokens=1-2" %%a in ("1.txt") do (
	if not defined _%%a (
		echo %%a !#%%a!
		set _%%a=1
	)
))>2.txt
endlocal
pause
复制代码

gawk "{a[$1]+=$2}END{for(i in a)print i,a[i]}" 1.txt > 2.txt
复制代码

@echo off
setlocal enabledelayedexpansion
(for /f "tokens=1,2" %%i in ('sort 1.txt') do (
    if %%i equ !str! (
        set /a n+=%%j
    ) else (
        if defined n echo,!str!	!n!
        set n=%%j
        set str=%%i
    )
)
echo,!str!	!n!)>2.txt
pause
复制代码

@if(0)==(0) echo off
type 1.txt | cscript //nologo //e:jscript "%~f0" > 2.txt
pause & exit /b
@end

var str = WSH.StdIn.ReadAll();
var reg = /^(\S+)[ \t]+(\d+)/mg;
var obj = {}

while (arr = reg.exec(str)) {
    var key = arr[1];
    var value = 1 * arr[2];
    obj[key] = obj.hasOwnProperty(key) ? obj[key] + value : value;
}
        
for (var key in obj) WSH.Echo(key + ' ' + obj[key]);
复制代码

PowerShell "gc 1.txt | group{($_ -split '\s+')[0]} | forEach{$_.Name + ' ' + ($_.Group -replace '^\S+' | measure -Sum).Sum}" > 2.txt
复制代码

$arrIn  = [IO.File]::ReadAllLines('1.txt') -match '^\S+\s+\d+';
$arrOut = [Collections.ArrayList]@();
$dict   = New-Object 'System.Collections.Generic.Dictionary[string, Int]';

for ($i = 0; $i -lt $arrIn.Count; $i++) {
    $arr = $arrIn[$i] -split '\s+';
    $key = $arr[0];
    $value = 1 * $arr[1];
    $dict[$key] += $value;
}

forEach ($key In $dict.Keys) {
    [void]$arrOut.Add($key + ' ' + $dict[$key]);
}

[IO.File]::WriteAllLines('2.txt', $arrOut);
复制代码