Board logo

标题: [文本处理] [已解决]批量打乱/弄乱多个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 编辑

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





欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2