中国DOS联盟

　　以前9527曾在群里发过吉普赛人祖传的神奇读心术的网址，它能测算出你的内心感应。当时为它的神准所震慑，只觉得自己内心所想全被一股神秘的力量所洞悉。后来转念一想，网络非神物，一定有什么技巧隐藏在里面，一时兴起，稍加推演，找到了原因所在——原来所谓的读心术，只不过如魔术一般，使用的是障眼法而已。

　　昨天在群里，又旧事重提，于是有了写个批处理版读心术的念头。12.3抽空写了个代码（版本一），张贴如下，各位可以抱着测试的态度先玩几次，玩过之后再想原理，想不通再看代码（版本二由版本一演变而来）：

　　版本一：
@echo off :: code by jm modified by youxi01 2006-12-3 CMD@XP title 读心术P处理版 mode con cols=80 lines=25 :begin cls setlocal enabledelayedexpansion set str=☆★○●◎◇◆□■△▲※→←↑↓〓＠〖〗【】『』≈≡∑∈⊙∵∴¤ for /l %%i in (0,1,99) do ( set /a random_=!random!%%32 call set var%%i=%%str:~!random_!,1%% ) echo. echo 99 %var99% 79 %var79% 59 %var59% 39 %var39% 19 %var19% ^| ① 从10～99之间任意选择一个数 echo 98 %var98% 78 %var78% 58 %var58% 38 %var38% 18 %var81% ^| echo 97 %var97% 77 %var77% 57 %var57% 37 %var37% 17 %var17% ^| ② 把这个数的十位与个位相加 echo 96 %var96% 76 %var76% 56 %var56% 36 %var81% 16 %var16% ^| echo 95 %var95% 75 %var75% 55 %var55% 35 %var35% 15 %var15% ^| ③ 再把任意选择的数减去这个和 echo 94 %var94% 74 %var74% 54 %var81% 34 %var34% 14 %var14% ^| echo 93 %var93% 73 %var73% 53 %var53% 33 %var33% 13 %var13% ^| 　　例如：你选的数是23 echo 92 %var92% 72 %var81% 52 %var52% 32 %var32% 12 %var12% ^| echo 91 %var91% 71 %var71% 51 %var51% 31 %var31% 11 %var11% ^| 　　然后2+3=5，然后23-5=18 echo 90 %var90% 70 %var70% 50 %var50% 30 %var30% 10 %var10% ^| echo 89 %var89% 69 %var69% 49 %var49% 29 %var29% 9 %var81% ^| ④ 在图表中找出与差值对应的图形 echo 88 %var88% 68 %var68% 48 %var48% 28 %var28% 8 %var8% ^| echo 87 %var87% 67 %var67% 47 %var47% 27 %var81% 7 %var7% ^| 　　并把这个图形牢记心中 echo 86 %var86% 66 %var66% 46 %var46% 26 %var26% 6 %var6% ^| echo 85 %var85% 65 %var65% 45 %var81% 25 %var25% 5 %var5% ^| ⑤ 然后进入下一步 echo 84 %var84% 64 %var64% 44 %var44% 24 %var24% 4 %var4% ^| echo 83 %var83% 63 %var81% 43 %var43% 23 %var23% 3 %var3% ^| ⑥ 你会发现：显示出来的图形 echo 82 %var82% 62 %var62% 42 %var42% 22 %var22% 2 %var2% ^| echo 81 %var81% 61 %var61% 41 %var41% 21 %var21% 1 %var1% ^| 　　就是你刚刚心里记下的那个图形 echo 80 %var80% 60 %var60% 40 %var40% 20 %var20% 0 %var0% ^| echo ^| echo _______________________________________________________________________________ echo 按任意键进入下一步... pause>nul cls for /l %%i in (1,1,9) do echo. echo 通过心灵感应，发现这个图形正是你所想的：%var81% for /l %%i in (1,1,9) do echo. echo. echo. echo 按任意键再来一次... pause>nul goto begin pause>nul goto begin

　　版本二：
@echo off title 读心术P处理版 :begin mode con cols=90 lines=30 cls echo. echo 　　从10～99之间任意选择一个数，把这个数的十位与个位相加，再把任意选择的数减去这个和， echo 例如：你选的数是23，然后2+3=5，然后23-5=18，在图表中找出与差值对应的符号，并把这个符号 echo 牢记心中，然后进入下一步，你会发现：显示出来的符号就是你刚刚心里记下的那个符号。 echo. echo _________________________________________________________________________________________ echo. set str=☆★○●◎◇◆□■△▲※→←↑↓〓＠〖〗【】『』≈≡∑∈⊙∵∴¤ set begin_num=9 set end_num=1 set num=0 setlocal enabledelayedexpansion :loop for /l %%i in (9,-1,0) do ( for /l %%j in (%begin_num%,-2,%end_num%) do ( set /a num+=1 set /a random_=!random!%%32 set /a ordinal=1%%j%%i-100 if !ordinal! lss 10 set ordinal= !ordinal! call set var!ordinal!=%%str:~!random_!,1%% set /a ordinal_mod=!ordinal!%%9 if !num! gtr 1 if !num! lss 100 if !ordinal_mod! equ 0 set var!ordinal!=!var18! set /a line_mod=!num!%%5 call set var=!var! !ordinal! %%var!ordinal!%% if !line_mod! equ 0 echo !var!&set var= ) ) if %num% equ 100 goto end if %num% equ 50 ( set begin_num=8 set end_num=0 goto loop ) :end echo _________________________________________________________________________________________ echo 按任意键进入下一步... pause>nul cls mode con cols=25 lines=10 echo. echo 你想要的符号是： echo ╭────╮ echo │ │ echo │ %var18% │ echo │ │ echo ╰────╯ echo. echo 按任意键再来一次... pause>nul goto begin

