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

fanfande

文件夹A里面的N个txt文件，想通过批处理功能实现每个文本都段落打乱功能！
打乱是随机的，每次运行的结果都不一样！
结果生成在另外一个新的文件夹B里面！

哪位高手帮帮忙
祝大家周末愉快！


段落的标志是

行与行之间有空行就是段落啊!具体应该这样定义段落:
行与行之间有有一行或一行以上的空行就算是段落!
比如我这个提问的问题要是算的上一个txt的话，那就是4段！
谢谢大家！周末回老家了一下！

batman

楼主所说的段落概念是什么，一段最多有多少个字符？

fanfande

2# batman


你好版主
就是普通的段落，没什么特殊的要求

比如一个文档里面有5段，那么让他们随机排列就是p55排列组合里面随机一个！

CrLf

段落短而且不含“!”号可以：

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

复制代码

CrLf

段落长，或者含有特殊字符!也都有办法处理，不过耗时大增。
而段落中若既含!，又含%，那就比较麻烦了...

batman

那如何判断为一段，有什么标志？

随风

我理解为，行开头空格的就是一段的开始。

CrLf

希望楼主在顶楼更新一下，贴出前后对比的样本，以作范例

cjiabing

1. 摘自《BatMPlayer 2011 Beta V3.28.5.15》，有修改。
   
2. ::随机排序。使用随机变量%random%和%time%、findstr和sort命令组合，可对文本内容进行随机排序。先使用findstr获得行号，在行号中加入随机数%random%，变成新序号，然后使用sort重新排序。
   
3. ::%random%在for中只发生了一次变化，即使用%time%也一样。使用call外部%random%的方式，虽然速度变慢了，但可以采集到不同的变量。%time:~-2,2%可以取得00至99的“伪随机数”，但存在00、01、09这样以0开头的数字。%random:~-2,2%可以取得很好的随机数，但需要确定随机数的位数（长度），比较麻烦。%random:~-2,2%要比%random:~0,2%随机变化大一些，后者在十分短的时间内取值可能存在重复不变，原因可能与%time%有关。
   
4. ::“sort /+n”表示按照行的第N个字符的正向顺序排序，也可以使用“sort /-n”实现颠倒顺序，可能对短行效果不明显。可以进行【set /a a=00+02】的计算，但【set /a a=07+07】的计算是失败的，【set /a a=09+02】也可能失败。
   
5. 
   
6. @echo off&setlocal enabledelayedexpansion
   
7. set bjt=test.txt
   
8. set fn=
   
9. cd.>"%temp%\_pl.tmp"&cd.>"%temp%\_pls.tmp"
   
10. for /f "tokens=1,* delims=:" %%a in ('findstr /n .* !bjt!') do (
    
11.     if not "%%a"=="" set lx=%%a
    
12.     call :dt
    
13.     echo;!fn!:%%b>>"%temp%\_pl.tmp"
    
14. )>nul 2>nul
    
15. for /f "tokens=1,* delims=:" %%a in ('sort "%temp%\_pl.tmp"') do echo;%%b>>"%temp%\_pls.tmp"
    
16. pause&exit
    
17. 
    
18. :dt
    
19. set /a fn=!lx!+%random:~-2,2%
    
20. goto :eof
    

复制代码

由于在for中使用了call，速度较差，暂时没想到更好的办法，权宜之计。

随风

用临时文件，一个段落一个文件，再随机合并这些文件。

batman

vbs的：

1. 
   
2. Dim opath, npath, fso, vbnum, vbstr, vbout
   
3. opath = "这里换成文本所在目录的路径"
   
4. Set fso = CreateObject("scripting.filesystemobject")
   
5. npath = fso.GetParentFolderName(opath) & "\newfolder"
   
6. If fso.FolderExists(npath) Then fso.DeleteFolder(npath)
   
7. fso.CreateFolder(npath)
   
8. For Each file In fso.GetFolder(opath).Files
   
9.   If LCase(fso.GetExtensionName(file)) = "txt" Then vbstr = fso.OpenTextFile(file, 1).ReadAll()
   
10.   For i = 0 To UBound(Split(vbstr, vbCrLf & vbCrLf))
    
11.     vbnum = vbnum & " " & i & " "
    
12.   Next
    
13.   sort UBound(Split(vbstr, vbCrLf & vbCrLf)), vbnum
    
