再来一个:- $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;
复制代码
|