批处理之家 - Powered by Discuz! Board

标题: [新手练习]批处理变量延迟实验出题 [打印本页]

作者: canyuexiaolang 时间: 2009-8-27 11:41 标题: [新手练习]批处理变量延迟实验出题

有一天在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 时间: 2009-8-27 12:05

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

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

作者: canyuexiaolang 时间: 2009-8-27 12:22

算了，提示一下下吧

@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 编辑 ]

作者: wxcute 时间: 2009-9-16 16:42

不知道示例的效果是怎么样的，给个例子让新手看看罢！

作者: Taurus 时间: 2009-11-15 14:54

我没有"⑦"这种的字元,以"七"等代替吧

@echo off&setlocal enabledelayedexpansion&set nub=0
set /p l=string =
for %%i in ( 零一二三四五六七八九 ) do call set l=%%l:!nub!=%%i%%&set/a nub+=1
cls&echo !l!
pause

及L3的這樣就可以吧...

@echo off
set /p n=数字或英文字母：
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=零%
:lp
ping /?>nul
if defined n set /p=%n:~,1%<nul&set "n=%n:~1%"&goto lp
pause>nul

[ 本帖最后由 Taurus 于 2009-11-15 16:04 编辑 ]

作者: x576380361 时间: 2009-12-5 23:17

@echo off
set str=怎 么 用 B A T 产 生 打 字 效 果
for %%i in (%str%) do (
set /p=%%i<nul
ping /n 1 127.0.0.1>nul
)
pause>nul
复制代码

这个也能实现打字效果，楼主能说说有什么缺点?我也学着新知识哦

作者: battab 时间: 2014-2-22 13:20

回复 6# x576380361

缺点很明显，你要输出的字符串中有好多空格，如果要你输出一篇文章，单加空格的活都能累死喽！

作者: 尘丶 时间: 2015-8-9 16:57

@echo off&setlocal EnableDelayedExpansion
set str=84fhbsef4b98fgnb1eb218es4n9dfbdnsd8ga4s874hg98e4hb4w4H98BE49GW98H48V48SD4G984HNB8949S8JN4R8H4H18
for /l %%a in (0,1,100) do (
    set str1=!str:~%%a,1!
    if not "!str1!"=="" (
       set str1=!str1:1=①!
       set str1=!str1:2=②!
       set str1=!str1:3=③!
       set str1=!str1:4=④!
       set str1=!str1:5=⑤!
       set str1=!str1:6=⑥!
       set str1=!str1:7=⑦!
       set str1=!str1:8=⑧!
       set str1=!str1:9=⑨!
       set str1=!str1:0=〇!
set /p=!str1!<nul&ping /n 127.1>nul
    )
)
pause>nul 
复制代码

欢迎光临批处理之家 (http://bbs.bathome.net/)