[已解决]批量打乱/弄乱多个txt文本内容原有行序（随机排序文本内容）的批处理代码

qq6438338

弄乱2个文本行序，文本内容带有%百分号，就会出错！怎么修改

@echo off
set f1=1.txt
set f2=2.txt
for %%i in ("%f1%" "%f2%")do (
echo.正在处理 %%~i
for /f "usebackq delims=" %%a in (%%i)do call :y "%%a"
(for /f "tokens=1* delims==" %%b in ('set #')do (
if defined h call echo.%%h%%
set h=%%c&set "%%b=")
call set/p=%%h%%<nul
)>%%i
set h=)
echo OK 处理完毕,即将退出...
ping -n 2 127.1>nul
exit
:y
set r=%random%
if defined #%r% goto y
set "#%r%=%~1"&goto :eof

pcl_test

纯路过

1. //&cls&dir /a-d/b *.txt|cscript -nologo -e:jscript "%~f0"&pause&exit
   
2. 
   
3. var fso = new ActiveXObject('Scripting.Filesystemobject');
   
4. function RandSort(file){
   
5.     var f = fso.OpenTextFile(file, 1);
   
6.     try{var txt = f.ReadAll().split(/\r\n/).sort(function(){return Math.random()-.5}).join('\r\n');}
   
7.     catch(e){}
   
8.     f.Close();
   
9.     fso.OpenTextFile(file, 2).Write(txt);
   
10. }
    
11. while(!WSH.StdIn.AtEndOfStream)RandSort(WSH.StdIn.ReadLine());
    
12. WSH.echo('Done');

复制代码