14.   For Each num In Split(vbnum, " ")
    
15.     If num <> "" Then vbout = vbout & Split(vbstr, vbCrLf & vbCrLf)(num) & vbCrLf & vbCrLf
    
16.   Next
    
17.   fso.OpenTextFile(npath & "" & file.Name, 2, 1).Write vbout
    
18. Next
    
19. Set fso = Nothing
    
20. MsgBox "ok"
    
21. 
    
22. Function sort(num, vbnum)
    
23. Dim a, b
    
24. Randomize
    
25. For a = 0 To num
    
26.    b = Int(Rnd * num)
    
27.    vbnum = Replace(vbnum, " " & a & " ", "#")
    
28.    vbnum = Replace(vbnum, " " & b & " ", " " & a & " ")
    
29.    vbnum = Replace(vbnum, "#", " " & b & " ")
    
30. Next
    
31. End Function  

复制代码

ps:开始看错题意，还写了遍历函数并改写了原文本。。。

523066680

也用VBS

1. 
   
2. set fs=createobject("scripting.filesystemobject")
   
3. for each name in fs.getfolder("a").files
   
4.         if (lcase(right(name,3)) = "txt") then
   
5.                 call deal(name)
   
6.         end if
   
7. next
   
8. 
   
9. Function deal(fname)
   
10.         all=fs.opentextfile(fname).readall
    
11.         set rs=fs.createtextfile(fname & ".x")
    
12.         '剔除重复的空行,方法类似某个批处理帖子，将字符串中的任意个连续空格变成1个空格
    
13.         '就像 ABABAB，ABAB 剔除BA，始终会得到AB，VBS知识不全，不知道有没有绕弯路。
    
14.         special=VBCRLF&VBCRLF
    
15.         all=replace(all , special, special & "#VB#")
    
16.         all=replace(all , "#VB#" & special,"")
    
17.         all=replace(all , "#VB#","")
    
18.         list=split(all,special)
    
19.         '乱序输出
    
20.         randomize()
    
21.         newstr=""
    
22.         for i = ubound(list) to 0 step -1
    
23.                 randx=int(rnd()*(i+1))
    
24.                 newstr=newstr & list(randx) & vbcrlf & vbcrlf
    
25.                 list(randx)=list(i)
    
26.         next
    
27.         rs.write newstr
    
28.         msgbox newstr
    
29. End Function
    

复制代码

环境条件： 这个vbs和目录a放在一起。
会只处理里面的txt文本。
处理的时候会把结果写入  "原文件名.x" 里面， 依然放在目录a 。
拿楼主的帖子内容测试了

行与行之间有空行就是段落啊!具体应该这样定义段落:
行与行之间有有一行或一行以上的空行就算是段落!
比如我这个提问的问题要是算的上一个txt的话，那就是4段！
谢谢大家！周末回老家了一下！

文件夹A里面的N个txt文件，想通过批处理功能实现每个文本都段落打乱功能！
打乱是随机的，每次运行的结果都不一样！
结果生成在另外一个新的文件夹B里面！

哪位高手帮帮忙
祝大家周末愉快！


段落的标志是

用批处理做吗……  ？ 哈，我去工作了，好忙。

powerbat

1. 
   
2. '用你的文件替换下面的变量，如file = "a.txt"
   
3. file = WScript.ScriptFullName
   
4. 
   
5. Set fso = CreateObject("Scripting.FileSystemObject")
   
6. txt = fso.OpenTextFile(file).ReadAll()
   
7. MsgBox(txt)
   
8. 
   
9. arr = Split(txt, vbCrLf & vbCrLf)
   
10. arrlen = UBound(arr) + 1
    
11. 
    
12. Randomize
    
13. For i = 0 To (arrlen-1)*2 '随机交换若干段落的位置，循环次数设大一些交换得更彻底
    
14.     Rnd1 = Int(Rnd() * arrlen)
    
15.     Rnd2 = Int(Rnd() * arrlen)
    
16.     Temp = arr(Rnd1)
    
17.     arr(Rnd1) = arr(Rnd2)
    
18.     arr(Rnd2) = Temp
    
19. Next
    
20. 
    
21. str = Join(arr, vbCrLf & vbCrLf)
    
22. MsgBox(str)
    

复制代码

fanfande

谢谢大家!几个测试下来都成功的