[文本处理] 【已解决】批处理提取文件内容进行重命名操作

屡败屡战

说明一下：如何提取文本中的指定字符串/行内容来更改/替换/重命名原文件名

求助：在某个文件夹下有成百上千个文件，但是txt文件的原标题却是在尾部，其标题行包含关键字“原标题”。

我求助能够批量提取包含关键字“原标题”的“行”并且对文件进行改名。

现在原文如下：

云南西双版纳傣族自治州中老边境上，居住着一群不用护照但可随意进出两国的特殊“边民”，它们就是有着“明星物种”之称的亚洲象。

    原标题中国老挝推动生物多样性跨境联合保护，野象爱上西双版纳--云南频道--人民网
复制代码

我想提取包含关键字“原标题”的“行”并且对文件进行改名。
另外，重申下是针对成百上千个文件进行重命名，而不是单文件重命名。
望老师启发下！！

yhcfsr

@echo off
set "ScDir=D:\temp"
set "spt=原标题"
cd /d "%ScDir%"&cd.>"%ScDir%\error.log"
for /f  "delims=" %%a in ('dir /a-d /s /b *.txt') do (
	for /f  "delims=" %%i in ('findstr /n .* "%%a"') do set "var=%%i"
	setlocal enableDelayedExpansion
	set "tmp=!var!"
	set "var=!var:*%spt%=!"
	if !var! neq !tmp! (ren "%%a" "!var!%%~xa") else (echo %%~a>>"%ScDir%\error.log")
	endlocal
)
pause   
exit
复制代码

屡败屡战

老师，论坛有个求助帖，我一直看不懂，望帮我解释下: 原网址：http://www.bathome.net/thread-12292-1-1.html

对文件名中带有指定字符串的文件放入  该字符串建立的文件夹中

大体都可以实现了，但是现在  有个问题 就是 有个问题

比如  文件名  有 a试验b.txt    a实验b.txt   这两个文件   我给个  关键字 为 “实验 试验”  我想 直接 通过findstr 两个都匹配

但是现在是无法匹配


代码如下：

@echo off
cls
set pa=%cd%
set pa=%pa:"=%
rem keywords.txt 记录分类关键字 每一行为一个关键字，存在或关系的关键放在一行 并用空格分隔
if not EXIST keywords.txt ( echo 未找到关键字文件!按任意键退出!&pause>nul&goto end )
rem 循环建立目录，分类归档
for /f "tokens=*" %%i in (keywords.txt) do (
rem 建立目录
if not EXIST "%pa%\%%i" md "%pa%\%%i"
rem 循环分类归档
for /f "delims=" %%a in ('dir /a-d /b "%pa%"^|findstr /c:"%%i"') do (
rem echo "%%a"
move /-y "%%a"  "%%i\" 2>nul
)
)
goto end
:end
rem pause
exit
复制代码

我弄了个测试目录  目录 里面 有如下文件
keywords.txt
实验新建文本试验 (4).txt
文件归档管理.bat
新建关键测文 (2).txt
新建关键测试文档 (2) - 副本.txt
新建关键试文档 (3) - 副本.txt
新建实验试验 (3).txt
新建文件夹
新建文本文档.txt

keywords.txt  里面给出的关键字为

关键
实验 试验
复制代码

运行的结果是  建立了  “关键”   和  “实验 试验”  三个带有  “关键”的文件已经归入文件夹内，但是 带有 “实验” 或者 “试验” 的文件 没有被移动，
新建的“实验 试验”的文件夹是空的。


但是，现在有个问题，我改成findstr /r 后，代码还是无法执行，不知咋回事？？望解答下。

屡败屡战

自己顶一下，看看有高手帮忙解决一下不。

屡败屡战

自己顶一下，看看有高手帮忙解答一下不。