@echo off
color 6a
title 复杂的程序不是好程序！好用的程序才是好程序！BY电信2班生活委员~
echo 倒霉孩子！！！玩了一节课？没做作业？？&pause>nul
echo 那就让我帮你做作业吧~&pause>nul
echo 谢谢我吧，哈哈&pause>nul&cls
:bof
cls
echo ***********************************************
echo **************选择功能*************************
echo ***********************************************
echo 可选功能：
echo   1.大学计算机基础实验1
echo   0.退出
set /p choose=请选择
cls
if "%choose%"=="0" echo 做完了？？那886&pause>nul&exit
if "%choose%"=="1" (goto a) else (goto b)
:a
cls
echo ************************************************
echo 1.大学计算机基础实验1
echo ************************************************
echo a.电子信息工程
echo b.通讯工程
echo c.电子科学与技术
echo d.自动化
set /p h=请输入班名
if "%h%"=="a" goto dx
if "%h%"=="b" goto tx
if "%h%"=="c" goto dk
if "%h%"=="d" goto zd
echo 不存在的班号&pause>nul&goto a
:dx
set /p n=请输入班号
md 电子信息工程%n%班 2>nul 
cd 电子信息工程%n%班
goto step
:tx
set /p g=请输入班号
md 通讯工程%g%班 2>nul 
cd 通讯工程%g%班
goto step
:dk
set /p g=请输入班号
md 电子科学与技术%g%班 2>nul 
cd 电子科学与技术%g%班
goto step
:zd
set /p g=请输入班号
md 自动化%g%班 2>nul 
cd 自动化%g%班
goto step
:step
set /p name=请输入姓名
set /p other=请输入学号
md %other%-%name%
cd ..
echo 完成，任意键返回 &pause>nul&cls
goto bof
:b 
echo 功能不存在，任意键返回&pause>nul
goto bof
复制代码

echo a.电子信息工程
echo b.通讯工程
echo c.电子科学与技术
echo d.自动化
set /p h=请输入班名
if "%h%"=="a" goto dx
if "%h%"=="b" goto tx
if "%h%"=="c" goto dk
if "%h%"=="d" goto zd
echo 不存在的班号&pause>nul&goto a
:dx
set /p n=请输入班号
md 电子信息工程%n%班 2>nul 
cd 电子信息工程%n%班
goto step
:tx
set /p g=请输入班号
md 通讯工程%g%班 2>nul 
cd 通讯工程%g%班
goto step
:dk
set /p g=请输入班号
md 电子科学与技术%g%班 2>nul 
cd 电子科学与技术%g%班
goto step
:zd
set /p g=请输入班号
md 自动化%g%班 2>nul 
cd 自动化%g%班
goto step
:step
set /p name=请输入姓名
set /p other=请输入学号
md %other%-%name%
cd ..
echo 完成，任意键返回 &pause>nul&cls
goto bof
复制代码

set str=a.电子信息工程 b.通讯工程 c.电子科学与技术 d.自动化
for %%i in (%str%) do (
for /f "tokens=1,2 delims=." %%a in ("%%i") do (
echo %%a %%b
set %%a=%%b
)
)
set /p h=请输入班名：
if not defined %h% (echo 不存在的班号&pause>nul&goto a)
call :input %%%h%%%
goto bof

:input
set /p uuu=请输入班号：
md %~1%uuu%班
set /p hhh=请输入姓名：
set /p bbb=请输入学号：
md %~1%uuu%班\%hhh%-%bbb%
echo 完成，任意键返回 &pause>nul&cls
goto :eof
复制代码

@echo off
:a
cls
set a=电子信息工程&set b=通讯工程&set c=电子科学与技术&set d=自动化
echo a.%a% 
echo b.%b% 
echo c.%c% 
echo d.%d%

set /p h=请输入班名:
if "%h%" geq "a"  (if "%h%" leq "d" goto main)
echo 不存在的班名&pause>nul&goto a

:main
set /p n=请输入班号
call md %%%h%%%%n%班>nul 
call cd %%%h%%%%n%班
set /p name=请输入姓名
set /p other=请输入学号
md %other%-%name%
cd ..
echo 完成，任意键返回 &pause>nul&cls
goto :eof
复制代码