中国DOS联盟

看来我的表达能力是大有问题。
再来一次
要求生成一个文本文件，内容是a和b及空格，但是a和b的总数是60个。
第一行不能有空格，且必须是ababab这样交错的，不能是bba或aab这样的
举例：
假设得到的第一个随机字母是a，那么就把a写入b.txt
再获取第二个随机字母，假设又是a，则写入到前面得到的a的下面。如果得到的是b。则写入到b.txt的第一行，就是和第一个a并排。
继续获取随机字母，再判断它和上一个字母是否相同，如果相同则写入到上一个字母的正下方，注意：“是上一个字母”，否则就写入到第一行，
那么这样得到的最终结果，就会是以下格式的文本。

ababababa

a ab b ba

  ab b  a

   b    a

我说下我的思路~

abflag="sloreissloreleeandsloreleeisslorehahailovedoscndosgood"

随机生成一个数表示行~比如12
然后生成
abababababab做第一行ab=12
后面开始:
i=i+1
if abflag的i%12位是" " 看是奇数还是偶数直接输出a或者b，ab+=1
i%2……
奇数就a或" "……随机下
if 是" "就abflag的i位换" " else 那就是a了呗,哦对了~ab+=1
偶数就b或" "……再随机
if 是" "就abflag的i位换" " else 那就是b了呗,哦对了~ab+=1
i%12自己处理是不是要换行了呀~
恩,ab=60啦~88


自己看这样的伪代码能看懂不嗬~不懂就当标记了下……
对P处理文字不感冒没有兴趣=。=

[ Last edited by slore on 2008-5-7 at 11:49 PM ]

顺便把歪掉脑袋～～的思路题下……


随机要a还是b开始？x=a?b
随机个行数比如8

k=60-8
循环开始
随机生成小于等于k的数i(k=k-i)
连续生成i个x

随机生成小于等于k的数i(k=k-i)
连续生成i个x反(x是a那么x反就是b)

如果循环次数到第7次了……剩下的k个全输出……
如果k=0了结束……

这样是会生成一个
8行内的52字符……

假使a开始……
第一次随机是8

循环中第一次生成了个9
输出
aaaaaaaaa
然后循环生成5
bbbbb
在循环生成0

再循环生成4
bbbb
再循环生成8
aaaaaaaa
循环生成0

循环生成12
aaaaaaaaaaaa
7次循环了还没有够60哇？
剩下14个给你咯
bbbbbbbbbbbbbb
结果：

aaaaaaaaa

bbbbb

aaaaaaaa



bbbb

aaaaaaaa



aaaaaaaaaaaa

bbbbbbbbbbbbbb

行列转换的代码论坛有吧？
转制后输入到b.txt
然后输出:
babababa
type b.txt

这个似乎麻烦了？哪个快就不知道了……
如果不转的话，生成的代码这个是最容易的……

我来一个,这个代码会由于a和b的数量不足60个而显示ECHO 处于关闭状态(只能叉掉才能停止,汗...,希望高手改进),因水平有限第一行的字符数量都是双数(唉,再次汗...),当然也可以为单,只因太牵强,故不为之.没有所谓的算法,只有一点点想法,即把下一行的对应位置的字符和上一行的进行比较,如果不同,则用空格代替,期望高手能给出更高效简洁的代码(最好能把算法讲一讲以便新手及吾等菜鸟学习).

@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

上帝！总算有一个明白题意的了，代码确实存在bug，而且b和a好像不太随机，要求的是每一个a或b都是随机得到的。。
也不错了，加分鼓励。。

而且b和a好像不太随机

set "code=ab"
set f=%random%%%2
call set g=%%code:~%f%,1%%
这样不算随机吗

也是哦，应该是随机的，只是开始看你的结果怎么有这么多字母，应该总数60个才对啊。

强烈要求26933062老大将代码贴出来

@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

[ Last edited by slore on 2008-5-8 at 05:19 PM ]

先删掉,汗

[ Last edited by moniuming on 2008-5-8 at 06:27 PM ]

……
你的代码貌似不是固定输出格式？
而且md，rd=。=造文件夹是……

39楼格式是对了，但初看你的列数都是可以自定义的啊？那a和b岂不是就不是随机的了？若每一个a和b都是随机的，那么列数是不可能预知的。

你的代码貌似不是固定输出格式？
而且md，rd=。=造文件夹是……

因为我无法控制输出的字符个数,当超出范围会显示"ECHO 处于关闭状态",所以只能造文件夹来确定变量是否为空格(即如果可以造文件夹,则继续输出,否则退出)

@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

[ Last edited by moniuming on 2008-5-8 at 08:08 PM ]

汗啊！
我只是觉得自己这段代码平均要把loop标签运行30次左右，效率不太高，想寻求更高效点的代码，没想到引发40几楼的回帖，居然大部分是搞不清题意的。表达能力实在是差到极点，相信此帖已经没法引起其他高手的兴趣了。唉。。。
还是用代码来说明问题吧，为了显示美观我把a和b替换成了两个其它符号，看起来更清楚。
代码如下：

@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

Originally posted by 26933062 at 2008-5-8 19:30:
39楼格式是对了，但初看你的列数都是可以自定义的啊？那a和b岂不是就不是随机的了？若每一个a和b都是随机的，那么列数是不可能预知的。

那就仔细看...


自定义也没有啥稀奇的……因为随机结果不一定很理想……
如果随出个1！
那就是60个a一列了……

谁叫这个问题你叙述的也怪怪的……

第一行不能有空格，且必须是ababab这样交错的

每一个a和b都是随机的……

你这样随机了？
你的第一行就是最大列数……
我的是这个样子的……

如果不修改默认slore的话~列数和最大值都采用随机设置……

除了第一行剩下的都是random……的……