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

@echo off
for /f "delims=" %%i in (1.txt) do (
    for %%j in (%%i) do (
        set _%%j=true
        set /a @%%j+=1
    )
)
for /f "delims=" %%i in (2.txt) do (
    for %%j in (%%i) do (
        set _%%j=true
        set /a #%%j+=1
    )
)
setlocal enabledelayedexpansion
for /f "delims=_=" %%i in ('set _') do (
    if not defined @%%i set @%%i=0
    if not defined #%%i set #%%i=0
    if !@%%i! gtr !#%%i! (
        set a=!a!%%i 
    ) else if !@%%i! lss !#%%i! (
        set b=!b!%%i 
    ) else (
        set c=!c!%%i 
    )
)
for %%i in (a b c) do echo,!%%i!>%%i.txt
pause
复制代码

gawk -v"RS=\r?\n| " "{++a[$0][FILENAME];f[FILENAME]}END{PROCINFO[\"sorted_in\"]=\"@ind_str_desc\";for(i in a)for(j in f)if(!a[i][j]){};for(i in a){printf i;s=1;for(j in a[i]){sId=s?\":\":\",\";printf sId\" %s 记录 %d 次\",j,a[i][j];s=0}print\"\"}}" 1.txt 2.txt>3.txt
复制代码

@echo off &cd /d "d:\data" &del /q "a.txt", "b.txt", "c.txt" 2>nul
setlocal &set "F1=1.txt" &set "F2=2.txt"
(call :xx "%F1%") & (call :xx "%F2%")
(for /f "delims=" %%a in ('findstr /vig:"_%F1%.0" "_%F2%.0" ') do set/p="%%a "<nul)>"b.txt"
(for /f "delims=" %%a in ('findstr /vig:"_%F2%.0" "_%F1%.0" ') do set/p="%%a "<nul)>"a.txt"
for /f "usebackq tokens=1,2 delims==" %%a in ("_%F1%.1") do (
  for /f "tokens=1,2 delims==" %%x in ('findstr /lic:"%%~a" "_%F2%.1" ') do if %%b equ %%y (set/p="%%a "<nul>>"c.txt") else if %%b gtr %%y (set/p="%%a "<nul>>"a.txt") else (set/p="%%a "<nul>>"b.txt")
)
del/q "_%F1%.?" "_%F2%.?"&pause&exit/b
:xx
  setlocal enabledelayedexpansion
  for /f "usebackq delims=" %%a in ("%~1") do for %%x in (%%a) do if defined _%%x (set/a "_%%x+=1") else (set "_%%x=1" &set "all=!all!,_%%x")
  (for %%a in (!all!) do set "a=%%a"&echo,!a:~1!)>"_%~1.0"
  (for %%a in (!all!) do set "a=%%a"&echo,!a:~1!=!%%a!)>"_%~1.1"
  endlocal&exit/b
复制代码

gawk -v"RS=\r?\n| " "FNR==1{fn[++n]=FILENAME}{++a[$0][fn[n]]}END{for(i in a){if(a[i][fn[1]]>a[i][fn[2]]){printf\"%s \",i>\"A.txt\"}else if(a[i][fn[1]]<a[i][fn[2]]){printf\"%s \",i>\"B.txt\"}else{printf\"%s \",i>\"C.txt\"}}}" 1.txt 2.txt
复制代码

@echo off
cd /d "D:\DATA\"
if "%~1" equ "" (
	setlocal enabledelayedexpansion
	for /f "tokens=1-2" %%a in ('%0 # ^| sort ^& echo 1 1') do (
		if "!str!" neq "%%a" (
			if defined str (
				set /a m=#!str!
				if !m! gtr 0 (
					>>a.txt echo !str!
				) else if !m! equ 0 (
					>>c.txt echo !str!
				) else (
					>>b.txt echo !str!
				)
			)
			set str=%%a
		)
		set /a #!str!+=%%b
	)
	endlocal
	pause
	exit
) else (
	for %%i in ("1.txt|1" "2.txt|-1") do (
		for /f "tokens=1-2 delims=|" %%j in ("%%~i") do (
			for /f "useback delims=" %%a in ("%%j") do (
				for %%b in (%%a) do (
					echo %%b %%k
				)
			)
		)
	)
)
复制代码

<# ::
@echo off &cd /d "d:\data" &powershell "iex(${%~f0}|out-string)" &pause&exit/b
#>
$h1=@{}; gc 1.txt|%{foreach($i in $_.split()){if($h1.containsKey($i)){$h1[$i]+=1}else{$h1.add($i,1)}}}
$h2=@{}; gc 2.txt|%{foreach($i in $_.split()){if($h2.containsKey($i)){$h2[$i]+=1}else{$h2.add($i,1)}}}
$a=$b=$c=''; $h1.keys|%{if(!$h2.containsKey($_)){$a+=$_+' '}}; $h2.keys|%{if(!$h1.containsKey($_)){$b+=$_+' '}};
$h1.keys|%{if($h2.containsKey($_)){if($h1[$_] -eq $h2[$_]){$c+=$_+' '}elseif($h1[$_] -gt $h2[$_]){$a+=$_+' '}else{$b+=$_+' '}}}
sc a.txt $a.trimend(); sc b.txt $b.trimend(); sc c.txt $c.trimend(); exit
复制代码