中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » P处理菜单制作程序

« [1] [2] [3] [4] [5] [6] » ›

9527
银牌会员

努力做坏人

积分 1185
发帖 438
注册 2006-8-28
来自北京
状态离线

『楼主』: 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 ------------------------------------------------------------------------------

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%%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:满意[生成P处理菜单文件]  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