[文本处理] [分享]批处理日记记录器

111

做的不太好，大家可以帮忙改改

@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
复制代码

BAT-VBS

第46行可能会出错，因为不是每个系统的日期格式都是那个样子的。