Board logo

标题: 批处理中各种逐字显示方法 [打印本页]

作者: 小勇12    时间: 2009-4-15 14:10     标题: 批处理中各种逐字显示方法

@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    时间: 2009-4-15 17:36

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

Q: 如何用code把代码扩起来?
A: http://bbs.bathome.net/thread-404-1-1.html
作者: sxw    时间: 2009-12-20 12:31     标题: 回复 1楼 的帖子

请问大侠:竖直显示的那段批处理能显示多列吗?
作者: wgoxm521    时间: 2010-1-20 14:48     标题: 感谢

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




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2