[文本处理] [已解决]批处理怎样随机打乱文本段落？

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in (a.txt) do set \!random!=%%a
for /f "tokens=1* delims==" %%a in ('set\') do echo %%b
pause
复制代码

 摘自《BatMPlayer 2011 Beta V3.28.5.15》，有修改。
::随机排序。使用随机变量%random%和%time%、findstr和sort命令组合，可对文本内容进行随机排序。先使用findstr获得行号，在行号中加入随机数%random%，变成新序号，然后使用sort重新排序。
::%random%在for中只发生了一次变化，即使用%time%也一样。使用call外部%random%的方式，虽然速度变慢了，但可以采集到不同的变量。%time:~-2,2%可以取得00至99的“伪随机数”，但存在00、01、09这样以0开头的数字。%random:~-2,2%可以取得很好的随机数，但需要确定随机数的位数（长度），比较麻烦。%random:~-2,2%要比%random:~0,2%随机变化大一些，后者在十分短的时间内取值可能存在重复不变，原因可能与%time%有关。
::“sort /+n”表示按照行的第N个字符的正向顺序排序，也可以使用“sort /-n”实现颠倒顺序，可能对短行效果不明显。可以进行【set /a a=00+02】的计算，但【set /a a=07+07】的计算是失败的，【set /a a=09+02】也可能失败。

@echo off&setlocal enabledelayedexpansion
set bjt=test.txt
set fn=
cd.>"%temp%\_pl.tmp"&cd.>"%temp%\_pls.tmp"
for /f "tokens=1,* delims=:" %%a in ('findstr /n .* !bjt!') do (
    if not "%%a"=="" set lx=%%a
    call :dt
    echo;!fn!:%%b>>"%temp%\_pl.tmp"
)>nul 2>nul
for /f "tokens=1,* delims=:" %%a in ('sort "%temp%\_pl.tmp"') do echo;%%b>>"%temp%\_pls.tmp"
pause&exit

:dt
set /a fn=!lx!+%random:~-2,2%
goto :eof
复制代码

Dim opath, npath, fso, vbnum, vbstr, vbout
opath = "这里换成文本所在目录的路径"
Set fso = CreateObject("scripting.filesystemobject")
npath = fso.GetParentFolderName(opath) & "\newfolder"
If fso.FolderExists(npath) Then fso.DeleteFolder(npath)
fso.CreateFolder(npath)
For Each file In fso.GetFolder(opath).Files
  If LCase(fso.GetExtensionName(file)) = "txt" Then vbstr = fso.OpenTextFile(file, 1).ReadAll()
  For i = 0 To UBound(Split(vbstr, vbCrLf & vbCrLf))
    vbnum = vbnum & " " & i & " "
  Next
  sort UBound(Split(vbstr, vbCrLf & vbCrLf)), vbnum
  For Each num In Split(vbnum, " ")
    If num <> "" Then vbout = vbout & Split(vbstr, vbCrLf & vbCrLf)(num) & vbCrLf & vbCrLf
  Next
  fso.OpenTextFile(npath & "\" & file.Name, 2, 1).Write vbout
Next
Set fso = Nothing
MsgBox "ok"

Function sort(num, vbnum)
Dim a, b
Randomize
For a = 0 To num
   b = Int(Rnd * num)
   vbnum = Replace(vbnum, " " & a & " ", "#")
   vbnum = Replace(vbnum, " " & b & " ", " " & a & " ")
   vbnum = Replace(vbnum, "#", " " & b & " ") 
Next
End Function  
复制代码

set fs=createobject("scripting.filesystemobject")
for each name in fs.getfolder("a").files
	if (lcase(right(name,3)) = "txt") then
		call deal(name)
	end if
next

Function deal(fname)
	all=fs.opentextfile(fname).readall
	set rs=fs.createtextfile(fname & ".x")
	'剔除重复的空行,方法类似某个批处理帖子，将字符串中的任意个连续空格变成1个空格
        '就像 ABABAB，ABAB 剔除BA，始终会得到AB，VBS知识不全，不知道有没有绕弯路。
	special=VBCRLF&VBCRLF
	all=replace(all , special, special & "#VB#")
	all=replace(all , "#VB#" & special,"")
	all=replace(all , "#VB#","")
	list=split(all,special)
	'乱序输出
	randomize()
	newstr=""
	for i = ubound(list) to 0 step -1
		randx=int(rnd()*(i+1))
		newstr=newstr & list(randx) & vbcrlf & vbcrlf
		list(randx)=list(i)
	next
	rs.write newstr
	msgbox newstr
End Function
复制代码

'用你的文件替换下面的变量，如file = "a.txt"
file = WScript.ScriptFullName

Set fso = CreateObject("Scripting.FileSystemObject")
txt = fso.OpenTextFile(file).ReadAll()
MsgBox(txt)

arr = Split(txt, vbCrLf & vbCrLf)
arrlen = UBound(arr) + 1

Randomize
For i = 0 To (arrlen-1)*2 '随机交换若干段落的位置，循环次数设大一些交换得更彻底
    Rnd1 = Int(Rnd() * arrlen)
    Rnd2 = Int(Rnd() * arrlen)
    Temp = arr(Rnd1)
    arr(Rnd1) = arr(Rnd2)
    arr(Rnd2) = Temp
Next

str = Join(arr, vbCrLf & vbCrLf)
MsgBox(str)
复制代码