做的不太好,大家可以帮忙改改- @echo off
- if exist 日记库\ goto start
- md 日记库
- attrib 日记库 +s +h
- echo [.ShellClassInfo]>日记库\desktop.ini
- echo CLSID={21EC2020-3AEA-1069-A2DD-08002B30309D}>>日记库\desktop.ini
- attrib 日记库\desktop.ini +s +h +r
-
- :start
- set sr=
- set /p sr=请输入进入密码:
- if '%sr%'=='2000728' goto gly
- echo 密码错误,请重新输入。
- goto start
-
- :gly
- cd 日记库
- :cc
- cls
- if not exist *.ma echo 当前无日记,请先记日记&goto g2m
- echo.
- call :current_user
- echo.
- :g2m
- set mz=
- set /p mz= [1]记日记 [2]查看日记 [3]删除日记 [q]退出:
- if '%mz%'=='1' goto jrj
- if '%mz%'=='2' goto ckrj
- if '%mz%'=='3' goto del
- if '%mz%'=='q' exit
- goto cc
-
- :current_user
- echo 当前日记列表:
- echo -----------------------------
- for /f %%i in ('dir /b *.ma') do (
- echo %%~ni
- )
- echo -----------------------------
- goto :eof
-
- :jrj
- cls
- set jr=
- set /p jr=是使用 当前日期y 还是自输日期(格式:nn月nn日):
- if '%jr%'=='y' set times=%date:~5,2%月%date:~8,2%日&goto srjj
- set times=%jr%
- :srjj
- echo 请输入日记内容,回车结束:
- set rjnr=
- set /p rjnr=
- echo.>>%times%的日记.ma
- echo 日期:%times% 时间:%time:~0,2%点%time:~3,2%分%time:~6,2%秒>>%times%的日记.ma
- echo %rjnr%>>%times%的日记.ma
- goto cc
-
- :ckrj
- set ckjj=
- set /p ckjj= 请输入日记名称后回车:
- more %ckjj%.ma
- echo 按任意键返回
- pause>nul
- goto cc
-
- :del
- set ckjj=
- set /p ckjj= 请输入日记名称后回车:
- del /f %ckjj%.ma
- echo 按任意键返回
- pause>nul
- goto cc
复制代码
|