批处理之家 - Powered by Discuz! Board

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

作者: qq6438338 时间: 2016-7-8 15:10 标题: [已解决]批量打乱/弄乱多个txt文本内容原有行序（随机排序文本内容）的批处理代码

本帖最后由 qq6438338 于 2016-7-9 10:51 编辑

弄乱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 时间: 2016-7-8 20:42

本帖最后由 pcl_test 于 2016-7-9 21:54 编辑

纯路过

//&cls&dir /a-d/b *.txt|cscript -nologo -e:jscript "%~f0"&pause&exit

var fso = new ActiveXObject('Scripting.Filesystemobject');
function RandSort(file){
    var f = fso.OpenTextFile(file, 1);
    try{var txt = f.ReadAll().split(/\r\n/).sort(function(){return Math.random()-.5}).join('\r\n');}
    catch(e){}
    f.Close();
    fso.OpenTextFile(file, 2).Write(txt);
}
while(!WSH.StdIn.AtEndOfStream)RandSort(WSH.StdIn.ReadLine());
WSH.echo('Done');
复制代码

欢迎光临批处理之家 (http://bbs.bathome.net/)