[特效代码] 批处理特效代码怎样简化？

canyuexiaolang

@echo off
mode con:lines=6 cols=78
color 1F
setlocal EnableDelayedExpansion
set "strlen=0"
echo.
set "str=批处理之家:bbs.bathome.net。欢迎您的光临^!^!"
set /p=                 <nul
:next
set /a strlen+=1
for /f %%i in ("%strlen%") do if not "!str:~%%i,1!"=="" goto next
for /l %%i in (0 1 !strlen!) do (
    set /p=!str:~%%i,1!<nul
    ping -n 1 127.0.0.1>nul
)
echo.
echo.
set /p=          [ <nul
for /l %%i in (1 1 52) do (
    set /a num1=%%i*2
    set "num1=    ]"
    call:color 0099 "■"
    set /p=!num1:~-2!<nul
)
echo.
del "■?"
pause>nul
goto :eof
:color
set /p=<nul>"■"
findstr /a:%1 . "■?"*
set /p=<nul
复制代码

就是这个特效代码，怎么样简化代码，我先研究研究
当然这个代码还是有些不太明白。。

希望带啊去掉不用的，过滤重复的，，，效果如旧，代码减少

netbenton

简化不了多少，但可以提提速~~

@echo off
mode con:lines=6 cols=78
color 1F

set /p="@init"
set ver=@init
set "ecco=for /f "tokens=1*" %%a in ("@") do (ren !ver! %%b&findstr /a:%%a . "%%b?"&set ver=%%b)"
rem 定义彩色显示变更函数，主要功能代码在(ren !ver! %%b&findstr /a:%%a . "%%b?"&set ver=%%b)，for /f部分是为了可以使用多个参数

setlocal EnableDelayedExpansion
echo.
set "str=批处理之家:bbs.bathome.net。欢迎您的光临^!^!"
set /p=                 <NUL

for /l %%i in (0 1 80) do (
    set /p=!str:~%%i,1!<NUL
     ping -n 1 127.0.0.1>nul
    if "!str:~%%i,1!" equ "" goto :out
)
:out

echo.
echo.
set /p=          [ <NUL
for /l %%i in (0 1 50) do (
    set /a num1=%%i*2
    set "num1=   !num1!%%]"
    %ecco:@=0099 ■%
    set /p=!num1:~-5!<NUL
)

echo.

del "!ver!?"

pause>nul
goto :eof
复制代码

canyuexiaolang

对于打字的效果，我一直有一个问题
看到了像那样
@echo off
goto start
12345
aaaaaaaaa
dddddddddddd
vvvvvvvvvvvv
:start
然后下面有什么语句，就把上边的内容打出来了....
能否给举个例子？