复制代码
- @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
关于二级域名的问题,这一行%%b前面加个,就能解决复制代码
- 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
欢迎光临 批处理之家 (http://bbs.bathome.net/) | Powered by Discuz! 7.2 |