[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
  1. @echo off
  2. set info=互助互利,支付宝扫码头像,感谢赞助
  3. rem 有问题,可加QQ956535081及时沟通
  4. title %info%
  5. cd /d "%~dp0"
  6. set "input=list.txt"
  7. set "output1=tmp1.txt"
  8. set "output2=tmp2.txt"
  9. powershell -NoProfile -ExecutionPolicy bypass ^
  10.     $dic=New-Object 'System.Collections.Generic.Dictionary[string,int]';^
  11.     $text=[IO.File]::ReadAllLines('%input%',[Text.Encoding]::Default);^
  12.     for($i=0;$i -lt $text.length;$i++){^
  13.         if(-not $dic.ContainsKey($text[$i])){^
  14.             $dic.Add($text[$i],1);^
  15.         }else{^
  16.             $dic[$text[$i]]++;^
  17.         };^
  18.     };^
  19.     $fs1=New-Object System.IO.FileStream('%output1%', [System.IO.FileMode]::Create);^
  20.     $sw1=New-Object System.IO.StreamWriter($fs1, [Text.Encoding]::Default);^
  21.     $fs2=New-Object System.IO.FileStream('%output2%', [System.IO.FileMode]::Create);^
  22.     $sw2=New-Object System.IO.StreamWriter($fs2, [Text.Encoding]::Default);^
  23.     foreach($item in $dic.Keys){^
  24.         $sw1.WriteLine($item);^
  25.         if($dic[$item] -gt 1){$sw2.WriteLine('['+$dic[$item]+']'+$item)};^
  26.     };^
  27.     $sw1.Close();$fs1.Close();^
  28.     $sw2.Close();$fs2.Close();
  29. echo;%info%
  30. pause
复制代码
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

返回列表