[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 zaqmlp 于 2020-7-31 01:18 编辑
  1. <# :
  2. cls
  3. @echo off
  4. cd /d "%~dp0"
  5. powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::Default))) -Args '%~f0'"
  6. pause
  7. exit
  8. #>
  9. $self=get-item -liter $args[0];
  10. $path=$self.Directory.FullName
  11. $len=15;
  12. $newfolder=$path+'\#result';
  13. if(-not (test-path -liter $newfolder)){[void](md $newfolder)};
  14. $files=@(dir -liter $path|?{('.txt' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
  15. for($i=0;$i -lt $files.length;$i++){
  16.     write-host $files[$i].Name;
  17.     [System.Collections.ArrayList]$s=@();
  18.     $dic=New-Object 'System.Collections.Generic.Dictionary[string,string]';
  19.     $enc=[Text.Encoding]::Default;
  20.     $text=[IO.File]::ReadAllLines($files[$i].FullName, $enc);
  21.     for($j=0;$j -lt $text.count;$j++){
  22.         $tmpline=$text[$j] -replace '[^\u4e00-\u9fa5]','';
  23.         $a=$tmpline.length;
  24.         $line=$tmpline;
  25.         if($len -lt $a){$line=$tmpline.substring(0, $len);}
  26.         if(-not $dic.ContainsKey($line)){
  27.             $dic.add($line,'');
  28.             [void]$s.add($text[$j]);
  29.         };
  30.     };
  31.     $newfile=$newfolder+'\'+$files[$i].Name;
  32.     [IO.File]::WriteAllLines($newfile, $s, $enc);
  33. };
复制代码
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

返回列表