P menu creation program - China DOS Union Forum - China DOS Union

Code released:

@echo off&setlocal enabledelayedexpansion&title P menu creation program
if "%1"=="" (cls&echo/&echo=&set /p nn=Please enter the number of menu items to create :&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=Menu item %%a content:
set "b=!b! "!a%%a!""
)
cls
set "space=                                                        "
set "vol=          │      "
:kk
%ww% echo                           ╭────────╮                     %qq%
%ww% echo           ╭───────┤      Option      ├─────────╮ %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 Your menu has already been generated as file project.cmd&goto :eof)
echo So, are you satisfied with this menu?
set/p mm=(1: satisfied   2: redesign 3: exit)  ：
if "%mm%"=="1" goto jj
if "%mm%"=="2" %~n0
if "%mm%"=="3" cls&echo/&echo]&echo Program exited!!!&goto :eof                                     

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

=========================
bjsh: For some reason, the OP edited the post back then. The above quote is from ccwan's later post.

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

Floor1　9527	Posted 2006-12-24 05:20
银牌会员　Posts 438　Credits 1,185　From 北京
Code released: @echo off&setlocal enabledelayedexpansion&title P menu creation program if "%1"=="" (cls&echo/&echo=&set /p nn=Please enter the number of menu items to create :&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=Menu item %%a content: set "b=!b! "!a%%a!"" ) cls set "space= " set "vol= │ " :kk %ww% echo ╭────────╮ %qq% %ww% echo ╭───────┤ Option ├─────────╮ %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 Your menu has already been generated as file project.cmd&goto :eof) echo So, are you satisfied with this menu? set/p mm=(1: satisfied 2: redesign 3: exit) ： if "%mm%"=="1" goto jj if "%mm%"=="2" %~n0 if "%mm%"=="3" cls&echo/&echo]&echo Program exited!!!&goto :eof :jj set qq=^>^>project.cmd set ww=echo echo @echo off>>project.cmd goto kk ========================= bjsh: For some reason, the OP edited the post back then. The above quote is from ccwan's later post. [ Last edited by bjsh on 2008-4-28 at 04:16 PM

Floor2　scriptor	Posted 2006-12-24 05:32
银牌会员　Posts 555　Credits 1,187
Downloaded it. Thanks.

Floor3　ccwan	Posted 2006-12-24 05:34
金牌会员　Posts 1,160　Credits 2,725　From 河北廊坊
Someone already grabbed the first reply, so I'll take the second reply.

Floor4　redtek	Posted 2006-12-24 05:37
金牌会员　Posts 1,147　Credits 2,902
Bump~~! Downloaded and collected~~

Floor5　9527	Posted 2006-12-24 05:41
银牌会员　Posts 438　Credits 1,185　From 北京
Everyone, there's one mistake, hehe. Change the line if "%mm%"=="2" %~n0 to if "%mm%"=="2" (set b=&%~n0) I wasn't careful enough when testing it.

Floor6　ccwan	Posted 2006-12-24 05:48
金牌会员　Posts 1,160　Credits 2,725　From 河北廊坊
After testing twice, there doesn't seem to be any difference?

Floor7　9527	Posted 2006-12-24 05:49
银牌会员　Posts 438　Credits 1,185　From 北京
No, the error appears in the redesign part.

Floor8　ccwan	Posted 2006-12-24 05:52
金牌会员　Posts 1,160　Credits 2,725　From 河北廊坊
＝_＝\|\|\| I was careless.

Floor9　namejm	Posted 2006-12-24 05:56
荣誉版主　Posts 1,737　Credits 5,226　From 成都
It would be nice if the menu options could be centered.

Floor10　electronixtar	Posted 2006-12-24 06:46
铂金会员　Posts 2,672　Credits 7,493
Bump

Floor11　lxmxn	Posted 2006-12-24 07:56
版主　Posts 4,938　Credits 11,386
Batch files can now rival some software. And they're more eco-friendly too~~ ^_^

Floor12　hake	Posted 2006-12-24 08:47
初级用户　Posts 43　Credits 103
There's a loop statement in here, right? Then where is the system return value stored?

Floor13　vkill	Posted 2006-12-24 11:07
金牌会员　Posts 1,744　Credits 4,103　From 甘肃.临泽
Yeah, ~all right now, no need to keep hammering the spacebar anymore.

Floor14　HUNRYBECKY	Posted 2006-12-26 22:17
银牌会员　Posts 442　Credits 1,179
Haven't been here in a long time, and there are already so many good things again.

Floor15　jmz573515	Posted 2006-12-26 22:29
银牌会员　Posts 464　Credits 1,212
Not bad, good stuff!