[新手练习]批处理变量延迟实验出题

canyuexiaolang

有一天在Q群上问了BATMAN个问题，怎么形成打字效果
代码如下：

set "str=怎么用BAT产生打字效果."
:lp
set /p=%str:~,1%<nul
for /l %%a in (1,1,150) do echo>nul
if defined str set "str=%str:~1%"&goto lp
pause>nul 
复制代码

结果发现不能打出 空格 特殊字符 及数字
所以我给新手用这个例子出个题
把数字替换成如下

1=①
2=②
3=③
4=④
5=⑤
6=⑥
7=⑦
8=⑧
9=⑨
0=〇
复制代码

然后用打字效果打出:

84fhbsef4b98fgnb1eb218es4n9dfbdnsd8ga4s874hg98e4hb4w4H98BE49GW98H48V48SD4G984HNB8949S8JN4R8H4H18
复制代码

(我刚刚发现在P中可以粘贴)
打字效果代码如上
别说不会
      () ()       () ()        () ()
（— —) （— —）（— —)

[ 本帖最后由 canyuexiaolang 于 2009-8-27 12:26 编辑 ]

canyuexiaolang

伤心了
怎么没人回帖
也不难啊
。。
还有
感谢BATMAN给的这段代码哈~

[ 本帖最后由 canyuexiaolang 于 2009-8-27 12:24 编辑 ]

canyuexiaolang

算了，提示一下下吧

@echo off&setlocal EnableDelayedExpansion
set /p a=数字或英文字母：
echo.
echo.
echo.
echo.
echo.
for %%i in (%a%) do (   
set n=%%i
set n=!n:1=①!
set n=!n:2=②!
set n=!n:3=③!
set n=!n:4=④!
set n=!n:5=⑤!
set n=!n:6=⑥!
set n=!n:7=⑦!
set n=!n:8=⑧!
set n=!n:9=⑨!
set n=!n:0=〇!
)
set "str=%n%"
:lp
set /p=%str:~,1%<nul
for /l %%a in (1,1,250) do echo>nul
if defined str set "str=%str:~1%"&goto lp
pause>nul 
复制代码

[ 本帖最后由 canyuexiaolang 于 2009-8-28 07:30 编辑 ]