中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-06-14 18:54
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 依次横向显示文档中的字符
楼 主 依次横向显示文档中的字符 发表于 2007-02-02 14:41 ·  中国 湖南 长沙 电信
银牌会员
★★★
积分 2,268
发帖 879
注册 2006-12-19 16:23
UID 73968
性别 男
状态 离线
a.txt内容如下
abcefg
1234567
yuhgrte

问题:我运行以下批处理后,显示完第一排字符后就停了,有什么办法能继续显示后面的字符?
@echo off
set s=0
for /f "delims=" %%i in (a.txt) do call :xs %%i
goto :eof

:xs
set a=%1
:top
echo.|call set /p b=%%a:~%s%,1%%
set /a s+=1
goto top
2 发表于 2007-02-02 17:38 ·  新西兰 奥克兰大区 奥克兰 Microsoft
高级用户
★★
积分 783
发帖 268
注册 2006-12-26 17:18
UID 74627
性别 男
状态 离线
学习楼主程序

在下愚见 认为:xs没有定义退出循环的条件 从而不能进入第二行的显示
菩提本无树,明镜亦非台,本来无一物,何处惹尘埃.
3 发表于 2007-02-02 22:08 ·  中国 吉林 四平 联通
高级用户
★★★
积分 859
发帖 413
注册 2006-08-14 21:55
UID 60532
状态 离线
xs
set a=%1
:top
echo.|call set /p b=%%a:~%s%,1%%
set /a s+=1
goto top
这些地方看不懂?
4 发表于 2007-02-02 22:32 ·  中国 广东 电信
荣誉版主
★★★★
batch fan
积分 5,226
发帖 1,737
注册 2006-03-10 00:38
UID 51697
来自 成都
状态 离线
  试试下面的代码:

  版本一:

@echo off
:: 如果有半角双引号,将不能继续处理下去,但是可以兼容除等号外的其他特殊字符
:: 如果有等号,将在等号出现的地方报错,但可以继续处理下一个字符
:: 忽略以引号打头的行,忽略空行
:: 不能处理unicode格式文本
for /f "delims=" %%i in (test.txt) do (
set "str=%%i"
call :pickup
)
pause
goto :eof

:pickup
ping -n 1 127.1>nul
set /p "var=%str:~0,1%"<nul
set "str=%str:~1%"
if not "%str%"=="" goto pickup
echo.
goto :eof

  版本二:

@echo off
:: 把半角双引号换成空格,把等号换成〓,兼容其他特殊字符
:: 能处理以分号打头的行,但是会忽略空行;
:: 能兼容unicode格式的文本
:: 每行之间空一行显示
for /f "delims= eol=" %%i in ('type test.txt') do (
set "str=%%i"
call set "str=%%str:"= %%"
call :pickup
)
pause
goto :eof

:pickup
ping -n 1 127.1>nul
if "%str:~0,1%"=="=" set "str=〓%str:~1%"
set /p "var=%str:~0,1%"<nul
set "str=%str:~1%"
if defined str goto pickup
echo.&echo.
goto :eof

  版本三:

@echo off
:: 与版本二的几点区别:
::   1、不能处理unicode文本
::   2、每行之间不再强行加上空行,并且能原样显示空行
for /f "delims= eol=" %%i in ('findstr /n .* test.txt') do (
set "str=%%i"
call set "str=%%str:"= %%"
call set "str=%%str:*:=%%"
call :pickup
)
pause
goto :eof

:pickup
if not defined str echo.&goto :eof
ping -n 1 127.1>nul
if "%str:~0,1%"=="=" set "str=〓%str:~1%"
set /p "var=%str:~0,1%"<nul
set "str=%str:~1%"
if defined str goto pickup
echo.
goto :eof


[ Last edited by namejm on 2007-2-2 at 01:42 PM ]
尺有所短,寸有所长,学好CMD没商量。
考虑问题复杂化,解决问题简洁化。
5 发表于 2007-02-02 23:10 ·  中国 吉林 四平 联通
高级用户
★★★
积分 859
发帖 413
注册 2006-08-14 21:55
UID 60532
状态 离线
版主的可行,这么显示,挺有意思的
6 发表于 2007-02-03 02:07 ·  中国 湖南 长沙 雨花区 电信
银牌会员
★★★
积分 2,268
发帖 879
注册 2006-12-19 16:23
UID 73968
性别 男
状态 离线
学习了 谢谢版主!!!!!!!!
不过我还是没搞明白,我的为什么会停住,set /p 以后只要没了字符就停了,
还有你的 <nul 是什么意识?
7 发表于 2007-02-03 02:53 ·  中国 广东 电信
荣誉版主
★★★★
batch fan
积分 5,226
发帖 1,737
注册 2006-03-10 00:38
UID 51697
来自 成都
状态 离线
  你的代码因为在goto top的时候,没有判断某一行的字符是否取尽,从而造成了死循环,所以会一直在处理第一行而不能处理下一行。

  <nul 在set/p中的作用是:在同一行上显示每次获取到的内容。
尺有所短,寸有所长,学好CMD没商量。
考虑问题复杂化,解决问题简洁化。
8 发表于 2007-05-08 10:22 ·  中国 广东 中山 电信
初级用户
★★
积分 127
发帖 62
注册 2007-04-19 12:43
UID 85744
性别 男
状态 离线
学到东西! 多谢版主!
论坛跳转: