批处理版Java编程器

yuhaodong

@echo off
title 欢迎使用[1+1=2]——Java编程器  Version 2.0 终结版 Code By 呆呆鱼520
setlocal enabledelayedexpansion

:Select
call :DisplayLogo
for /f "tokens=1-15" %%i in ("1. 蓝色 2. 绿色 3. 浅绿色 4. 红色 5. 紫色 6. 黄色 7. 亮白色 回车是默认颜色") do (
echo %%i %%j 
echo %%k %%l
echo %%m %%n
echo %%o %%p
echo %%q %%r
echo %%s %%t
echo %%u %%v
echo (%%w^)
)
set DisplayColor=0
set /p DisplayColor=请选择你喜欢的字体颜色：
if "%DisplayColor%"=="0" cls&call :DisplayLogo&goto Menu
if "%DisplayColor%"=="1" color 09&cls&call :DisplayLogo&goto Menu
if "%DisplayColor%"=="2" color 0a&cls&call :DisplayLogo&goto Menu
if "%DisplayColor%"=="3" color 0b&cls&call :DisplayLogo&goto Menu
if "%DisplayColor%"=="4" color 0c&cls&call :DisplayLogo&goto Menu
if "%DisplayColor%"=="5" color 0d&cls&call :DisplayLogo&goto Menu
if "%DisplayColor%"=="6" color 0e&cls&call :DisplayLogo&goto Menu
if "%DisplayColor%"=="7" color 0f&cls&call :DisplayLogo&goto Menu
cls 
goto Select

:Menu
set Option=0
set class=
echo 1. 新建类
echo 2. 返回
echo 3. 退出
echo 4. 进入作者网站
set /p Option=请选择？
if "%Option%"=="0" cls&call :DisplayLogo&echo 请输入选项！！！&goto Menu
if "%Option%"=="1" cls&call :DisplayLogo&echo 提示：类名必须符合Java命名标准（如：类名第一个字符不能为数字）&goto CreateClass
if "%Option%"=="2" cls&goto Select
if "%Option%"=="3" exit
if "%Option%"=="4" cls&call :DisplayLogo&call :EnterHomePage&goto Menu
if "%class%"=="" cls&call :DisplayLogo&echo 输入选项错误，请从输入！！！&goto Menu

:CreateClass
set class=
set identify=0
set /p class=请输入类名：
if "%class%"=="" cls&call :DisplayLogo&echo 注意: 类名不能为空！！！&echo 提示：类名必须符合Java命名标准（如：类名第一个字符不能为数字）& goto CreateClass
for /l %%i in (0,1,9) do (
if "%class:~0,1%"=="%%i" set identify=1
)
if "%identify%"=="0" (goto begin) else ( cls&call :DisplayLogo&echo 注意: 类名不符合Java命名标准,请从输入！！！&echo 提示：类名必须符合Java命名标准（如：类名第一个字符不能为数字）&goto CreateClass)

:Begin
echo public class %class%{  >c:\%class%.java
echo	   public static void main(String[] args) {   >>c:\%class%.java
echo                          /*请输入编程内容*/	 >>c:\%class%.java
echo. >>c:\%class%.java
echo. >>c:\%class%.java	
echo. >>c:\%class%.java
echo. >>c:\%class%.java
echo	}             >>c:\%class%.java
echo }  >>c:\%class%.java

:Modify
start /wait notepad.exe c:\%class%.java

:Build
set build=0
set /p build=是否进行编译（y/n）?
if /i "%build%"=="y" (goto DisplayResult) else ( if /i "%build%"=="n" (goto ShowNewMenu) else (echo 参数输入错误！！！&goto Build))

:DisplayResult
cls
call :DisplayLogo
C:
cd \
javac %class%.java 
echo 运行结果：
java %class% %ccss%
pause
cls&call :DisplayLogo&echo 提示：类名必须符合Java命名标准（如：类名第一个字符不能为数字）&goto CreateClass

:ShowNewMenu
cls
call :DisplayLogo
set Option1=0
echo 1.对%class%.java进行修改
echo 2.对%class%.java编译
echo 3.删除%class%.java源程序文件
echo 4.退出
set /p Option1=请选择？
if "%Option1%"=="0" goto ShowNewMenu
if "%Option1%"=="1" goto Modify
if "%Option1%"=="2" goto DisplayResult
if "%Option1%"=="3" del c:\*.java &del C:\*.class&cls&call :DisplayLogo&echo 删除成功&pause&cls&call :DisplayLogo&goto Menu
if "%Option1%"=="4" exit
goto ShowNewMenu 

:DisplayLogo
set component1=                     ************************************** 
set component2=                     *                                    *
set component3=                     *        欢迎使用1+1=2系列软件       *
set component4=                     *                                    *
set component5=                     *   注意:该软件基于SUN公司的JDK运行  *
set component6=                     *                                    *
set component7=                     **************************************
for /l %%i in (1,1,7) do (
echo !component%%i!
)
goto :eof

:EnterHomePage
::start http://yuhaodonga.web.dns12580.com
start http://192.168.0.1
goto :eof
复制代码

[ 本帖最后由 yuhaodong 于 2010-5-9 18:22 编辑 ]

junwalo

不错，很好，支持一下！

lxzzr

代码从哪来的哦

凡凡之呗

回复 1# yuhaodong


    神奇的批处理，居然能做到这一点

gd6570

够灵活！赞

林小七

start /wait notepad.exe c:\%class%.java    妙用啊，赞个！