[文本处理] [已解决]批处理怎样将一行汉字随机打乱排序？

1>1/* :
@echo off
cscript -nologo -e:jscript %0 <a.txt >b.txt
pause & exit /b
*/

var text = WScript.StdIn.ReadAll()
var ar = text.split('').sort(function(){return Math.random()-0.5})
WScript.Echo(ar.join(''))
复制代码

::丽的转身作文字上善若水利万物而不争李白的抽刀断水水更流证明了水的至韧水滴石穿再顽强的青石也经不起水滴日复一日的侵蚀水是至刚至柔之物但是水流经高山峡谷会千回万转在迂回之间前行水在一次次的转身中走的更远转身是一种生活方式给心灵找个栖息地陶渊明是那个采菊东篱下悠然见南山的隐士他不愿为五斗米折腰毅然放弃仕途转身归隐田园才有了流传至今的桃花源他给我们展现了一份清高傲骨盛唐李太白意气风发有远大的政治抱负当他大呼仰天大笑出门去我辈岂是蓬蒿人时政治上遭到了不如意李白仍能举杯畅饮转身任清风洗涤心胸随月辉起舞弄影为世人留下以为衣袂飘扬的诗仙形象转身是一种人格伟大不屈的体现在中国这头东方雄狮沉睡之时人民海聚家鲁迅发现只有唤醒人民的思想才能拯救国家他坚决弃医从文拿起笔杆发誓要用笔唤醒中国魂他为了振兴民族放弃了个人理想在那个时代是何等的伟大众里寻他千百度蓦然回首那人却在灯火阑珊处多么美丽的转身学会转身等待你的是一片海阔天空熊熊烈火之中消防员背起伤员一次次冲出又一次次转身冲入火海汶川地震战士们一次次的转生救出一个个奄奄一息的生命面对歹徒高三学生临危不惧与歹徒作斗争他忘记了重要的高考抓住了歹徒身负重伤正是社会上草呢
@echo off
setlocal enabledelayedexpansion
color a
set str=
set /p str=<"%~f0"
set "str=%str:~2%"
(for /l %%a in (0 1 499) do set /a r=!random!%%500 &&echo,!r!_%%a#!str:~%%a,1!)>$
set s=
for /f "tokens=1* delims=#" %%b in ('sort $') do set s=!s!%%c
::要输出到文本，下面一句改为>>"乱序.txt" echo;!s!
echo;!s!
del $
echo.
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
    set "str=%%i"
    for /l %%a in (0 1 500) do (
        set/a n=!random!%%500
        call set/p=%%str:~!n!,1%%<nul
    )
)    
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
    set "str=%%i"
    for /l %%a in (0 1 500) do (
        set/a n=!random!%%500 +%%a
        for %%b in (!n!) do set/p=!str:~%%b,1!<nul
        set str=!str:~%%a!!str:~,%%a!
    )
)    
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
    set "str=%%i"
    for /l %%a in (0 1 499) do (
        set/a n=!random!%%(500-%%a^)
        for %%b in (!n!) do set/p=!str:~%%b,1!<nul&set "u=!str:~%%b,1!"
        for %%c in (!u!) do set "str=!str:%%c=!"
    )
)    
pause
复制代码

@echo off&setlocal enabledelayedexpansion
set "s=输入500字"
for /l %%a in (1,1,500) do set _!random!_%%a=!s:~,1!&set s=!s:~1!
(for /f "tokens=2 delims==" %%a in ('set _') do <nul set/p=%%a)>a.txt
pause
复制代码

@echo off&setlocal enabledelayedexpansion
(for /f "delims=" %%i in (a.txt) do (
    set "str=%%i"
    for /l %%a in (0 1 499) do (
        set/a n=!random!%%(500-%%a^)
        for %%b in (!n!) do set/p=!str:~%%b,1!<nul&set "u=!str:~%%b,1!"
        for %%c in (!u!) do set "str=!str:%%c=!"
    )
)) >b.txt    
pause
复制代码