xczxczxcz

重复文字：

羊 也 的 江 尖 要 候 行 朝 体 泡 扇 丁 结 璧 炸 杆 量 尽 喝 啊 扫 抽 仗 争 似 烧 爪 漂 娟 菜 倒 坊 竟 挣 掠 模 阅 较 预 倾 媚 屑
复制代码

(([string]([char[]](gc b.txt -Raw) -join ' ') -split '\s+' -notmatch '^$')|group|?{$_.count -ge 2}|select -expand name) -join ' '|sc '.\info.txt' -enc Default -Force
复制代码

xczxczxcz

再来一个：

$save =[io.path]::Combine([environment]::GetFolderPath("desktop"),'info.txt');
$bytes=[IO.File]::ReadAllBytes("$(pwd)\b.txt") -notmatch '^(10|13|32)$';
$arr =for($i=0; $i -lt $bytes.count;$i+=2){,@($bytes[$i],$bytes[$i+1])};
$str =$arr|group {$_ -join ''}|?{$_.count -ge 2}|%{$_.group|select -First 1};
$gbk =[text.encoding]::Getencoding(936);
$(foreach($i in $str){$gbk.GetString($i)}) -join ' '|sc $save -enc Default -Force;
复制代码

xczxczxcz

(([char[]](gc b.txt -Raw) -join ' ').split(' ',[StringSplitOptions]::RemoveEmptyEntries)|group|?{$_.count -ge 2}|select -expand name) -join ' '
复制代码

这个把前面的 羊 字丢了。怪。

xczxczxcz

又搞了个，提速约 10 倍。