@echo off
if not exist newtxt md newtxt
for /f "delims=" %%a in ('dir /a:-d /b *.txt') do (
    set file=%%a
    SetLocal EnableDelayedExpansion
    set /a RanNum = !random! %% 10 + 1
    >"newtxt\!file!" sort /+!RanNum! "!file!"
    EndLocal
)
复制代码

@echo off&setlocal enabledelayedexpansion
if "%1" equ "" (
   md newtxt 2>nul
        for /f "delims=" %%i in ('dir /a-d /b *.txt') do (
        (for /f "tokens=1* delims==" %%j in ('""%~0" "%%i"|sort"') do echo;%%k)>"newtxt\%%i"
)
pause&exit
) else for /f "usebackq delims=" %%i in (%1) do echo !random!!random!!random!=%%i
复制代码

@echo off&setlocal enabledelayedexpansion
if "%1" equ "" (
   md newtxt 2>nul
   for /f "delims=" %%i in ('dir /a-d /b *.txt') do (
       set "str=%%i"
       (for /f "tokens=1* delims==" %%j in ('%0 $^|sort') do echo;%%k)>"newtxt\%%i"
   )
   pause&exit
) else for /f "usebackq delims=" %%i in ("!str!") do echo !random!!random!!random!=%%i
复制代码

 

@echo off
::把文本中的行（段落）打乱顺序，进行随机排序。用了一个cmd代替临时文件，用了两个for编辑。变量延迟方面稍有困难。
call  :sorttxt     E:\Batch\test.txt
pause
exit
:SortTxt
for /f "tokens=1*" %%i in ('cmd /v:on /c "@echo off&for /f "usebackq tokens^=*" %%a in ("%1") do (echo ^!random^! %%a)"^|sort') do echo %%j
goto :eof
复制代码