terse

已知行数和字符数 是否可以再简化点 个人感觉 乱序排列的SET效率并不很理想
两个边字的问题 可以放入的吧 因乱序后还是可以对应的哦

terse

已知的  我直接40个  ECHO

terse

前面回复直接 40 个ECHO 其实和17楼900612兄一样思路

@echo off&setlocal enabledelayedexpansion
if "%1"=="" (
   set N=0
   for /f "skip=15 useback" %%i in ("%~0") do set str!n!=%%i&set/a n+=1
   for /f "tokens=2-4" %%a in ('%0 $^|sort') do (
       set /a "N=L/8,M=L%%8,X=%%b-N,Y=%%c-M,L+=1"
       for %%j in (!N!) do (
           set _%%j=!_%%j!	!X!:!Y!
           if !M! equ 7 (echo !#%%j!%%a) else set #%%j=!#%%j!%%a
       )
   )
       for /l %%i in (0 1 4) do echo!_%%i!
       pause&exit
) else for /l %%i in (0 1 4) do for /l %%j in (0 1 7) do echo !random!!random! !str%%i:~%%j,1! %%i %%j
  exit
我们去北大踢球吧
快上那边等着信号
你不能离开大门口
生与死就在一瞬间
青春已从身边溜走
复制代码

terse

变量太多影响效率  练手了

@echo off&setlocal enabledelayedexpansion
for /f %%i in ('"find /c /v "" < %0"') do set/a n=%%i-5
for /f "skip=%n% useback" %%i in ("%~0") do set str=!str!%%i
for /l %%i in (0 1 39) do set i=10%%i&set var=!var!#!i:~-2!&set #!i:~-2!=%%i
for /l %%i in (40 -1 1) do (
    set /a "R=!random!%%%%i*3,N=(40-%%i)/8,M=(40-%%i)%%8"
    for /f "tokens=1-3" %%a in ("!R! !N! !M!") do (
        for %%j in ("!var:~%%a,3!") do for %%k in (!%%~j!) do (
            set "var=!var:%%~j=!"
            set /a "AN=%%k/8-%%b,AM=%%k%%8-%%c"
            if %%c equ 7 (echo !#b!!str:~%%k,1!&set #b=) else set #b=!#b!!str:~%%k,1!
            set _%%b=!_%%b!	!AN!:!AM!
        )
    )
)
for /l %%i in (0 1 4) do echo!_%%i!
pause&exit
我们去北大踢球吧
快上那边等着信号
你不能离开大门口
生与死就在一瞬间
青春已从身边溜走
复制代码

terse

若给定文本中不存在重字 还是一个FOR里处理就好了 过多CALL 效率有问题
当然 作为另一思路则别论

terse

29# zm900612
zm900612兄简化后的代码 可以再减少个FOR  两个并一个既可