[已解决]20元求词频统计

@echo off
gawk "FILENAME==\"test.txt\" {a[$0]++} FILENAME==\"lit.txt\"{printf(\"%%s有%%d次\n\",$0,a[$0])}" test.txt lit.txt >jjpc.txtCOPY

@echo off
REM 关键词字数，2~3个字
set /a Min=2, Max=3
gawk "FNR==NR{a[$0]=1;b[$0]=0};FNR!=NR{for(i=%Min%;i<=%Max%;i++)for(j=1;j<=length($0)-i+1;j++){s=substr($0,j,i);if(a[s])b[s]++}}END{for(i in b)print i,b[i]}" 关键词.txt 诗词.txt > Result.txt
pauseCOPY

盼断归期，划损短金篦。一搦腰围，宽褪素罗衣。知他是甚病疾，好教人没理会，拣口儿食，陡恁的无滋味。医，越恁的难调理。
秋景堪题，红叶满山溪。松径偏宜，黄菊绕东篱。正清樽斟泼醅，有白衣劝酒杯。官品极，到底成何济！归，学取他渊明醉。COPY

盼断
一搦
天地
我们
素罗衣COPY

天地 0
素罗衣 1
我们 0
一搦 1
盼断 1COPY

@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
set "rootpath=%~dp0"
cd /d "%rootpath%"
powershell -NoProfile -ExecutionPolicy bypass ^
    function getcount($str,$word){^
        $index=0;^
        $count=0;^
        while(($index=$str.IndexOf($word, $index)) -ne -1){^
            $count++;^
            $index=$index+$word.Length;^
        };^
        return $count;^
    };^
    $file1='原件.txt';^
    $file2='关键词.txt';^
    $file3='统计结果.txt';^
    $dic=New-Object 'System.Collections.Generic.Dictionary[string,int]';^
    $text1=[IO.File]::ReadAllLines($file1,[Text.Encoding]::Default);^
    $text2=[IO.File]::ReadAllLines($file2,[Text.Encoding]::Default);^
    for($i=0;$i -lt $text1.count;$i++){^
        for($j=0;$j -lt $text2.count;$j++){^
            $c=getcount $text1[$i] $text2[$j];^
            if(-not $dic.ContainsKey($text2[$j])){^
                $dic.add($text2[$j], $c);^
            }else{^
                $dic[$text2[$j]]+=$c;^
            };^
        };^
    };^
    [System.Collections.ArrayList]$s=@();^
    foreach($it in $dic.keys){[void]$s.add($it+' '+$dic[$it])};^
    [IO.File]::WriteAllLines($file3, $s, [Text.Encoding]::Default);^
    $dic;
echo;%info%
pauseCOPY