标题: [求助]以文件内容首行重命名 [打印本页]
作者: heimukai 时间: 2007-9-8 15:42 标题: [求助]以文件内容首行重命名
操作系统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
作者: wudixin96 时间: 2007-9-8 16:32
@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格式文件处理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