@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in ('type "b.txt"') do set /a n+=1&set "#!n!=%%a"
set n=0
for /f "delims=" %%a in ('type "a.txt"') do (
    set "str=%%a"
    if "!str:TITLE=!" neq "!str!" (
        set /a n+=1
        if defined #!n! (
            call echo;    TITLE "%%#!n!%%"
        ) else echo;%%a
    ) else echo;%%a
)
pause
复制代码

//&cls&cscript -nologo -e:jscript "%~f0"&pause&exit

var fso=new ActiveXObject('Scripting.FileSystemObject'),b=[],n=0;
var b=fso.OpenTextFile('b.txt',1).ReadAll().split(/[\r\n]+/);
var a=fso.OpenTextFile('a.txt',1).ReadAll();
var a=a.replace(/\b(TITLE\s*?)".*"/g,function($0,$1){
    n++;
    return b[n-1]?$1+'"'+b[n-1]+'"':$0;
})
WSH.echo(a);
复制代码

rem win7及以上系统运行
powershell -c "$n=0;$b=gc 'b.txt';gc 'a.txt'|%%{if($_ -match '^\s*?TITLE\s*?\".*\"'){if($b[$n]){$_ -replace '\".*\"\s*$',$b[$n];}else{$_};$n++;}else{$_}}"
pause
复制代码

rem 第三方http://www.bathome.net/s/tool/index.html?down&key=gawk
gawk "NR==FNR{b[NR]=$0;next}/^\s*TITLE\s*\".*\"/{t++;if(b[t])sub(/\".*\"/,\"\x22\"b[t]\"\x22\")}1" "b.txt" "a.txt"
pause
复制代码

@echo off & setlocal enabledelayedexpansion
(for /f "delims=" %%i in (a.txt) do (
    for /f %%j in ("%%i") do (
        if "%%j" == "TITLE" (set "s=" & set /p "s=" & echo;  %%j "!s!") else echo;%%i
    )
))<b.txt>c.txt
复制代码

set "s=[IO.File]::ReadAllText('a.txt', [Text.Encoding]::Default)"
PowerShell -c "$a=type 'b.txt';[regex]::Replace(%s%, '(?im)(?<=^\s*TITLE\s+\").*?(?=\")',{$a[$global:i++]})"
复制代码

gawk "{if(match($0,/^(\s*TITLE\s+\").*(\")$/,a)){getline s<\"b.txt\";$0=a[1]s\"\"a[2]}};1" a.txt
复制代码