中国DOS联盟

Originally posted by chainliq at 2006-11-19 19:07:
呵呵，我倒是觉得这个挺有意思的，请问如何修个它的显示速度呢？

　　修改它的显示速度可以更改代码中的 ping 语句，可以增加参数-n的值，也可以增加超时参数-w的值，个人而定。

好东西 下来测试下

　　lxmxn『第 6 楼』的代码挺不错的，但是有以下缺憾：
　　1、因为启用了变量延迟功能，所以，会把文本中的感叹号置换为空；
　　2、因为普通for语句忽略以分号打头的行，所以此代码将不能提取这些行的内容；
　　3、if 语句中的 :end 并不能被其他语句作为标签来调用，也就是说，其他语句中的goto end部分执行的时候会出错，并不能跳转到这里；
　　4、SET A="%1" 中的引号是多余的，因为在call的时候，%1已经被强行赋予了引号，因此会导致 if "%A%"=="" goto end 一句始终得不到执行；

　　在这个代码的基础上，得到如下代码：

　　版本一：

@echo off

:: 把半角双引号换成空格，把等号换成〓，兼容其他特殊字符

:: 能处理以分号打头的行，但是会忽略空行

:: 能兼容unicode格式的文本

:: 每行之间空一行显示

for /f "delims= eol=" %%i in ('type %1') 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 "=%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 .* %1') do (

    set "str=%%i"

    call set "str=%%str:"= %%"

    call set "str=%%str:*:=%%"

    call :pickup

)

echo.

pause

goto :eof



:pickup

if not defined str echo.&goto :eof

if "%str:~0,1%"=="=" set "str=〓%str:~1%"

set /p "=%str:~0,1%"<nul

ping -n 1 127.1>nul

set "str=%str:~1%"

if defined str goto pickup

echo.

goto :eof

[ Last edited by namejm on 2007-2-2 at 02:06 PM ]

太精彩了，lx和jm全是高人

顶,支持

　　根据 最大限度原样输出含特殊字符的指定行内容 这个帖子的讨论成果，得到如下代码，能完美解决特殊字符的原样显示问题，发出来大家测试一下：

@echo off



:: 逐行逐字阅读文本，并且原样显示文本内容

:: ① 为了显示文本的所有内容，使用了for+findstr的句式

:: ② 为了能原样显示文本，使用变量延迟并在合适的位置终止延迟

:: ③ 为了能正确显示引号和等号，在语句 set /p= !str:~0,1!<nul 中，等号后空一格，并使用退格键



for /f "delims=" %%i in ('findstr /n .* test.txt') do (

    set "str=%%i"

    setlocal enabledelayedexpansion

    set str=!str:*:=!

    call :pickup

    endlocal

)

pause

goto :eof



:pickup

ping -n 1 127.1>nul

if defined str (

    set /p= !str:~0,1!<nul

    set str=!str:~1!

    goto pickup

)

echo.

goto :eof

呵呵...个个都是牛人来D....偶也要努力学习ing

退格键要怎么输入，谁能告诉我啊，谢谢！

收藏了。。果然经典

听了版主的提示，直接到21楼，测试，牛人一个！

都是高手呀！帮顶一个！

都是高手呀！学习下。。。

还真是不错啊!

可以啊

高人，我等佩服得五体投地。收藏了……