中国DOS联盟

@echo off
::::::::绘制矩形 {s11ss 2007-10-12}::::::::
setlocal enabledelayedexpansion
if "%1" equ "/?" (
	call :help
	echo 例如：%0 * 8 500
	goto :eof
)

::设置变量：
if "%1" equ "" (
	call :help
	echo 现在就输入参数，如* 8 500：
	set/p s=
	for /f "tokens=1,2* delims= " %%a in ("!s!") do (
		set c=%%a
		set n=%%b
		set w=%%c
	)
) else (
	set c=%1
	set n=%2
	set w=%3
)
set/a r=%n%-2
for /l %%a in (1,1,%n%) do (
	set up=!up!%c%
	for /l %%i in (1,1,%%a) do set down%%a=!down%%a!%c%
	set/a t=%n%-%%a
	::pause
	for /l %%z in (1,1,!t!) do set down%%a= !down%%a!
	if %%a leq %r% set space%r%= !space%r%!
)
set mid1=!space%r%! %c%
set mid2=%c%!space%r%!%c%

::分四步绘制：
::1.上边的棱
for /l %%a in (1,1,%n%) do (
	cls
	echo !up:~0,%%a!
	call :delay
)
::2.右边的棱
>t.x echo !up!
for /l %%a in (1,1,%n%) do (
	if %%a leq %r% (
		echo !mid1!
		>>t.x echo !mid1!
		call :delay
	)
)
::3.下边的棱
for /l %%a in (1,1,%n%) do (
	cls
	type t.x
	echo !down%%a!
	call :delay
)
::4.左边的棱
for /l %%a in (1,1,%n%) do (
	if %%a leq %r% (
		cls
		echo !up!
		set/a t=%r%-%%a
		for /l %%i in (1,1,!t!) do (
			echo !mid1!
		)
		for /l %%z in (1,1,%%a) do (
			echo !mid2!
		)
		echo !up!
		call :delay		
	)
)

::结束：
del t.x
pause>nul
goto :eof

::函数部分：
:delay
for /l %%x in (1,1,%w%) do (echo Waiting...>nul)
goto :eof

:help
echo 参数一：用于显示的字符，如*。
echo 参数二：一行字符的个数，如8。
echo 参数三：字符之间的延时，如500。