zaqmlp

@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass ^
    $file1='源文件.txt';^
    $file2='统计结果.txt';^
    $range='2-7';^
    $dic=New-Object 'System.Collections.Generic.Dictionary[string,int]';^
    $text1=[IO.File]::ReadAllText($file1,[Text.Encoding]::Default);^
    $r=$range.split('-');^
    $m=[regex]::matches($text1, '[\u4E00-\u9FA5]');^
    for($i=[int]$r[0];$i -le [int]$r[1];$i++){^
        for($j=0;$j -le ($m.count-$i);$j++){^
            $s='';^
            for($k=$j;$k -lt ($j+$i);$k++){^
                $s+=$m[$k].groups[0].value;^
            };^
            if(-not $dic.ContainsKey($s)){^
                $dic.add($s,1);^
            }else{^
                $dic[$s]++;^
            };^
        };^
    };^
    [System.Collections.ArrayList]$result=@();^
    foreach($it in $dic.Keys){^
        if($dic[$it] -ge 2){^
            $t=$it+' '+$dic[$it];^
            write-host $t;^
            [void]$result.add($t);^
        };^
    };^
    [IO.File]::WriteAllLines($file2, $result, [Text.Encoding]::Default);
echo;%info%
pause
复制代码

zaqmlp

回复 4# lxh623

没有计标点符号，只统计汉字

zaqmlp

@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass ^
    $file1='源文件.txt';^
    $file2='统计结果.txt';^
    $range='2-7';^
    $dic=New-Object 'System.Collections.Generic.Dictionary[string,int]';^
    $text1=[IO.File]::ReadAllLines($file1,[Text.Encoding]::Default);^
    $r=$range.split('-');^
    for($i=0;$i -lt $text1.count;$i++){^
        $line=$text1[$i].trim();^
        if($line -ne ''){^
            $arr=$line -split '[^^\u4E00-\u9FA5]+';^
            for($j=0;$j -lt $arr.length;$j++){^
                for($k=[int]$r[0];$k -le [int]$r[1];$k++){^
                    for($a=0;$a -le ($arr[$j].length-$k);$a++){^
                        $s='';^
                        for($b=$a;$b -lt ($k+$a);$b++){^
                            $s+=$arr[$j][$b];^
                        };^
                        if(-not $dic.ContainsKey($s)){^
                            $dic.add($s,1);^
                        }else{^
                            $dic[$s]++;^
                        };^
                    };^
                };^
            };^
        };^
    };^
    [System.Collections.ArrayList]$result=@();^
    foreach($it in $dic.Keys){^
        if($dic[$it] -ge 2){^
            $t=$it+' '+$dic[$it];^
            write-host $t;^
            [void]$result.add($t);^
        };^
    };^
    [IO.File]::WriteAllLines($file2, $result, [Text.Encoding]::Default);
echo;%info%
pause
复制代码