　　点这里可以在网上玩flash版的神奇读心术

[ Last edited by namejm on 2006-12-21 at 05:59 PM ]

不仅代码好玩，而且这界面做得真漂亮啊！！！

　　界面排版稍微具备一点美观性，但是距离漂亮还有一段距离，redtek 兄谬赞了。本来还想加点动态色彩的，但是没想好做成什么样子的，暂时搁置起来了。

TO namejm斑竹：
一事不明，为什么要将获得var%%i的值写成一个“函数”，然后call呢？
for /l %%i in (0,1,99) do (
set num=%%i
call :get_num
)

call的使用，不是会使运行效率大大打折吗？
将for语句改一改，测试代码：
for /l %%i in (0,1,99) do (
set /a random_=%random%%%32
set var%num%=!str:~%random_%,1!
)
是不是要快很多啊？

Re youxi01：

　　像你那样修改是要出错的，因为在 for 语句内部，如果本次循环中，后面的语句要调用前面语句产生的变量，一般是要启用变量延迟的。如果修改成你那样的语句，则 %random_% 的值始终为空，并非上一句所产生的值。如果用感叹号对的形式，就会写成 set var%num%=!str:~!random_!,1! 的格式，程序无法正确识别引用范围，同样会出错。

　　基于上面的原因，我就 call 了段“函数”来绕过这个问题，暂时还没考虑到效率的问题。如果你有更好的解决办法，不妨发出来看看。

call会让效率大大打折吗？不太清楚.
谁以后可以做做试验!

既然用了环境变量延迟倒是可以放里面
for /l %%i in (0,1,99) do ( set /a random_=!random!%%32 call set var%%i=%%str:~!random_!,1%% )

打错了....

[ Last edited by tao0610 on 2006-12-4 at 12:15 PM ]

不好意思，我也看错了，不过以下代码还真的可能快那么一点）：（代码同上楼）
@echo off title 读心术P处理版 mode con cols=80 lines=25 :begin cls setlocal enabledelayedexpansion set str=☆★○●◎◇◆□■△▲※→←↑↓〓＠〖〗【】『』≈≡∑∈⊙∵∴¤ for /l %%i in (0,1,99) do ( set /a random_=!random!%%32 call set var%%i=%%str:~!random_!,1%% ) echo. echo 99 %var99% 79 %var79% 59 %var59% 39 %var39% 19 %var19% ^| ① 从10～99之间任意选择一个数 echo 98 %var98% 78 %var78% 58 %var58% 38 %var38% 18 %var81% ^| echo 97 %var97% 77 %var77% 57 %var57% 37 %var37% 17 %var17% ^| ② 把这个数的十位与个位相加 echo 96 %var96% 76 %var76% 56 %var56% 36 %var81% 16 %var16% ^| echo 95 %var95% 75 %var75% 55 %var55% 35 %var35% 15 %var15% ^| ③ 再把任意选择的数减去这个和 echo 94 %var94% 74 %var74% 54 %var81% 34 %var34% 14 %var14% ^| echo 93 %var93% 73 %var73% 53 %var53% 33 %var33% 13 %var13% ^| 　　例如：你选的数是23 echo 92 %var92% 72 %var81% 52 %var52% 32 %var32% 12 %var12% ^| echo 91 %var91% 71 %var71% 51 %var51% 31 %var31% 11 %var11% ^| 　　然后2+3=5，然后23-5=18 echo 90 %var90% 70 %var70% 50 %var50% 30 %var30% 10 %var10% ^| echo 89 %var89% 69 %var69% 49 %var49% 29 %var29% 9 %var81% ^| ④ 在图表中找出与差值对应的图形 echo 88 %var88% 68 %var68% 48 %var48% 28 %var28% 8 %var8% ^| echo 87 %var87% 67 %var67% 47 %var47% 27 %var81% 7 %var7% ^| 　　并把这个图形牢记心中 echo 86 %var86% 66 %var66% 46 %var46% 26 %var26% 6 %var6% ^| echo 85 %var85% 65 %var65% 45 %var81% 25 %var25% 5 %var5% ^| ⑤ 然后进入下一步 echo 84 %var84% 64 %var64% 44 %var44% 24 %var24% 4 %var4% ^| echo 83 %var83% 63 %var81% 43 %var43% 23 %var23% 3 %var3% ^| ⑥ 你会发现：显示出来的图形 echo 82 %var82% 62 %var62% 42 %var42% 22 %var22% 2 %var2% ^| echo 81 %var81% 61 %var61% 41 %var41% 21 %var21% 1 %var1% ^| 　　就是你刚刚心里记下的那个图形 echo 80 %var80% 60 %var60% 40 %var40% 20 %var20% 0 %var0% ^| echo ^| echo _______________________________________________________________________________ echo 按任意键进入下一步... pause>nul cls for /l %%i in (1,1,9) do echo. echo 通过心灵感应，发现这个图形正是你所想的：%var81% for /l %%i in (1,1,9) do echo. echo. echo. echo 按任意键再来一次... pause>nul goto begin pause>nul goto begin

NB

看不懂楼主和youxi01兄的
set /a random_=!random!%%32
中的"%%32"是什么意思,不知能否教一下小弟....学飞中~~~~

我还是没有发现那个是怎么算出来的

　　呵呵，我们一起来做个算术题：假设一个两位数，个位和十位分别为x和y，那么，按照读心术的规则，就是 x+10y-(x+y)，结果为9x。在那张随机表上，只要确保9的倍数后面跟的图形是同一个东西就行了。

不得不顶.实在太妙了.

真是好东西，高手！

领会一下