中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 用小代码演示逐字阅读原理：

bat-zw
金牌会员

永远的学习者

积分 3105
发帖 1276
注册 2008-3-8
状态离线

『楼主』: 用小代码演示逐字阅读原理：

如输入中含有数字请多按一次回车（郁闷中。。。）

@echo off

:begin

cls&set /p str=请输入不含^&^<^>^|的字符串:

if "%str%"=="" goto begin

cls&echo 逐字显示开始...&ping /n 2 127.1>nul

cls&echo.

:lp

set /a n+=1

call,set var="%%str:~,%n%%%"

set /p=%var:~1,-1%<nul&ping /n 127.1>nul

for /l %%i in (1,1,100) do set /p=<nul

if not "%var:~1,-1%"=="%str%" goto lp

cls&set n=0&pause&goto begin

批处理之家新域名：www.bathome.net

2008-5-8 23:12

(841615149)

moniuming
银牌会员

永远的菜鸟

积分 1335
发帖 574
注册 2007-11-27
来自广西
状态离线

『第 2 楼』:

这样就没有问题了,LZ字符截取的方法好奇怪,让人看不懂

@echo off

:begin

set n=0

set /p str=请输入不含^&^<^>^|的字符串:

if "%str%"=="" goto begin

echo.&echo 逐字显示开始...&ping /n 2 127.1>nul

cls&echo.

:lp

set /a n+=1

call,set var="%%str:~0,%n%%%"

set /p=%var%<nul&ping /n 127.1>nul

for /l %%i in (1,1,100) do set /p=<nul

if not %var%=="%str%" (

  goto lp

  ) else (

    pause&cls&goto begin

)

2008-5-9 10:55

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: