[文本处理] 【出题】批处理更改文本文件名为该文件的第一行内容

youxi01

不知不觉间,写了20多篇 有关感情方面的文章
打算再不更新QQ空间，故将这些文字整理了出来...

这些文章的大致内容如图:


要求:
1、根据第一行内容的日期部分，重命名文件；
如：此篇文章文件名为“秋天的蝴蝶”，第一行内容日期部分为：2007年1月1日，然后我们的新文件名应为：秋天的蝴蝶 2007-1-1
2、删除第一行内容；
3、支持批量重命名，最好还支持单个文件拖放更名；

youxi01

提几点建议：
1、

set a=%%i
for /l %%j in (1 1 10) do set a=!a:*\=!
for /f "tokens=1* delims=." %%k in ("!a!") do set a=%%k

获取文件名没必要用这样的方法，可以用变量名扩展，%%~ni
2、

for /f "tokens=1,2* delims= " %%m in ("!shijian!") do set shijian=%%n
set shijian=!shijian:年=-!
set shijian=!shijian:月=-!
set shijian=!shijian:日=!
set name=!a!!shijian!
ren "%%i" !name!.txt
)

重命没必要放在for循环中，也没必要读取全部文件内容；
3、没有删除 文件的第一行内容；
4、不支持单个文件的拖放；