[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

1、效果:下面的代码处理结果将会把你的word的文件自动重命名为
危险废物处理处置情况明细2010年(1月-8月).doc
2、问题:很多文件标题只有一行,那么这个也好写.这时我想加个判断.从而把这两种情况区分开,思路如下:
判断第一次出现的空白行,空白行前面的都是标题.
大家有没有更好的建议。
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for %%a in (*.doc) do (
  4. doc2txt "%%a"
  5. set "c=%%a"
  6. set "y=%%~na")
  7. @echo off
  8. (for /f "usebackq delims=" %%a in ("!y!.txt") do (
  9. set/p"=%%a"<nul
  10. if defined n (
  11. echo/
  12. set n=
  13. ) else set n==
  14. ))>a.txt
  15. set/p x=<a.txt
  16. ren "!c!" "%x%.doc"
  17. pause
复制代码

[ 本帖最后由 yhcbird 于 2011-1-27 17:26 编辑 ]
菜鸟学批,一批一大批~~~~~~

没人回。自己顶一个:)
菜鸟学批,一批一大批~~~~~~

TOP

返回列表