[文本处理] 【已解决】将一个文本里多个特定的字符串依次替换成另一个文本中列出的多行内容

6508as

a.txt文件内容如下：
  TRACK 01 AUDIO
    TITLE "Track01"
    PERFORMER "未知艺术家"
    FLAGS DCP
    INDEX 01 00:00:00
  TRACK 02 AUDIO
    TITLE "Track02"
    PERFORMER "未知艺术家"
    FLAGS DCP
    INDEX 00 04:04:51
    INDEX 01 04:06:51
  TRACK 03 AUDIO
    TITLE "Track03"
    PERFORMER "未知艺术家"
    FLAGS DCP
    INDEX 00 08:51:11
    INDEX 01 08:53:11
  TRACK 04 AUDIO
    TITLE "Track04"
    PERFORMER "未知艺术家"
    FLAGS DCP
    INDEX 00 13:43:47
    INDEX 01 13:45:47

b.txt文件内容如下：
01.第一首歌曲名
02.第二首歌曲名
03.第三首歌曲名
04.第四首歌曲名

要求：把a.txt里的 “Track01”   替换为 b.txt 里的  “01.第一首歌曲名”
         把a.txt里的 “Track02”   替换为 b.txt 里的  “02.第二首歌曲名”
         把a.txt里的 ”Track03”   替换为 b.txt 里的  “03.第三首歌曲名”
         把a.txt里的 “Track04”   替换为 b.txt 里的  “04.第四首歌曲名”


替换后的结果如下：
c.txt文件内容如下：
  TRACK 01 AUDIO
    TITLE "01.第一首歌曲名"
    PERFORMER "未知艺术家 "
    FLAGS DCP
    INDEX 01 00:00:00
  TRACK 02 AUDIO
    TITLE "02.第二首歌曲名"
    PERFORMER "未知艺术家"
    FLAGS DCP
    INDEX 00 04:04:51
    INDEX 01 04:06:51
  TRACK 03 AUDIO
    TITLE "03.第三首歌曲名"
    PERFORMER "未知艺术家"
    FLAGS DCP
    INDEX 00 08:51:11
    INDEX 01 08:53:11
  TRACK 04 AUDIO
    TITLE "04.第四首歌曲名"
    PERFORMER "未知艺术家"
    FLAGS DCP
    INDEX 00 13:43:47
    INDEX 01 13:45:47

不知道能否实现？看了一些贴，大多是替换某一字符的，
如果能实现还望高手们不吝赐教，谢谢！

6508as

非常感谢 WHY 热心及时的回答，在这里向您表示真心的感谢！祝您天天好心情！事事顺心！

WHY

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

WHY

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++]})"
复制代码

WHY

居然搞错了...

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

6508as

非常感谢pcl_test版主的帮助！代码很好 祝事事顺心如意！！！

pcl_test

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

pcl_test

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