中国DOS联盟

操作系统WINXP+SP2
本人有很多TXT和DOC文件，放在不同的文件夹1，2，3，4...
1.文件多数是数字构造，没有特定的规律；
2.文件首行文字为中文，但有的是首行空行，第二行是文字，除了（空白键）没有其他特殊字符；
目标：
希望能将文件重命名为首行文本内容（首行空行则先删除首行）

这个是我找的，但是用了以后只能保留10个汉字（20字符），而且文本首行必须不是空行？
请高手指点一下，本人刚刚接触DOS不久，里面的语句都还不是特别清楚，

@echo off
setlocal ENABLEDELAYEDEXPANSION
for /f "delims=" %%a in ('dir /s/b *.txt') do (
for /f "tokens=1,2 delims=:" %%i in ('findstr /n "." "%%a "') do (
set n=%%j
if "%%i"=="1" (ren "%%~nxa" "!n:~0,20!.txt" 2>nul) else (
if "%%i"=="2" (ren "%%~nxa" "!n:~0,20!.txt" 2>nul )))

)
)
endlocal


;;批量删除文本文件中的空行
@echo off
if {%1}=={} goto :EOF
:begin
if {%1}=={} goto end
call :DelBlank %1
shift
goto begin
:DelBlank
if not exist %1 goto :EOF
echo Deleting Balnk Lines in %1
echo.
type %1 | findstr /V "^$" >C:\_tmp.Shilyx
type C:\_tmp.Shilyx>%1
goto :EOF
:end
if exist C:\_tmp.Shilyx del C:\_tmp.Shilyx
echo Process Succeed, press any key to exit ...
pause>nul

@echo off

setlocal enabledelayedexpansion

for /r %%i in (*.txt) do (

set num=0

 for /f "usebackq delims=" %%a in ("%%i") do (

   set /a num+=1

   if !num!==1 ren "%%i" "%%a.txt"

 )

)

pause

这样？不能对doc格式文件处理