batman

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1,2 delims=:" %%a in ('findstr /n .* a.txt') do set "_%%a=%%b"
(for /f "tokens=1* delims=A" %%a in (x.txt) do (
    set "str=%%b"&set "a=!str:~,3!"
    for %%c in (!a!) do echo %%a!_%%c!!str:~3!
))>bbb.txt
start bbb.txt
复制代码

batman

开始看错题意，下面代码只考虑了一行最多要替换4个的情况，如不够请自行修改：

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1,2 delims=:" %%a in ('findstr /n .* a.txt') do set "_%%a=%%b"
(for /f "tokens=1-5 delims=A" %%a in (x.txt) do (
    set "var="
    call :lp "%%b" "%%c" "%%d" "%%e"
    echo %%a!var!
))>bbb.txt
start bbb.txt&goto :eof
:lp
set "str=%~1"&set "a=!str:~,3!"
for %%a in (!a!) do set "var=!var!!_%%a!!str:~3!"
if "%~2" neq "" shift&goto lp
复制代码

batman

7# w1983912
1 tokens=1-5
2 call :lp "%%b" "%%c" "%%d" "%%e"

batman

vbs版（好麻烦）：

Dim a(10000)
Set fso = CreateObject("scripting.filesystemobject")
fso.OpenTextFile("a.txt", 8, 1).WriteLine vbcrlr & "end"
Set otext = fso.OpenTextFile("a.txt", 1, 1)
Do Until a(i) = "end"
  i = i + 1
  a(i) = otext.ReadLine()
Loop
otext.Close
Set otext = fso.OpenTextFile("x.txt", 1, 1)
vbstr = otext.ReadAll()
For i = 0 To UBound(Split(vbstr, "A"))
  If InStr("123456789", Left(Split(vbstr, "A")(i), 1)) Then
    vbvar = vbvar & a(Left(Split(vbstr, "A")(i), 3)) & Right(Split(vbstr, "A")(i), Len(Split(vbstr, "A")(i))-3)
  Else
    vbvar = vbvar & Split(vbstr, "A")(i)
  End If
Next
otext.Close
fso.OpenTextFile("bbb.txt", 2 ,1).Write vbvar
Set fso = Nothing
复制代码