[文件操作] 批处理怎样按排名上升幅度 排列列表

@echo off&setlocal ENABLEDELAYEDEXPANSION
for /f "tokens=1,2 delims=," %%a in (new.csv) do (
	:one
	for /f "tokens=1,2 delims=," %%i in ('findstr /E "%%b" old.csv ^|^| echo false') do (
		if "%%i" equ "false" (
			for /f %%x in ('type old.csv ^| find /i "," /c') do (
				set /a ranking=%%x-%%a
				echo !ranking!,%%b
		rem		>>rank.csv echo !ranking!,%%b
			)
		) else (
		set /a ranking=%%i-%%a
		echo !ranking!,%%b
rem		>>rank.csv echo !ranking!,%%b
		)
	)
)
pause
复制代码

for /f "tokens=1,2 delims=," %%i in ('findstr /E ",%%b" old.csv ^|^| echo false') do (
复制代码

$old=@{};$new=@();$n=0;
gc 'D:\test\old.csv'|%{$a=$_.split(',');$old[$a[1].trim().toLower()]=$a[0];$n++}
gc 'D:\test\new.csv'|%{
    $b=$_.split(',');
    $c=$b[1].trim().toLower();
    if($old[$c]){
       $new+=$($old[$c]-$b[0]).toString()+','+$c;
    }else{
       $new+=$($n-$b[0]).toString()+','+$c;
    }
}
$new|sort {[int]$_.split(',')[0]} -des
复制代码

use IO::Handle; STDOUT->autoflush(1); use File::Slurp; my $old = read_file("old.csv"); my $new = read_file("new.csv"); my %old = map { reverse split(",", $_) } split(/\r?\n/, $old); my %new = map { reverse split(",", $_) } split(/\r?\n/, $new); my %delta = map {  $_, $new{$_} - $old{$_}  } keys %new; grep {     printf "%5d %s\n", $delta{$_}, $_ } reverse sort { $delta{$a} <=> $delta{$b} } (keys %delta);

 1049 jumia.com.ng
 1048 yjc.ir
 1047 nextdoor.com
 1045 mileroticos.com
 1037 cdninstagram.com
 1036 imagetwist.com
 1035 rightmove.co.uk
...
...
 -519 office365.com
 -524 rednet.cn
 -536 jrj.com.cn
 -600 patreon.com
 -610 redd.it
 -646 rumble.com
 -691 list.tmall.com
复制代码