[已解决]批处理如何提取指定内容之间的字符串重命名文件？

xp3000 · 发表于 2015-6-24 13:52:54

本帖最后由 xp3000 于 2015-6-24 17:09 编辑

比如有大量TXT，文件名如下：
000001 第1章远古神墓 .txt
第2章惊艳.txt

提取分组2的字符串（第到章之间的字符串），替换命名为
第1章.txt
第2章.txt

要方便理解和修改的，因为有时候需要提取重命名为：第1章远古神墓.txt

第二个是HTML文件内容的，下面是个文本的内容，
提取<title>到</title>之间的字符串给文件重命名（也就是命名为：神墓.HTML）：
<head>
<title>神墓</title>
</head>
<body>
......
</body>
</html>

pcl_test · 发表于 2015-6-24 16:13:24

本帖最后由 pcl_test 于 2015-6-24 16:25 编辑

一、

ren2 -f "(.*)(第\d+章)(.*)(\.txt)" "$2$4"

复制代码

http://batch-cn.qiniudn.com/tool/ren2.exe
二、保存为bat文件运行即可，不知你的html的编码，默认gb2312，自行修改

@set @n=0; /* & echo off
dir /b *.html|cscript -nologo -e:jscript "%~0"
pause & exit/b & rem */
var loadText = function (strFileIn,strCharset){
try{
var stream = new ActiveXObject('ADODB.Stream');
stream.Type = 2;
stream.Mode = 3;
stream.Charset = strCharset;
stream.Open();
stream.LoadFromFile(strFileIn);
stream.Position = 0;
return stream.ReadText;
}
catch(Err){}
}
var fso = new ActiveXObject("Scripting.FileSystemObject");
while(!WScript.StdIn.AtEndOfStream){
var file = WScript.StdIn.ReadLine();
var ext = file.split('.').pop().toLowerCase();
var HtmlText = loadText(file,'gb2312');
var m = HtmlText.match(/(?:<title>)(.+?)(?=<\/title>)/);
if(m){
var f = fso.GetFile(file);
f.Move(m[1]+"."+ext);
}
}

复制代码

xp3000 · 发表于 2015-6-24 17:18:56

ren2.exe好强，如果不用下附件，第一个大量TXT的，以空格分割开提取，怎样写？

pcl_test · 发表于 2015-6-24 18:13:06

本帖最后由 pcl_test 于 2015-6-24 18:18 编辑

回复 3# xp3000
不借助第三方，可以这样

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /b *.txt') do (
for %%b in (%%~na) do (
set "str=%%b"
set "t=!str:~1,-1!$"
if "!t!" neq "$" (
for /l %%c in (0 1 9) do set "t=!t:%%c=!"
if "!str:~,1!" equ "第" if "!str:~-1,1!" equ "章" if "!t!" equ "$" ren "%%a" "%%b%%~xa"
)))
pause

复制代码

@echo off
for /f "delims=" %%a in ('dir /b *.txt') do (
for %%b in (%%~na) do echo %%b|findstr "第[0-9][0-9]*章" >nul&&ren "%%a" "%%b%%~xa"
)
pause

复制代码

xp3000 · 发表于 2015-6-25 16:09:56

碰到中间中文的不能解决
000001 第一章远古神墓 .txt
第二章惊艳.txt

pcl_test · 发表于 2015-6-25 19:01:08

回复 5# xp3000

@set @n=0; /* &@echo off
dir /b *.txt|cscript -nologo -e:jscript "%~0"
pause&exit/b& rem */
var fso = new ActiveXObject("Scripting.FileSystemObject");
while(!WScript.StdIn.AtEndOfStream){
var file = WScript.StdIn.ReadLine();
var ext = file.split('.').pop().toLowerCase();
var m = file.match(/(第[0-9〇零一二三四五六七八九十百千万]+?章)\s?/);
if(m){
var f = fso.GetFile(file);
f.Move(m[1]+"."+ext);
}
}

复制代码

		自动登录	找回密码
密码			注册

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

[文本处理] [已解决]批处理如何提取指定内容之间的字符串重命名文件？

评分

评分

评分

评分