现在原文如下：

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

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

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

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

关键
实验 试验
复制代码