[已解决]批处理怎样批量提取TXT文件第一行对文件进行改名？ - BAT求助&讨论 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS

zxzl

Rank: 2

帖子: 43
积分: 152
技术: 0
捐助: 0
注册时间: 2010-5-20

17楼

发表于 2010-6-19 14:41 | 只看该作者

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

sgaizxt001

大校

Rank: 7 Rank: 7 Rank: 7

帖子: 563
积分: 4043
技术: 3
捐助: 0
注册时间: 2009-11-25

18楼

发表于 2010-6-19 20:28 | 只看该作者

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

努力学习，努力挣分

Batcher

管理员

Rank: 12

帖子: 14918
积分: 46123
技术: 857
捐助: 745
注册时间: 2008-6-9

19楼

发表于 2010-6-19 21:08 | 只看该作者

回复 17楼的帖子

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

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

lshhjx

Rank: 1

帖子: 2
积分: 17
技术: 0
捐助: 0
注册时间: 2010-6-8

20楼

发表于 2010-6-20 12:23 | 只看该作者

原帖由 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 ...

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

BowAngel

Rank: 1

帖子: 13
积分: 42
技术: 1
捐助: 0
注册时间: 2010-4-21

21楼

发表于 2010-6-21 13:01 | 只看该作者

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

BowAngel

Rank: 1

帖子: 13
积分: 42
技术: 1
捐助: 0
注册时间: 2010-4-21

22楼

发表于 2010-6-21 15:23 | 只看该作者

翻阅老帖，看来可以用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 编辑 ]

zxzl

Rank: 2

帖子: 43
积分: 152
技术: 0
捐助: 0
注册时间: 2010-5-20

23楼

发表于 2010-6-21 15:41 | 只看该作者

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

BowAngel

Rank: 1

帖子: 13
积分: 42
技术: 1
捐助: 0
注册时间: 2010-4-21

24楼

发表于 2010-6-21 15:57 | 只看该作者

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

什么问题？

zxzl

Rank: 2

帖子: 43
积分: 152
技术: 0
捐助: 0
注册时间: 2010-5-20

25楼

发表于 2010-6-21 16:26 | 只看该作者

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

73yexs4f8qzk

Rank: 1

帖子: 14
积分: 46
技术: 0
捐助: 0
注册时间: 2010-6-21

26楼

发表于 2010-6-21 19:49 | 只看该作者

@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"
)
复制代码

1 评分人数

Batcher: 乐于助人PB + 5

Batcher

管理员

Rank: 12

帖子: 14918
积分: 46123
技术: 857
捐助: 745
注册时间: 2008-6-9

27楼

发表于 2010-6-21 20:33 | 只看该作者

回复 25楼的帖子

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

zxzl

Rank: 2

帖子: 43
积分: 152
技术: 0
捐助: 0
注册时间: 2010-5-20

28楼

发表于 2010-6-21 23:56 | 只看该作者

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

810126769

Rank: 1

帖子: 14
积分: 27
技术: 0
捐助: 0
注册时间: 2013-8-22

29楼

发表于 2013-8-23 17:05 | 只看该作者

回复 26# 73yexs4f8qzk

真的太巧妙了！佩服！

810126769

Rank: 1

帖子: 14
积分: 27
技术: 0
捐助: 0
注册时间: 2013-8-22

30楼

发表于 2013-8-23 17:20 | 只看该作者

回复 26# 73yexs4f8qzk

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

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