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

小勇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 编辑 ]

Batcher

所发代码若不止一行，请务必用code标记把代码部分首尾括起来，以便他人复制；

Q: 如何用code把代码扩起来？
A: http://bbs.bathome.net/thread-404-1-1.html

sxw

请问大侠：竖直显示的那段批处理能显示多列吗？

wgoxm521

我觉得还是最后一个有意思。
谢谢