标题: P处理菜单制作程序 [打印本页]
作者: 9527 时间: 2006-12-24 05:20 标题: 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
=========================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
bjsh： 当初不知何故LZ把帖子改掉了， 上面引用后面ccwan帖子
[ Last edited by bjsh on 2008-4-28 at 04:16 PM ]
作者: scriptor 时间: 2006-12-24 05:32 标题: 强
下载了
谢了
作者: ccwan 时间: 2006-12-24 05:34
沙发被人抢了，偶来个板凳吧。
作者: redtek 时间: 2006-12-24 05:37
顶～～！下载收藏～～
作者: 9527 时间: 2006-12-24 05:41
各位，有一处错误，呵呵
把if "%mm%"=="2" %~n0 这句代码改成 if "%mm%"=="2" (set b=&%~n0)
是我测试的时候不细心
作者: ccwan 时间: 2006-12-24 05:48
两次测试好像没有什么不同啊？
作者: 9527 时间: 2006-12-24 05:49
不，错误出现在重新设计那里
作者: ccwan 时间: 2006-12-24 05:52
＝_＝|||
马虎了。
作者: namejm 时间: 2006-12-24 05:56
如果能让菜单选项居中显示就好了。
作者: electronixtar 时间: 2006-12-24 06:46
顶～
作者: lxmxn 时间: 2006-12-24 07:56
批处理可以和一些软件媲美了。而且更环保～～ ^_^
作者: hake 时间: 2006-12-24 08:47
这里面有个循环的语句吧，那系统返回值是放在哪？
作者: vkill 时间: 2006-12-24 11:07
恩哈，~好了，不用 再使劲按空格了
作者: HUNRYBECKY 时间: 2006-12-26 22:17
好久没来，又有这么多好东西了。
作者: jmz573515 时间: 2006-12-26 22:29
不错,好东西!
作者: IceCrack 时间: 2006-12-27 20:23
很不错的东西啊,谢谢楼主了
作者: daitu3 时间: 2006-12-28 02:51
很好，但用不上。。。
作者: NaturalJ0 时间: 2006-12-28 02:58
顶一记经典的东西，要是再有几种菜单风格选就更有意思了。
作者: rjn2307 时间: 2006-12-28 03:58
谢谢楼主
作者: roaming 时间: 2006-12-28 05:52
下来看看
作者: lbsh 时间: 2007-1-3 12:28
不错,好东西! 支持
作者: flamey 时间: 2007-1-4 03:45
很不错，是个好东西！
作者: qpmgljf 时间: 2007-1-6 05:21
不行啊.老大.做出来的东西对不齐.也不好看.我一直就有这个想法,可是自己又做不出来.每次都手动按空格设计...
我给你提个想法.
我想用批处理写一个东东.
@echo off
color 1f
set wj=UPXShell.exe
if not exist %wj% echo 主文件%wj%无法找到 & pause & exit
SET TT=UPXShell3.20绿色修正版
TITLE 卸载%TT%------冷雨夜(QQ:61813046)卸载︻$▅▆▇◤
:BEGIN
cls
ECHO.
ECHO ╭══════════════════╮
ECHO ║ ║
ECHO ╭═══┤ 卸载UPXShell3.20绿色修正版 ├═══╮
ECHO ║ ║ ║ ║
ECHO ║ ╰══════════════════╯ ║
ECHO ║ ║
ECHO ║ 您真的要卸载UPXShell3.20绿色修正版? ║
ECHO ║ ║
ECHO ║ [Y] 卸载软件 ║
ECHO ║ [N] 不卸载软件 ║
ECHO ║ [Q] 退出 ║
ECHO ╟──────────────────────────╢
ECHO ║ 注意：1. 请确认本软件已经关闭； ║
ECHO ║ 2. 请确认卸载程序在软件目录下，否则后果自负。║
ECHO ╰══════════════════════════╯
ECHO.
....后面还有我就不写啦.把上面一段放在批处理中就规整了.
你可不可以在中间加点程序.既然我的TT=UPXShell3.20绿色修正版
那么,我在选项中的"UPXShell3.20绿色修正版"都用%TT%+空格来代替.问题就出在空格这里,如果能把TT变量的字数统计出来,然后通过计算把空格的数量计算出来,然后把计算出来的空格数定义成一个变量,如%sp%,那么用%TT%+%sp%,来代替UPXShell3.20绿色修正版 那么表格就不会被破坏了.而且修改的时候只需改变TT的内容,表格中的内容也就跟着变了.而且表格也很美观.
不知道大侠能做出来不?
作者: mackyliu 时间: 2007-1-6 05:35
好像不能处理中文字.
作者: szgj1985 时间: 2007-1-14 00:30
下载下来研究下!
作者: xiaohacker 时间: 2007-1-15 05:56 标题: yuhaomiao
太强了,来到这个论坛,见到的都是这等强人,真是偶的服气啊!
作者: ytfsse 时间: 2007-1-15 09:04
不错呀
作者: ylylpp 时间: 2007-1-15 12:30
双击它只弹出
请您输入菜单制作的个数[数字]
是什么意思呀？？？
作者: taoty 时间: 2007-1-15 12:35
的确很方便，感谢分享。
作者: 261001126 时间: 2007-1-18 06:47
按2自动退出
作者: wingy000 时间: 2007-1-18 09:02
好东西收藏了
作者: timlee 时间: 2007-1-20 11:52
不错啊
作者: zch1366 时间: 2007-1-20 12:15
顶～～！下载收藏～～不错,好东西!
作者: zhenyun168 时间: 2007-1-27 14:21
下了~谢谢
作者: eternitelove 时间: 2007-2-3 04:09 标题: 顶
迟了点
还是顶顶
作者: dj0733 时间: 2007-2-3 07:07
这个要顶。。值得
作者: scjing 时间: 2007-3-7 00:51
正在找这东西，谢谢了
作者: mengzhiyuan 时间: 2007-3-7 02:16
强.我也来学学
作者: icehui 时间: 2007-3-7 08:27
顶定！！嘿嘿
作者: ideacm 时间: 2007-3-8 22:54
这个有什么用吗？
作者: tzpeng 时间: 2007-3-8 23:36
太棒了，支持楼主
作者: axi 时间: 2007-3-15 08:24
试用，谢谢。
作者: anqing 时间: 2007-3-15 08:32
挺经典的
作者: lvming104 时间: 2007-3-15 09:08
怎样才能积分亚
作者: pmwz008 时间: 2007-3-23 10:10
好东西!
作者: Billunique 时间: 2007-3-23 11:55
高手 ！ 真是太强了～
作者: bingxiao20 时间: 2007-3-23 23:53
下载了
谢了
作者: jackyggt 时间: 2007-3-30 12:53
顶了兄弟
作者: nbic 时间: 2007-4-14 09:55
没看到啊。。。
作者: icehui 时间: 2007-4-14 10:21
我怎么看不见在那里下载
作者: dududong 时间: 2007-4-15 13:01
看不见
作者: jackson313 时间: 2007-4-15 14:25
好东西 学习中
作者: 317slf 时间: 2007-4-16 02:41
太厉害了！
作者: windeshadow 时间: 2007-4-16 04:27
东西呢 没看到
作者: ccwan 时间: 2007-4-16 04:34
公布代码：
@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
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
作者: sjs0512 时间: 2007-4-16 06:44
我也来看看哦
作者: lwsxlq 时间: 2007-4-16 10:04
我怎么看不见下载？
作者: menglongfc 时间: 2007-4-22 01:29
楼主在说什么呢?
作者: qpmgljf 时间: 2007-4-22 05:13
不知道是谁惹了9527先生了～～～这么怒啊～～～
作者: w909525 时间: 2007-4-30 20:23
why
作者: zrz000 时间: 2007-4-30 23:48
好东西
作者: 77099234 时间: 2007-5-17 22:19
顶顶
作者: yywd 时间: 2007-5-22 08:06
又有多好东西了
作者: cgi 时间: 2007-5-23 12:35
好東西 , 值得收藏
作者: bhsx 时间: 2007-5-23 17:52
不错~!~!
作者: zjren 时间: 2007-5-23 22:01 标题: 我也顶他一顶
我也顶他一顶
作者: zjren 时间: 2007-5-23 22:02 标题: 晕。怎么没有下载
晕。怎么没有下载
作者: amwltk 时间: 2007-5-24 16:36
什么都没有?不是吧
作者: zysheng110 时间: 2007-10-29 00:33
好久没来，又有这么多好东西了。
作者: llddyy 时间: 2007-11-2 01:22
一种思路
作者: tempuser 时间: 2007-11-12 16:45
下载哪呢?有谁能提供?
作者: fzfchao 时间: 2007-11-20 01:08
找不到附件啊，怎么回事？？？
作者: huahua0919 时间: 2007-11-20 09:28
Why me count't see it??
作者: jyxiaojian 时间: 2007-11-20 12:48
晕我怎么没看到工具在那里啊~
作者: xyq3312 时间: 2007-12-2 10:53
都下载的什么，我怎么什么都看不见呀？
作者: karrian 时间: 2007-12-9 18:57
是啥东东。我喜欢做漂亮的批处理
作者: freeboy1984 时间: 2008-4-20 15:04
我支持批处理