@echo off & cd /d "%~dp0"
setlocal enabledelayedexpansion
REM txt设置
set "t1=A.txt"
set "t2=B.txt"
for %%i in ("%t1%") do set "new_file=%%~ni_NEW%%~xi"
REM 替换文件
(
	for /f "usebackq delims=" %%i in ("%t1%") do (
		for /f "tokens=1* delims==" %%a in ("%%i") do (
			set "a=%%a"
			REM TitleList.ContextNumber查找并替换
			if "!a:~0,24!"=="TitleList.ContextNumber." (
				( for /f "tokens=3" %%c in ('findstr /e /C:"\/\/!ctx%%~xa!" "%t2%" 2^>nul') do echo %%a=%%c ) || echo %%i
			) else (
				REM TitleList.Url保存*.html
				if "!a:~0,14!"=="TitleList.Url." set "ctx%%~xa=%%b"
				echo %%i
			)
		)
	)
) > "%new_file%"
pause&exit
复制代码

@echo off
setlocal enabledelayedexpansion
cd /d "%~dp0"
(for /f "delims=" %%i in ('type "A.txt"') do (
    for /f "tokens=1* delims==" %%a in ("%%i") do (
        set "Column1=%%a"
        if "!Column1:~0,14!" equ "TitleList.Url." (
            set "Column2%%~xa=%%b"
            echo,%%i
        ) else if "!Column1:~0,24!" equ "TitleList.ContextNumber." (
            if "!Column2%%~xa!" neq "" (
                for /f "tokens=3" %%c in ('findstr /e "\/\/!Column2%%~xa!" "B.txt"') do (
                    echo,%%a=%%c
                )
            ) else (
                echo,%%i
            )
        ) else (
            echo,%%i
        )
    )
))>"A_New.txt"
复制代码

"!ctx%%~xa!"
复制代码

/C:"\/\/!ctx%%~xa!"
复制代码

<# :
cls&echo off&cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText(\"%~f0\",[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
pause
exit
#>
$file1="A.txt";
$file2="B.txt";

if(-not (test-path -literal $file1)){write-host ('"'+$file1+'" not found');exit;}
if(-not (test-path -literal $file2)){write-host ('"'+$file2+'" not found');exit;}

$enc=[Text.Encoding]::GetEncoding('GB2312');
$dic=New-Object 'System.Collections.Generic.Dictionary[string, string]';
$text2=[IO.File]::ReadAllLines($file2, $enc);
for($i=0;$i -lt $text2.length;$i++){
    $m=[regex]::match($text2[$i], '(\d+) *//([^\r\n]+)');
    if($m.Success){
        $k=$m.groups[2].value.ToLower();
        if(-not $dic.ContainsKey($k)){$dic.add($k, $m.groups[1].value);}
    }
}

$text1=[IO.File]::ReadAllText($file1, $enc);
$text1=[regex]::replace($text1, '(TitleList.Url.\d+=([^\r\n]+)[\s\S+]*?TitleList.ContextNumber.\d+=)[^\r\n]*', {
    param($m);
    $k=$m.groups[2].value.ToLower();
    if($dic.ContainsKey($k)){
        $m.groups[1].value+$dic[$k];
    }else{$m.groups[0].value;}
});
[IO.File]::WriteAllText($file1, $text1, $enc);
复制代码

@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
(for /f "tokens=1* delims=:" %%h in ('findstr /n .* "A.txt"') do (
    if "%%i" neq "" (
        for /f "tokens=1* delims==" %%a in ("%%i") do (
            set "Column1=%%a"
            if "!Column1:~0,14!" equ "TitleList.Url." (
                set "Column2%%~xa=%%b"
                echo,%%i
            ) else if "!Column1:~0,24!" equ "TitleList.ContextNumber." (
                if "!Column2%%~xa!" neq "" (
                    for /f "tokens=3" %%c in ('findstr /e "\/\/!Column2%%~xa!" "B.txt"') do (
                        echo,%%a=%%c
                    )
                ) else (
                    echo,%%i
                )
            ) else (
                echo,%%i
            )
        )
    ) else (
        echo,
    )
))>"A_New.txt"
复制代码