[文件操作] 求助批处理TXT文件批量修改文件名

zxcdingjia

批处理抓取TXT文档里固定位置的内容来重命名文件（1000多个）
本来是HTML文件我转换成了TXT，有不用转换可以批量修改的方法也行。
需要抓取第9行，第45-64列的文字来重命名文件，就是图内选定蓝色的日期。（这个日期是固定的位置）

wujunkai

原文件叫什么？

第45-64列的文字

是什么意思？

请表达清楚点
如果能把html文件发上来更好

zxcdingjia

回复 2# wujunkai


    源文件是HTML（1000多个）被我批量转换为了TXT  现在就是把TXT文件里那段选定的时间作为文件的名字
这些被转换为TXT文件的前9行代码截至到时间前面全都一致

zxcdingjia

回复 2# wujunkai


   HTML文件转换为TXT后图片里选定的那个时间是在第9行 从45列开始至64列结束
1000多个文件这段时间都不重复

Batcher

回复 1# zxcdingjia


    请把其中一个txt文件压缩一下传上来我测试代码

zxcdingjia

回复 5# Batcher

smss

回复 6# zxcdingjia
截取时间命名该文本吗2020-06-05 18:18:37
如果是命名时不可包含:

zxcdingjia

回复 7# smss


    不要:也可以的

smss

powershell "if(((gc '*.txt') -join \"`r`n\") -match '\"publish\" content=\"published at (.+?) from mysteel-publish-web\"'){$matches[1]}"
复制代码

powershell "if(((gc '*.txt') -join \"`r`n\") -match '\"publish\" content=\"published at (.+?) from mysteel-publish-web\"'){$matches[1]};get-childItem  -r *.txt | rename-Item -newname{$matches[1]+'.txt'}"
复制代码

结合这个改改就能用了
http://www.bathome.net/viewthread.php?tid=55818&rpid=229402

Batcher

回复 6# zxcdingjia

@echo off
setlocal enabledelayedexpansion
cd /d "%~dp0"
for /f "delims=" %%a in ('dir /b /a-d *.txt') do (
    call :ChangeName "%%a"
    ren "%%a" "!NewName!%%~xa"
)
goto :eof

:ChangeName
for /f "skip=8 tokens=3 delims==" %%i in ('type %1') do (
    set "str=%%i"
    goto :GetName
)
goto :eof

:GetName
set "NewName=!str:~14,19!"
set "NewName=!NewName::=!"
goto :eof
复制代码

zxcdingjia

回复 10# Batcher


    谢谢大佬 很好用

zxcdingjia

回复 9# smss


    谢谢  已经解决了