求優(yōu)化BAT代碼生成當天日期的文件夾并進行操作

【已解決】求優(yōu)化BAT代碼生成當天日期的文件夾并進行操作最后由 rockjean 于 -3-27 19:47根據工作需要編寫了如下代碼，不知是否還可以更加精簡？

@echo off
date /t>date-of-today.txt
for /f tokens=1 %%i in (date-of-today.txt) do echo %%i>new-style-date.txt
for /f tokens=1-3 delims=/ %%i in (new-style-date.txt) do (
mkdir %%i %%j %%k
copy jerry.cmd %%i %%j %%kswap-file.cmd
copy data.txt %%i %%j %%k
copy model.pdf %%i %%j %%k
del date-of-today.txt&del new-style-date.txt
cd %%i %%j %%k)
for /f skip=14 tokens=* %%1 in (swap-file.cmd) do echo %%1 >> rockjean.cmd
del swap-file.cmd
exit
:
@echo off
:choice
choice /C FQ /M 復制模版請按F，取消任務請按Q
if errorlevel 2 goto end
if errorlevel 1 goto file
:
:reborn
copy rockjean.cmd reborn.txt
for /f skip=23 tokens=* %%1 in (reborn.txt) do echo %%1 >> second-swap.txt
ren second-swap.txt reborn.cmd
del reborn.txt
del rockjean.cmd
:
:file
for /f skip=1 tokens=1,2,3 %%i in (data.txt) do copy model.pdf %%i %%j%%k.pdf
ping 127.1 -n 2 >nul
cls
if errorlevel 1 echo 復制失敗了，請檢查哪里出了問題！
if errorlevel 0 echo 恭喜你，復制成功啦！
ping 127.1 -n 2 >nul
cls
goto reborn
:
@echo off
:start
choice /C BQ /M 復制空白請按B，取消任務請按Q
if errorlevel 2 goto end
if errorlevel 1 goto blank
:
:blank
for /f skip=1 tokens=1 %%i in (data.txt) do copy model.pdf %%i 空白.pdf
ping 127.1 -n 2 >nul
cls
if errorlevel 1 echo 復制失敗了，請檢查哪里出了問題！
if errorlevel 0 echo 恭喜你，復制成功啦！
ping 127.1 -n 2 >nul
goto sd00250
:
:end
echo 好的，下次繼續(xù)~
ping 127.1 -n 2 >nul
cls
echo 再見~
ping 127.1 -n 2 >nul
exit
:
:sd00250
copy reborn.cmd sd00250.txt
for /f skip=29 tokens=* %%1 in (sd00250.txt) do echo %%1 >> temp.txt
ren temp.txt done.cmd
del sd00250.txt
del reborn.cmd
@echo off
echo 模版已經復制了，空白也復制了，再點開做什么？
ping 127.1 -n 2 >nul
echo 再見
ping 127.1 -n 2 >nul
del data.txt
del model.*
del done.cmd
nclick="copycode($('code0'));">復制代碼