********绘制矩形******** - 中国DOS联盟论坛 - 中国DOS联盟之联合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。

第1楼　s11ss	发表于 2007-10-12 17:05
银牌会员　发帖 566　积分 2,098
[原创]******绘制矩形****** @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。

第2楼　Nickey	发表于 2007-10-12 21:16
初级用户　发帖 59　积分 132　来自 GuangZhou
发觉除了*号之外其它符号就会出错如何解释啊 LZ？

第3楼　s11ss	发表于 2007-10-12 22:19
银牌会员　发帖 566　积分 2,098
比如?