[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
  1. @echo off
  2. set info=互助互利,支付宝扫码头像,感谢赞助
  3. rem 有问题,可加QQ956535081及时沟通
  4. title %info%
  5. cd /d "%~dp0"
  6. set "次数=2"
  7. set "output=结果"
  8. md "%output%" 2>nul
  9. powershell ^
  10.     dir *.txt^|?{$_ -is [System.IO.FileInfo]}^|%%{^
  11.         write-host $_.Name;^
  12.         $arr=$_.BaseName.split(',');^
  13.         $text=[IO.File]::ReadAllText($_.FullName, [Text.Encoding]::Default);^
  14.         [System.Collections.ArrayList]$char=$text.toCharArray();^
  15.         for($i=0;$i -lt %次数%;$i++){^
  16.             $n=0;while($n -lt $arr.Count){^
  17.                 $r=get-random @(0..($text.length-1));^
  18.                 if(($r -eq 0) -or ((@(\"`r\",\"`n\") -notcontains $char[$r]) -and (@(\"`r\",\"`n\") -notcontains $char[$r-1]))){^
  19.                     $char[$r]+=$arr[$n];^
  20.                     $n++;^
  21.                 };^
  22.             };^
  23.         };^
  24.         out-file -file ('%output%\'+$_.Name) -input ($char -join '') -enc Default;^
  25.     }
  26. echo;%info%
  27. pause
复制代码
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

本帖最后由 zaqmlp 于 2019-4-24 15:32 编辑

回复 4# yong8723

bat跟txt放一起运行,无法得知你的实际情况,加我Q
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

返回列表