[文本处理] 各位老师，请教批处理文本替换的问题

@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
(for /f "tokens=1*" %%a in ('type "aa1.txt"') do (
    set "StrCol=%%a"
    if "!StrCol:~-3!" equ "000" (
        set "StrPrefix=!StrCol:~0,-3!"
        set "StrFull=X"
        for /f %%i in ('findstr "!StrPrefix!" "bb1.txt"') do (
            set "StrFull=%%i"
        )
        if "!StrFull!" neq "X" (
            echo !StrFull!      %%b
        ) else (
            echo %%a      %%b
        )
    ) else (
        echo %%a      %%b
    )  
))>"cc1.txt"
复制代码

gawk "NR==FNR{if(length($1)==18)a[substr($0,1,15)]=$1}NR>FNR{A=substr($0,1,15);if(substr($0,16,3)==\"000\")if(A in a)$0=a[A] substr($0,19,length($0)-18);print}" bb1.txt aa1.txt>cc1.txt
复制代码

powershell -noprofile -executionpolicy bypass "$b=gc bb1.txt;$a=(gc aa1.txt);$a|?{$_ -match '.+000 *.+' -and $b -match [regex]::Matches($_,'(.+)000').groups[1].value}|%%{$a=$a.Replace([regex]::Matches($_,'.+000').value,$b -match [regex]::Matches($_,'(.+)000').groups[1].value)};$a >new_aa1.txt"
复制代码