[文本处理] [已解决]批处理怎样批量提取TXT文件第一行对文件进行改名？

zxzl

如题，一个目录下有大量TXT文件，文件名可能是1.txt, 2.txt ,3.txt……  每个TXT文件的内容格式如下：

这是文件标题这是文件标题

这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容。

现在想把每个TXT文件改名，即用每个TXT文件的第一行内容作为标题，同时删除内容中的第一行和第二行空行，处理后TXT文件内容变成：

这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容这是文件内容。

请问批处理该怎么写呢

[ 本帖最后由 zxzl 于 2010-6-21 23:57 编辑 ]

810126769

回复 26# 73yexs4f8qzk

这句代码不好理解啊：
    set /p NewName=<"%%a"

我的理解是NewName这个变量得到的是%%a代表的txt文件的全部内容。可是在下一句中：
more +2 "!OldName!" > "!NewName!.txt"
从这里句代码来看的话，NewName这个变量应该是%%a代表的文本文件中第一行的内容啊。可是没有看到有一句从%%a中提取第一行内容的代码啊？
有没有谁能理解这句代码，帮我解释一下,谢谢！

810126769

回复 26# 73yexs4f8qzk


    真的太巧妙了！佩服！

zxzl

26楼的代码可以实现这个功能了，谢谢各位兄弟

Batcher

能否把你的数据更新到顶楼？

73yexs4f8qzk

@echo off
for /f "delims=" %%a in ('dir /a:-d /b *.txt') do (
    set OldName=%%a
    set /p NewName=<"%%a"
    SetLocal EnableDelayedExpansion
    more +2 "!OldName!" > "!NewName!.txt"
    EndLocal
    del /a /f "%%a"
)
复制代码

zxzl

不能全部处理，而且有错误提示，你可以试一下

BowAngel

原帖由 zxzl 于 2010-6-21 15:41 发表
感谢楼上，不过还是有点问题，您可以新建几个文件试一下

什么问题？

zxzl

感谢楼上，不过还是有点问题，您可以新建几个文件试一下

BowAngel

翻阅老帖，看来可以用VBS解决批处理遇到的问题，哈哈，放心了O(∩_∩)O~

set fso=createobject("scripting.filesystemobject")
set fd=fso.getfolder(".")
fpath=fd.path
set fo=fso.getfolder(fpath)
set fc=fo.files
for each f in fc
    ext=f.type
    if ext="文本文档" then
        strtext=""
        set rfile=fso.opentextfile(f)
        fname=rfile.readline
        rfile.skipline
        do until rfile.atendofstream=true
            strline=rfile.readline
            strtext=strtext&strline&vbcrlf
        loop
        rfile.close
        set wfile=fso.opentextfile(f,2)
        wfile.write strtext
        wfile.close
        newname=fname&".txt"
        f.name=newname
    end if
next
复制代码

如果txt文件较多，可能会等待几秒

[ 本帖最后由 BowAngel 于 2010-6-21 15:28 编辑 ]

BowAngel

可以用VBS实现楼主所要的结果，但不知道在这个版块发VBS代码是不是不太合适。。。。。。

lshhjx

原帖由 hanyeguxing 于 2010-6-18 11:58 发表
@echo off
for %%a in (*.txt) do (
   setlocal enabledelayedexpansion
   (for /F "usebackq delims=" %%b in ("%%a") do (
      if defined b (echo.%%b) else set "a=%%b"
      set b==
   ))>$
   re ...

在我机子上我用这段代码测试了一下，发现并不能完成楼主需要的功能，提示“存在一个重名文件，或是找不到文件”，不知是怎么回事。

Batcher

能否把其中一个文件用附件的形式传上来看看？

sgaizxt001

难道是你文本编码的问题？

zxzl

偶真的很郁闷，楼上诸位高手给出的代码为什么没有一个可以成功运行的？