P处理菜单制作程序 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

公布代码：

@echo off&setlocal enabledelayedexpansion&title P处理菜单制作程序
if "%1"=="" (cls&echo/&echo=&set /p nn=请您输入菜单制作的个数:&goto pp) else goto cc

:pp
%~n0 %nn%

:cc
cls&echo/&echo\&echo
echo ------------------------------------------------------------------------------
echo **************************** Code By：XXXXX **********************************
echo ------------------------------------------------------------------------------
for /l %%a in (1=1=%1) do (
set/p=                   <nul&set/p a%%a=第%%a菜单内容：
set "b=!b! "!a%%a!""
)
cls
set "space=                                                        "
set "vol=          │      "
:kk
%ww% echo                           ╭────────╮                     %qq%
%ww% echo           ╭───────┤      选项      ├─────────╮ %qq%
%ww% echo           │              ╰────────╯                  │ %qq%

for %%i in (%b%) do (
set a=%vol%%%~i%space%
%ww% echo !a:~0,63!│%qq%
%ww% echo           │                                                    │%qq%
)
%ww% echo           │                                                    │%qq%
%ww% echo           │                                                    │%qq%
%ww% echo           │                                                    │%qq%
%ww% echo           ╰──────────────────────────╯%qq%
if defined qq (echo 您的菜单已经生成文件 project.cmd&goto :eof)
echo 请问您，这个菜单您满意吗?
set/p mm=(1:满意  2:重新设计 3:退出)  ：
if "%mm%"=="1" goto jj
if "%mm%"=="2" %~n0
if "%mm%"=="3" cls&echo/&echo]&echo 程序退出!!!&goto :eof                                     

:jj
set qq=^>^>project.cmd
set ww=echo
echo @echo off>>project.cmd
goto kk

=========================
bjsh：当初不知何故LZ把帖子改掉了，上面引用后面ccwan帖子

[ Last edited by bjsh on 2008-4-28 at 04:16 PM ]

第1楼　9527	发表于 2006-12-24 05:20
银牌会员　发帖 438　积分 1,185　来自北京
P处理菜单制作程序公布代码： @echo off&setlocal enabledelayedexpansion&title P处理菜单制作程序 if "%1"=="" (cls&echo/&echo=&set /p nn=请您输入菜单制作的个数:&goto pp) else goto cc :pp %~n0 %nn% :cc cls&echo/&echo\&echo echo ------------------------------------------------------------------------------ echo ************************** Code By：XXXXX ******************************** echo ------------------------------------------------------------------------------ for /l %%a in (1=1=%1) do ( set/p= <nul&set/p a%%a=第%%a菜单内容： set "b=!b! "!a%%a!"" ) cls set "space= " set "vol= │ " :kk %ww% echo ╭────────╮ %qq% %ww% echo ╭───────┤ 选项 ├─────────╮ %qq% %ww% echo │ ╰────────╯ │ %qq% for %%i in (%b%) do ( set a=%vol%%%~i%space% %ww% echo !a:~0,63!│%qq% %ww% echo │ │%qq% ) %ww% echo │ │%qq% %ww% echo │ │%qq% %ww% echo │ │%qq% %ww% echo ╰──────────────────────────╯%qq% if defined qq (echo 您的菜单已经生成文件 project.cmd&goto :eof) echo 请问您，这个菜单您满意吗? set/p mm=(1:满意 2:重新设计 3:退出) ： if "%mm%"=="1" goto jj if "%mm%"=="2" %~n0 if "%mm%"=="3" cls&echo/&echo]&echo 程序退出!!!&goto :eof :jj set qq=^>^>project.cmd set ww=echo echo @echo off>>project.cmd goto kk ========================= bjsh：当初不知何故LZ把帖子改掉了，上面引用后面ccwan帖子 [ Last edited by bjsh on 2008-4-28 at 04:16 PM ]

第2楼　scriptor	发表于 2006-12-24 05:32
银牌会员　发帖 555　积分 1,187
强下载了谢了

第3楼　ccwan	发表于 2006-12-24 05:34
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
沙发被人抢了，偶来个板凳吧。

第4楼　redtek	发表于 2006-12-24 05:37
金牌会员　发帖 1,147　积分 2,902
顶～～！下载收藏～～

第5楼　9527	发表于 2006-12-24 05:41
银牌会员　发帖 438　积分 1,185　来自北京
各位，有一处错误，呵呵把if "%mm%"=="2" %~n0 这句代码改成 if "%mm%"=="2" (set b=&%~n0) 是我测试的时候不细心

第6楼　ccwan	发表于 2006-12-24 05:48
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
两次测试好像没有什么不同啊？

第7楼　9527	发表于 2006-12-24 05:49
银牌会员　发帖 438　积分 1,185　来自北京
不，错误出现在重新设计那里

第8楼　ccwan	发表于 2006-12-24 05:52
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
＝_＝\|\|\| 马虎了。

第9楼　namejm	发表于 2006-12-24 05:56
荣誉版主　发帖 1,737　积分 5,226　来自成都
如果能让菜单选项居中显示就好了。

第10楼　electronixtar	发表于 2006-12-24 06:46
铂金会员　发帖 2,672　积分 7,493
顶～

第11楼　lxmxn	发表于 2006-12-24 07:56
版主　发帖 4,938　积分 11,386
批处理可以和一些软件媲美了。而且更环保～～ ^_^

第12楼　hake	发表于 2006-12-24 08:47
初级用户　发帖 43　积分 103
这里面有个循环的语句吧，那系统返回值是放在哪？

第13楼　vkill	发表于 2006-12-24 11:07
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
恩哈，~好了，不用再使劲按空格了

第14楼　HUNRYBECKY	发表于 2006-12-26 22:17
银牌会员　发帖 442　积分 1,179
好久没来，又有这么多好东西了。

第15楼　jmz573515	发表于 2006-12-26 22:29
银牌会员　发帖 464　积分 1,212
不错,好东西!