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

uuu888s

按排名上升幅度 由多到少 重新排列列表

现有 两个列表   
以前的排名表old    现在的排名表new
要把new 表里面的域名 按排名上升幅度 由大到小 排列


大概是这样实现吧
遍历 现在的排名表new里的 域名列
查找该域名是否在以前的排名表old 中有排名  
若有 则 以前名次减现在名次  得出上升幅度   
若无 则 用以前列表总数 减 现在的名次  得出上升幅度


然后按上升幅度 大小排列new里面所有域名
做个bat一键生成新的列表

ivor

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

uuu888s

回复 2# ivor


147        tmall.com
387        tmall.com
390        tmall.com
395        tmall.com
703        tmall.com


出现这样的情况  域名部分相同 也算一个域名了  这样肯定不行

uuu888s

回复 2# ivor


-5        tumblr.com
325        tumblr.com

有二级域名的情况    所以要域名字符串完全一样 才算该域名

ivor

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

关于二级域名的问题,这一行%%b前面加个,就能解决

没生成文件是因为我注释了两行，前面带有REM

qazplm

ps

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

uuu888s

回复 6# qazplm


    不是bat vbs  这是 什么文件执行的呢

523066680

Perl / 蜜汁语法糖

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);

[Finished in 0.3s]

部分

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

qazplm

回复 7# uuu888s
powershell

uuu888s

回复 8# 523066680


    能把成品给我打包下吗  感谢!  之前的解答 速度很慢  看你这个好像很快!
但是不知道perl 语言怎么写 蜜汁没听过

uuu888s

回复 6# qazplm


   xp上安装了ps      把你的代码保存为ps1 文件 运行 出现很多红色文字  好像不行  能打包一下给我吗