中国DOS联盟

ababababa
a ab b ba
  ab b  a
   b    a

aaaaaaaaa
bbbbb
aaaaaaaa

bbbb
aaaaaaaa

aaaaaaaaaaaa
bbbbbbbbbbbbbb

@echo off
setlocal enabledelayedexpansion
set "code=ab"
set /a c=%random%%%2,d=%random%%%60+1,e=d*2
for /l %%i in (1,1,%d%) do (
  if %c%==0 (
    set var1=!var1!ab&set /a numa+=1,numb+=1
    ) else (
    set var1=!var1!ba&set /a numa+=1,numb+=1
))
:again
echo %var1%
set "var2="
set n=0
:again_
set /a f=%random%%%2
call set g=%%code:~%f%,1%%
call set h=%%var1:~%n%,1%%
if "%g%"=="%h%" (
  set "var2=%var2%!g!"&set /a num!g!+=1,n+=1
  ) else (
  set "var2=%var2% "&set /a n+=1
)
if %numa% gtr 60 (if %numb% gtr 60 echo %var2%&pause&exit /b)
if %n% lss %e% goto :again_
echo %var2%
set n=0
set "var1="
:more
set /a i=%random%%%2
call set j=%%code:~%i%,1%%
call set k=%%var2:~%n%,1%%
if "%j%"=="%k%" (
  set "var1=%var1%!j!"&set /a num!j!+=1,n+=1
  ) else (
  set "var1=%var1% "&set /a n+=1
)
if %numa% gtr 60 (if %numb% gtr 60 echo %var2%&pause&exit /b)
if %n% lss %e% goto :more
goto :again

@echo off&setlocal enabledelayedexpansion
Title 本代码演示了个无聊的过程…
color 1f
Set Max=60
Set FixTime=0
::这个为自定义开关~你想使用自己设定的列数修改之……
Set firstline=slore
Set abFlag=sloreissloreleeandsloreleeisslorehahailovedoscndosgoodblue
::自然可以用1~60,不过第一行太多不好看哈哈,不喜欢的自己改~
if %firstline%==slore (
Set /a firstline=%random%%%5+20
Set /a Max=%random%%%20+40
Set Msg=Slore 设置输出!firstline!列 共!Max!个字符
) else (
Set Msg=%username% 设置输出%firstline%列 共%Max%个字符)
echo o(∩_∩)o-----------------------------------轩----
echo          %Msg%
echo ----轩-----------------------------------o(∩_∩)o
echo.
Set /a n=%firstline%/2
for /l %%i in (1,1,%n%) do Call,Set fl=!fl!ab
Set /a n=%firstline%%%2
if %n% EQU 1 Set fl=%fl%a
echo %fl%
Set ab=%firstline%
Set /a endline=%ab%-1
Set i=0
:Loop
Set /a abPos=%i%%%%firstline%
Set /a rad1=%abPos%%%2
Set /a rad2=%random%%%2
Set /a i+=1
Set Posletter=!abFlag:~%abPos%,1!

if %FixTime% EQU %endline% Set rad2=1
if %rad1% EQU 0 (
    if "%Posletter%"==" " (Set nl=%nl% ) else (
    if %rad2% EQU 0 (Set nl=%nl% &Call :Fix %abPos%) else Set nl=%nl%a&Set /a ab+=1)
) else (
    if "%Posletter%"==" " (Set nl=%nl% ) else (
    if %rad2% EQU 0 (Set nl=%nl% &Call :Fix %abPos%) else Set nl=%nl%b&Set /a ab+=1)
)
if %abPos% EQU %endline% echo %nl%
if %abPos% EQU %endline% Set nl=
if %ab% EQU %Max% goto :ExitLoop
goto :Loop

:ExitLoop
if Not "%nl%"=="" echo %nl%
echo.
::echo ab的个数为:%ab%
echo 无聊的代码演示结束!
pause>nul

:Fix
if %FixTime% EQU %endline% goto :EndFix
Set /a e=%1+1
Set abFlag=!abFlag:~0,%1! !abFlag:~%e%!
Set /a FixTime+=1
:EndFix

@echo off
setlocal enabledelayedexpansion
set "code=ab"
set /a c=%random%%%2,d=%random%%%20+20,e=d*2
for /l %%i in (1,1,%d%) do (
  if %c%==0 (
    set var1=!var1!ab
    ) else (
    set var1=!var1!ba
))
:again
md "%var1%" >nul 2>nul
if errorlevel 1 pause&exit /b
rd "%var1%" >nul 2>nul
echo %var1%
set "var2="
set n=0
:again_
set /a f=%random%%%2
call set g=%%code:~%f%,1%%
call set h=%%var1:~%n%,1%%
if "%g%"=="%h%" (
  set "var2=%var2%!g!"&set /a n+=1
  ) else (
  set "var2=%var2% "&set /a n+=1
)
if %n% lss %e% goto :again_
md "%var2%" >nul 2>nul
if errorlevel 1 pause&exit /b
rd "%var2%" >nul 2>nul
echo %var2%
set n=0
set "var1="
:more
set /a i=%random%%%2
call set j=%%code:~%i%,1%%
call set k=%%var2:~%n%,1%%
if "%j%"=="%k%" (
  set "var1=%var1%!j!"&set /a n+=1
  ) else (
  set "var1=%var1% "&set /a n+=1
)
if %n% lss %e% goto :more
goto :again

@echo off&color 1f
set _0=○&set "_1=●"&set /a ko=60
setlocal enabledelayedexpansion
for /l %%l in (1 1 %ko%) do (
   set /a w=!random!%%2
   call set "ss=%%_!w!%%"
   if not "!ss!"=="!flag!" (
      set "flag=!ss!"
      set /a h=1
      set "num1=!num1!!ss!"
      call :loop     
      ) else (
        set /a h+=1
        call set "num!h!=%%num!h!:~0,-1%%!ss!"
))
for /l %%l in (1 1 %ko%) do if not "!num%%l:　=!"=="" echo !num%%l!
echo.&pause&exit
:loop
   for /l %%l in (2 1 !ko!) do set "num%%l=!num%%l!　"
goto :eof