[文本处理] word自动重命名批处理这个判断如何加？

yhcbird

各位坛友，写了一个自动为word重命名的代码。这个代码的处理功能是可以把word内容标题是两行的文件进行重命名。
如：word内的标题内容是：
           危险废物处理处置情况明细
              2010年（1月-8月）

1、效果：下面的代码处理结果将会把你的word的文件自动重命名为
危险废物处理处置情况明细2010年（1月-8月）.doc
2、问题：很多文件标题只有一行，那么这个也好写.这时我想加个判断.从而把这两种情况区分开，思路如下：
判断第一次出现的空白行,空白行前面的都是标题.
大家有没有更好的建议。

@echo off
setlocal enabledelayedexpansion
for %%a in (*.doc) do (
doc2txt "%%a"
set "c=%%a"
set "y=%%~na")
@echo off
(for /f "usebackq delims=" %%a in ("!y!.txt") do (
set/p"=%%a"<nul
if defined n (
echo/
set n=
) else set n==
))>a.txt
set/p x=<a.txt
ren "!c!" "%x%.doc" 
pause
复制代码

[ 本帖最后由 yhcbird 于 2011-1-27 17:26 编辑 ]

yhcbird

没人回。自己顶一个：）