[文本处理] [已解决]批处理如何实现文本逐字原样输出？

wgoxm521

今天听歌后来兴趣了，想逐字显示歌词，但是还是玩出来毛病了。各位，该出手了，看我哪里错了，错了多少，别留着您的良言。文件代码：b.txt:
                车继玲 最远的你是我最近的爱#
       夜以沉默 心事向谁说#
        不肯回头 所有的爱多错过#
        别笑我懦弱#
        我始终不能猜透#
        为何人生淡漠#
        风雨之后 无所谓拥有#
         萍水相逢 你却给我那么多#
        你挡住寒冬 温暖只保留给我#
        风霜寂寞 凋落在你的怀中#
        人生风景在游走#
       每当孤独我回首#
        你的爱总在不远的地方等着我#下面是代码：

@echo off & setlocal EnableDelayedExpansion
for /f "delims=," %%i in (b.txt) do (
        set /a "num+=1"
        set "wind!num!=%%i"
        rem 把文本的值赋给wind!num!
        )for /l %%j in (1,1,!num!) do (
        rem 把每一行的值都赋给a
        set "a=!wind%%j!" && for /l %%k in (1,1,15) do (
        rem 开始逐字显示
        set "b=!a:~%%k,1!"
        set/p=!a:~%%k,1!nul
        )
)echo/pause>nul
复制代码

我这先谢谢各位了。^__^
答案：5楼正解

[ 本帖最后由 wgoxm521 于 2010-2-7 11:47 编辑 ]

wgoxm521

原帖由 batman 于 2010-1-20 17:53 发表
跟风，原来写的：@echo off&color 1f&mode con lines=5
if defined flag goto next
set "flag=a"
start /b %~nx0
title 按任意键退出
set "str=只是为何当初你是不听所有纷纷扰扰满天流言漫天风雨你会选择了我？ ...

曾在QQ请教于Batman，可能因为batman太忙，没注意到。

wgoxm521

呵呵，谢谢楼主指点，感动中....

zqz0012005

在屏幕上显示时，最好用（空格后面加退格符）
set /p= !b!<nul
可以兼容等号和引号

如果要输出到文件，且要兼容特殊字符，则应该考虑用vbs

batman

跟风，原来写的：

@echo off&color 1f&mode con lines=5
if defined flag goto next
set "flag=a"
start /b %~nx0
title 按任意键退出
set "str=只是为何当初你是不听所有纷纷扰扰满天流言漫天风雨你会选择了我？只是为何如今我们不顾一切追求真爱坚持到底苦尽甘来你会放弃了我？再说你也不会懂，心再痛你能做什么，只有把自己深锁，错了又错。。。"
for /l %%i in (1,1,40) do call,set "kong=%%kong%%　"
:again
set "a=%kong%%str%"
:lp
cls&echo.&echo.
set /p=%a:~,40%<nul&set "a=%a:~1%"
for /l %%i in (1,1,1000) do echo>nul
if defined a goto lp
goto again
:next
pause>nul
taskkill /f /fi "windowtitle eq 按任意键退出*" /im "cmd.exe">nul 2>nul
exit
复制代码

wgoxm521

哦。谢谢。
我知道了，以后会注意的。

[ 本帖最后由 wgoxm521 于 2010-1-21 18:22 编辑 ]

keen

@echo off & setlocal EnableDelayedExpansion
for /f "delims=," %%i in (b.txt) do (
    set /a "num+=1"
    set "wind!num!=%%i"
    rem 把文本的值赋给wind!num!
)
for /l %%j in (1,1,!num!) do (
    rem 把每一行的值都赋给a
    set "a=!wind%%j!" 
    for /l %%k in (0,1,15) do (
        rem 开始逐字显示
    set "b=!a:~%%k,1!"
        if "!b!" equ "#" (echo/) else set/p=!b!<nul
        rem 换行
    ping -n 1 -w 1 127.1>nul
    )
)
pause>nul
复制代码

以后描述问题一次性描述清楚，不要跟帖补充问题。

为了节省论坛空间，还是把图片删除了吧。你用语言可以描述清楚的。

keen

@echo off & setlocal EnableDelayedExpansion
for /f "delims=," %%i in (b.txt) do (
        set /a "num+=1"
        set "wind!num!=%%i"
        rem 把文本的值赋给wind!num!
        )
for /l %%j in (1,1,!num!) do (
        rem 把每一行的值都赋给a
        set "a=!wind%%j!" && for /l %%k in (0,1,15) do (
        rem 开始逐字显示
    set "b=!a:~%%k,1!"
        set/p=!a:~%%k,1!<nul
        if "!b!" equ "#" echo.
        rem 换行
        ping -n 1 127.1>nul
        )
)
echo/
pause>nul
复制代码

wgoxm521

Batcher 真是负责，太感动了。才发了几分钟的贴，就回复了。
^_^

Batcher

参考：批处理最大限度原样输出含特殊字符的指定行内容
http://www.bathome.net/thread-4580-1-1.html