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

第46楼　Billunique	发表于 2007-03-23 11:55
中级用户　发帖 112　积分 259
高手！真是太强了～

第47楼　bingxiao20	发表于 2007-03-23 23:53
初级用户　发帖 31　积分 68
下载了谢了

第48楼　jackyggt	发表于 2007-03-30 12:53
初级用户　发帖 38　积分 76
顶了兄弟

第49楼　nbic	发表于 2007-04-14 09:55
初级用户　发帖 61　积分 135
没看到啊。。。

第50楼　icehui	发表于 2007-04-14 10:21
初级用户　发帖 12　积分 25
我怎么看不见在那里下载

第51楼　dududong	发表于 2007-04-15 13:01
新手上路　发帖 2　积分 3
看不见

第52楼　jackson313	发表于 2007-04-15 14:25
初级用户　发帖 26　积分 48
好东西学习中

第53楼　317slf	发表于 2007-04-16 02:41
初级用户　发帖 11　积分 26
太厉害了！

第54楼　windeshadow	发表于 2007-04-16 04:27
初级用户　发帖 15　积分 38
东西呢没看到

第55楼　ccwan	发表于 2007-04-16 04:34
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
公布代码： @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

第56楼　sjs0512	发表于 2007-04-16 06:44
中级用户　发帖 69　积分 201
我也来看看哦

第57楼　lwsxlq	发表于 2007-04-16 10:04
新手上路　发帖 5　积分 10
我怎么看不见下载？

第58楼　menglongfc	发表于 2007-04-22 01:29
初级用户　发帖 25　积分 45
楼主在说什么呢?

第59楼　qpmgljf	发表于 2007-04-22 05:13
初级用户　发帖 49　积分 125
不知道是谁惹了9527先生了～～～这么怒啊～～～

第60楼　w909525	发表于 2007-04-30 20:23
初级用户　发帖 34　积分 98
why