zaqmlp

第3点什么意思啊，读不顺呀

zaqmlp

@echo off
mode con lines=1000
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass ^
    $list=New-Object 'System.Collections.Generic.Dictionary[string,Object]';^
    for($i=0;$i -le 9;$i++){$list.Add((''+$i+'00-'+$i+'99'),@(0,0,0))};^
    $c=0;$dic=New-Object 'System.Collections.Generic.Dictionary[string,Object]';^
    $files=@(dir^|?{$_ -is [System.IO.FileInfo]});^
    for($i=0;$i -lt $files.Count;$i++){^
        $m=[regex]::match($files[$i].Name,'^^(\d{14})\.(\d{3})(\d{3})(\d{3})-(.+?\d{2})\.dat');^
        if($m.success){^
            foreach($it in $list.keys){^
                $t=$it.split('-');^
                for($j=0;$j -le 2;$j++){^
                    if(([int]$m.groups[$j+2].value -ge [int]$t[0]) -and ([int]$m.groups[$j+2].value -le [int]$t[1])){^
                        $list[$it][$j]++;^
                    };^
                };^
            };^
            $item=$m.groups[5].value+':'+$m.groups[4].value;^
            if(-not $dic.ContainsKey($m.groups[1].value)){^
                [System.Collections.ArrayList]$s=@($item);^
                $dic.Add($m.groups[1].value, $s);^
            }else{^
                [void]$dic[$m.groups[1].value].Add($item);^
            };^
            $c++;^
        };^
    };^
    $result=''+$c+\"`r`n-----------------------`r`n\";^
    foreach($it in $list.Keys){$result+=$it+\"`t\"+($list[$it] -join ',')+\"`r`n\";};^
    $result+=\"-----------------------`r`n\";^
    foreach($it in $dic.Keys){^
        $arr=@($dic[$it]^|sort {[int]$_.split(':')[1]});^
        $result+=$it+\"`t\"+($arr -join ',')+\"`t\"+([int]$arr[-1].split(':')[1]-[int]$arr[0].split(':')[1])+\"`r`n\";^
    };^
    $result;[IO.File]::WriteAllText('$result.log', $result, [Text.Encoding]::Default);^
    write-host '%info%' -ForegroundColor green;
pause
复制代码