中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-09 07:36
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [出题]输出菱形图案并居中显示 查看 838 回复 3
楼 主 [出题]输出菱形图案并居中显示 发表于 2008-08-01 03:54 ·  中国 山东 淄博 联通
银牌会员
★★★
积分 1,604
发帖 646
注册 2008-04-13 23:39
18年会员
UID 115804
性别 男
状态 离线
通过批处理输出如下图案,并在CMD原始窗口大小中居中显示。
要求,不生成临时文件,代码尽量高效简洁。


o
o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o o o o o o o o o o o o o o o o o o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o
o


[ Last edited by pusofalse on 2008-8-1 at 04:15 AM ]
心绪平和,眼藏静谧,无比安稳的火... Purification of soul...Just a false...^_^
2 发表于 2008-08-01 12:53 ·  中国 湖南 株洲 电信
金牌会员
★★★★
永远的学习者
积分 3,105
发帖 1,276
注册 2008-03-08 13:00
18年会员
UID 112398
性别 男
状态 离线

@echo off&setlocal enabledelayedexpansion
for /l %%i in (1,1,80) do set "kong=!kong! "
set "_1=%kong:~,40%○"&echo !_1!
set "_2=%kong:~,38%○ ○"&echo !_2!
for /l %%i in (3,1,21) do (
set /a num+=1
call,set "str=○%%kong:~,!num!%%○%%kong:~,!num!%%○"
set "var=!str!%kong%"
set "var=!var:~,80!"
call :lp
set "_%%i=!var:~1!!str!"&echo !_%%i!
)
set /p=%kong:~,18%<nul&for /l %%i in (1,1,23) do set /p=○<nul
echo.&for /l %%i in (21,-1,1) do echo !_%%i!
pause>nul&goto :eof
:lp
set "var=!var:%str%=!"
set "var=%var: = %"


[ Last edited by bat-zw on 2008-8-1 at 01:36 PM ]
批处理之家新域名:www.bathome.net
3 发表于 2008-08-01 15:44 ·  中国 北京 海淀区 联通
银牌会员
★★★
积分 2,098
发帖 566
注册 2007-09-11 07:27
18年会员
UID 97070
性别 男
状态 离线

@findstr/c:" %s%o" "%~f0"&pause>nul&exit/b
o
o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o o o o o o o o o o o o o o o o o o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o o
o o
o
4 发表于 2008-08-01 18:57 ·  中国 北京 光环新网
银牌会员
★★★★
[b]看你妹啊[/b]
积分 1,488
发帖 1,357
注册 2006-05-20 12:00
20年会员
UID 55770
状态 离线
楼上真创意

有问题请发论坛或者自行搜索,再短消息问我的统统是SB
论坛跳转: