公布代码：
=========================
bjsh： 当初不知何故LZ把帖子改掉了， 上面引用后面ccwan帖子
[ Last edited by bjsh on 2008-4-28 at 04:16 PM ]
@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 ]
本帖最近评分记录
（共 11 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| ccwan | +5 | 2006-12-24 05:34 |
| redtek | +9 | 2006-12-24 05:38 |
| lxmxn | +4 | 2006-12-24 07:55 |
| HUNRYBECKY | +2 | 2006-12-26 22:17 |
| jmz573515 | +4 | 2006-12-26 22:37 |
| axi | +2 | 2007-03-15 08:23 |
| neolxx | +1 | 2007-10-23 16:11 |
| a123456 | -1 | 2007-10-26 23:26 |
| chainliq | -5 | 2007-12-15 02:27 |
| — | -1 | 2007-12-15 02:31 |
| PPdos | -4 | 2008-04-28 05:11 |
我今后在论坛的目标就是做个超级坏人！！！
