中国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 ]

下载了
谢了

沙发被人抢了，偶来个板凳吧。

顶～～！下载收藏～～

各位，有一处错误，呵呵
把if "%mm%"=="2" %~n0 这句代码改成 if "%mm%"=="2" (set b=&%~n0)
是我测试的时候不细心

两次测试好像没有什么不同啊？

不，错误出现在重新设计那里

＝_＝|||
马虎了。

　　如果能让菜单选项居中显示就好了。

顶～

　　批处理可以和一些软件媲美了。而且更环保～～ ^_^

这里面有个循环的语句吧，那系统返回值是放在哪？

恩哈，~好了，不用 再使劲按空格了

好久没来，又有这么多好东西了。

不错,好东西!