随风

批处理画方框
好久没用批处理写动画了，也来一个。。
:

@echo off
for /l %%a in (1 1 39) do call set "k= %%k%%"
set /a m=100
:start
setlocal enabledelayedexpansion
cls&echo.&echo.&echo.
set/p=!k:~0,17!<nul
for /l %%a in (1 1 20) do (
   set/p= .<nul
   set "n%%a=  !k:~2!"
   set "yi=!yi! ."
   call :yc !m!
)
echo.
for /l %%a in (1 1 15) do echo !k:~0,17!!k!.&call :yc !m!
set/p=!k:~0,17!!k!.<nul
for /l %%a in (1 1 19) do set /p= .<nul&call :yc !m!
echo.
for /l %%i in (15 -1 1) do (
  cls&echo.&echo.&echo.
  echo !k:~0,17!!yi!
  set n%%i= .!n%%i:~2!
  for /l %%a in (1 1 15) do echo !k:~0,17!!n%%a!.
  echo !k:~0,17!!yi!
  call :yc !m!
)
echo.&echo.&endlocal&cls&call :yc 800&goto start
:yc
   for /l %%a in (1 1 %~1) do ver>nul
goto :EOF
复制代码