批处理中各种逐字显示方法

小勇12

@echo off
title 标题逐显
color 2b
:Head
cls
setlocal EnableDelayedExpansion

    set line=批处理之家--我永远支持-哈哈
    set display=
    for /l %%i in (0,1,14) do (
        if not !dispaly! == !line! (set display=!display!!line:~%%i,1!) else ( set display= )
        title !display!
        ping/n 1 127.1>nul
      
)
goto Head

@echo off
title 水平逐显
color 2b
:Head
cls
setlocal EnableDelayedExpansion

    set line=批处理之家--我永远支持-哈哈
    for /l %%i in (0,1,14) do (
        set/p=!line:~%%i,1!<nul
        ping/n 1 127.1>nul
)
goto Head

@echo off
title 竖直逐显
color 2b
:Head
cls
setlocal EnableDelayedExpansion

    set line=批处理之家--我永远支持-哈哈
    for /l %%i in (0,1,14) do (
        echo !line:~%%i,1!<nul
        ping/n 1 127.1>nul
)
goto Head

@echo off&&setlocal EnableDelayedExpansion
title 彩色输出逐显
set line=批处理之家--我永远支持-哈哈
for /l %%i in (0,1,14) do (
set /a a=!random:~,1!%%5+1
set filename=!line:~%%i,1!
set /p= <nul>!filename!
call findstr /a:!a! .* "!filename!*"
ping -n 2 127.0.0.1 >nul
del /q "!filename!*"

)

pause>nul


希望大家继续补充，谢谢！！

[ 本帖最后由 小勇12 于 2009-4-15 14:30 编辑 ]