@echo off &setlocal enabledelayedexpansion
(for /f "tokens=1-6 delims=(,)" %%a in (
   'findstr /i "([a-z][a-z]*,[a-z][a-z]*)" 《原文》.txt') do (
   set "s=%%a(_%%b,_%%c)" &if "%%d" neq "" set "s=!s!%%d(_%%e,_%%f)"
   for /f "tokens=1-2 delims==" %%x in (
      'findstr /i "%%b= %%c= %%e= %%f=" 《字典》.txt') do set "s=!s:_%%x=%%y!"
   echo,!s!
))>"《原文》.new.txt" 2>nul
type "《原文》.new.txt"
endlocal&pause&exit/b
复制代码

@echo off &setlocal enabledelayedexpansion
(for /f "delims=" %%s in (《原文》.txt) do (
   set "s=%%s"
   for /f "tokens=1-8 delims=()" %%a in ("%%s") do (
      for %%i in ("%%b" "%%d" "%%f" "%%h") do (
         for /f "tokens=1-2 delims=,+-/*" %%1 in ("%%~i") do (
            set "v=%%1=" &if "%%2" neq "" set "v=!v! %%2="
            for /f "tokens=1-2 delims==" %%x in (
               'findstr /i "!v!" 《字典》.txt'
            ) do set "s=!s:(%%x=(%%y!" &set "s=!s:%%x)=%%y)!")
      ))
   if "%%s" neq "!s!" echo,!s!
))>"《原文》.new.txt" 2>nul
type "《原文》.new.txt"
endlocal&pause&exit/b
复制代码

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$aaaa='字典.txt'
$bbbb='原文.txt'
gc $aaaa|%{$cccc=$_ -split '=';iex('$'+$cccc[0]+'="'+$cccc[1]+'"')}
(gc $bbbb)|%{
 [regex]::replace(
  $_,
  '(?<=\()[^)]+(?=\))',
  {
   [regex]::replace(
    $args[0].groups[0]-join'',
    '\w+',
    {iex('$'+$args[0].groups[0])}
   )
  }
 )
}|sc $bbbb
复制代码

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$aaaa='字典.txt'
$bbbb='原文.txt'
$dddd='结果.txt'
$eeee=gc $bbbb
gc $aaaa|%{$cccc=$_ -split '=';$eeee=$eeee -replace $cccc[0],$cccc[1]}
sc $dddd $eeee
复制代码

楼主后来提供的示例文件和要求，与开始定义的原文/字典规则出现了冲突，并加入了函数表达式整体置换的要求，如此，原文不是纯粹的原文，字典不是纯粹的字典，而且依据变量替换的顺序或依据函数表达式整体替换的顺序会导出不同的结果

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$aaaa='字典.txt'
$bbbb='原文.txt'
$dddd='结果.txt'
gc $aaaa|?{$_ -match '='}|%{$cccc=$_ -split '=';iex('$'+$cccc[0]+'="'+$cccc[1]+'"')}
$table=@{}
gc $bbbb|?{$_ -match '='}|%{
    $s=$_.trim()
    while(
        [regex]::matches($s,"\w+(?=(\((?:[^()]+|(?<Open>)\(|(?<-Open>)\))+(?(Open)(?!))\)))")|%{
            $i=$_.groups[0].value+$_.groups[1].value
            $table[$_.groups[0].value]=$_.groups[0].value+$_.groups[1].value
            if($i -match '^\w+\([^)]+\)$'){
                $s=$s -replace [regex]::Escape($i),('$table["{0}"]' -f $_.groups[0].value)
            }
            1
        }
    ){}

    while(
        [regex]::matches($s,'\$\w+\[\"([^]]+)\"\]')|%{
            $g=iex "$_"
            $i=iex('$'+$_.groups[1])
            if($i -ne $null){
                $k=$g -split '[(,)]'
                $table['c']=1
                $j=[regex]::replace(
                    $i,
                    '(?<=[(,])[A-Z]\w*(?=[,)])',
                    {$k[$table['c']++]}
                )
                $s=$s -replace [regex]::Escape("$_"),$j
                1
            }else{
                $s=$s -replace [regex]::Escape("$_"),$g
                1
            }
        }
    ){}

    $cccc=$s -split '='
    iex('$'+$cccc[0]+'="'+$cccc[1]+'"')

    [regex]::replace(
        $s,
        '(?<=[(,])\w+(?=[,)])',
        {
            $a=$args[0].groups[0]
            if(test-path('Variable:'+$a)){iex('$'+$a)}else{$a}
        }
    )
}|sc $dddd
复制代码

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$aaaa='字典.txt'
$bbbb='原文.txt'
$dddd='结果.txt'
$elbat=@{}
gc $aaaa|?{$_ -match '='}|%{$cccc=$_ -split '(?<=^[^=]+)=';$elbat[$cccc[0]]=$cccc[1]}
$table=@{}
gc $bbbb|?{$_ -match '='}|%{
    $s=$_.trim()
    $table['thisway']=0
    while(
        [regex]::matches($s,"\w+(?=(\((?:[^()]+|(?<Open>)\(|(?<-Open>)\))+(?(Open)(?!))\)))")|%{
            $i=$_.groups[0].value+$_.groups[1].value
            $j=$_.groups[0].value+($table['thisway']++)
            $table[$j]=$_.groups[0].value+$_.groups[1].value
            if($i -match '^\w+\([^)]+\)$'){
                $s=$s -replace [regex]::Escape($i),('$table["{0}"]' -f $j)
            }
            1
        }
    ){}

    while(
        [regex]::matches($s,'\$\w+\[\"([^]]+)\"\]')|%{
            $g=iex "$_"
            $i=iex('$'+$_.groups[1])
            if($i -ne $null){
                $k=$g -split '[(,)]'
                $table['thisway']=1
                $j=[regex]::replace(
                    $i,
                    '(?<=[(,])[A-Z]\w*(?=[,)])',
                    {$k[$table['thisway']++]}
                )
                $s=$s -replace [regex]::Escape("$_"),$j
                1
            }else{
                $s=$s -replace [regex]::Escape("$_"),$g
                1
            }
        }
    ){}

    $cccc=$s -split '(?<=^[^=]+)='
    $elbat[$cccc[0]]=$cccc[1]

    [regex]::replace(
        $s,
        '(?<=[(,+=])\w+(?=[,)+=])',
        {
            $a=$args[0].groups[0].value
            if($elbat[$a] -ne $null){$elbat[$a]}else{$a}
        }
    )
}|sc $dddd
复制代码

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$aaaa='字典.txt'
$bbbb='原文.txt'
$dddd='结果.txt'
$elbat=@{}
gc $aaaa|?{$_ -match '='}|%{$cccc=$_ -split '(?<=^[^=]+)=';$elbat[$cccc[0]]=$cccc[1]}
if($elbat['+'] -ne $null){$add='ADD';$elbat[$add]=$elbat['+']}
$table=@{}
gc $bbbb|?{$_ -match '='}|%{
    $s=$_.trim()
    while(
        [regex]::matches($s,"\w+(?=(\((?:[^()]+|(?<Open>)\(|(?<-Open>)\))+(?(Open)(?!))\)))")|?{$_.groups[1].value -match '^\([^)]+\)$'}|%{
            $l=$_.groups[1].value
            $i=$_.groups[0].value+$_.groups[1].value
            if($add -and $i -match '\+'){
                $l -split '[(,)]' -match '\+'|%{
                    $table[$add]+=,('ADD({0})' -f ($_ -replace '\+',','))
                    $l=$l -replace [regex]::Escape($_),('$table["{0}"][{1}]' -f $add,($table[$add].count-1))
                }
            }
            $j=$_.groups[0].value
            $table[$j]+=,($j+$l)
            $s=$s -replace [regex]::Escape($i),('$table["{0}"][{1}]' -f $j,($table[$j].count-1))
            1
        }
    ){}

    if($add -and $s -match '\+'){
        $l=$s -split '(?<=^[^=]+)='
        $table[$add]+=,('ADD({0})' -f ($l[1] -replace '\+',','))
        $s=$s -replace [regex]::Escape($l[1]),('$table["{0}"][{1}]' -f $add,($table[$add].count-1))
    }

    while(
        [regex]::matches($s,'\$\w+\[\"([^]]+)\"\]\[[^]]+\]')|%{
            $g=iex "$_"
            $i=$elbat[$_.groups[1].value]
            if($i -ne $null){
                $k=$g -split '[(,)]'
                $table['thisway']=1
                $j=[regex]::replace(
                    $i,
                    '(?<=[(,])[A-Z]\w*(?=[,)])',
                    {$k[$table['thisway']++]}
                )
                $s=$s -replace [regex]::Escape("$_"),$j
                1
            }else{
                $s=$s -replace [regex]::Escape("$_"),$g
                1
            }
        }
    ){}

    $cccc=$s -split '(?<=^[^=]+)='
    $elbat[$cccc[0]]=$cccc[1]

    [regex]::replace(
        $s,
        '(?<=[(,+=])\w+(?=[,)+=])',
        {
            $a=$args[0].groups[0].value
            if($elbat[$a] -ne $null){$elbat[$a]}else{$a}
        }
    )
}|sc $dddd
复制代码

#行注释符#
#SU=DC(OE+(FC+3))
#HI=SUM(A*OE)
#JJ=H+2
#AD=MAX(TAN(Z),COS(X))+MAX(TAN(Z),COS(X))
#P1=SIGNALS_USER(4567,2)
#P2=REF(H,BARSLAST(P1))
#AE=MAX(A,B)+MAX(C,D)+P2

P1=SIGNALS_USER(4567,2)
P2=REF(H,BARSLAST(P1))
JJ=H+2
JJ=H-2
JJ=H*2
JJ=H/2
AD=MAX(A,B)+MAX(C,D)
复制代码

#行注释符#
#A=SIN(Y)
#B=LOG(100)
#C=TAN(Z)
#D=COS(X)
#OE=POW(3)
#FC=SQRT(6)
#H=TDXDLL1(4,0,1,0)
#+=TDXDLL1(35,X,Y,0)
#REF=TDXDLL1(5,X,Y,0)+Z
#BARSLAST=TDXDLL1(17,X,0,0)
#*=MULTI(A1,B1)

H=TDXDLL1(4,0,1,0)
+=TDXDLL1(6,X,Y,0)
-=TDXDLL1(7,X,Y,0)
*=TDXDLL1(8,X,Y,0)
/=TDXDLL1(9,X,Y,0)
REF=TDXDLL1(5,X,Y,0)     
BARSLAST=TDXDLL1(17,X,0,0)
A=SIN(Y)
B=LOG(100)
C=TAN(Z)
D=COS(X)
复制代码

#行注释符#
#SU=DC(OE+(FC+3))
#HI=SUM(A*OE)
#JJ=H+2
#AD=MAX(TAN(Z),COS(X))+MAX(TAN(Z),COS(X))
#P1=SIGNALS_USER(4567,2)
#P2=REF(H,BARSLAST(P1))
#AE=MAX(A,B)+MAX(C,D)+P2

P1=SIGNALS_USER(4567,2)
P2=TDXDLL1(5,TDXDLL1(4,0,1,0),TDXDLL1(17,SIGNALS_USER(4567,2),0,0),0)
JJ=TDXDLL1(6,TDXDLL1(4,0,1,0),2,0)
JJ=TDXDLL1(7,TDXDLL1(4,0,1,0),2,0)
JJ=TDXDLL1(8,TDXDLL1(4,0,1,0),2,0)
JJ=TDXDLL1(9,TDXDLL1(4,0,1,0),2,0)
AD=TDXDLL1(6,MAX(SIN(Y),LOG(100)),MAX(TAN(Z),COS(X)),0)
复制代码

<#*,:
@echo off
cd /d "%~dp0"
set "batchfile=%~f0"
Powershell -ExecutionPolicy Bypass -C "Set-Location -LiteralPath ([Environment]::CurrentDirectory);. ([ScriptBlock]::Create([IO.File]::ReadAllText($env:batchfile,[Text.Encoding]::GetEncoding(0) )) )"
pause
exit /b
#>
# 注:字典和原文的注释行开头是 #
$dicFile = "字典.txt"
$srcFile = "原文.txt"
$dstFile = "结果.txt"

$utf8 = New-Object System.Text.UTF8Encoding -ArgumentList $false
$ansi = [System.Text.Encoding]::GetEncoding(0)
$op_precedence = @{
  '+' = 0
  '-' = 0
  '*' = 1
  '/' = 1
}
$reCell = [regex]'((?>(?>\w+)\((?>[^()]+|(?<o>\()|(?<-o>\)))*\)(?(o)(?!))|\((?>[^()]+|(?<o>\()|(?<-o>\)))*\)(?(o)(?!))|\w+)+)'
$reParam = [regex]'(?<=[(,])((?>(?>\w+)\((?>[^()]+|(?<o>\()|(?<-o>\)))*\)(?(o)(?!))|\((?>[^()]+|(?<o>\()|(?<-o>\)))*\)(?(o)(?!))|(?>\w+)|[^,()])+)'
$dic = @{}
function Resolve-TokenTree {
  param([string[]]$Tokens)
  if ($null -eq $Tokens -or $Tokens.Count -eq 0) { return '' }
  if ($Tokens.Count -eq 1) { return $Tokens[0] }
  $precedence = [int]::MaxValue
  $opctr = $null
  for ($i = 0; $i -lt $Tokens.Count; ++$i) {
    if ($op_precedence.ContainsKey($Tokens[$i]) -and $op_precedence[$Tokens[$i]] -le $precedence ) {
      $opctr = $i
      $precedence = $op_precedence[$Tokens[$i]]
    }
  }
  # Sort-Object is not stable
  # $opctr = 0..($Tokens.Count - 1) | Where-Object { $op_precedence.ContainsKey($Tokens[$_]) } | Sort-Object -Property @{Expression = { $op_precedence[$Tokens[$_]] } } | Select-Object -First 1
  if ($null -eq $opctr) { return $Tokens -join '' }
  $dicms = @{
    tokens = @(
      Resolve-TokenTree $Tokens[0..($opctr - 1)]
      Resolve-TokenTree $Tokens[($opctr + 1)..($Tokens.Count - 1)]
    )
    ctr    = 0
  }
  if ($dic.ContainsKey($Tokens[$opctr])) {
    $token = $reParam.Replace($dic[$Tokens[$opctr]], $evaluator2)
  } else {
    $token = $dicms.tokens[0] + $Tokens[$opctr] + $dicms.tokens[1]
  }
  return $token
}
function Resolve-Token {
  param([string]$Token)
  $tokens = $reCell.Split($Token) -match '\S'
  if ($tokens.Count -eq 0) { return '' }
  for ($i = 0; $i -lt $tokens.Count; $i += 2) {
    if ($tokens[$i] -match '^\w+$') {
      if ($dic.ContainsKey($tokens[$i])) {
        $tokens[$i] = Resolve-Token $dic[$tokens[$i]] # 可能变成多token
      }
      continue
    }
    if ($tokens[$i] -match '^(\w+)\((?>[^()]+|(?<o>\()|(?<-o>\)))*\)(?(o)(?!))$' -and $dic.ContainsKey($Matches[1])) {
      $func = $Matches[1]
      $dicms = @{
        msparams = $reParam.Matches($tokens[$i])
        ctr      = 0
      }
      $tokens[$i] = Resolve-Token $reParam.Replace($dic[$func], $evaluator3) # 可能变成多token
      continue
    }
    $tokens[$i] = $reParam.Replace($tokens[$i], $evaluator1)
  }
  return Resolve-TokenTree $tokens
}
$evaluator1 = [System.Text.RegularExpressions.MatchEvaluator] {
  param($m)
  Resolve-Token $m.Value
}
$evaluator2 = [System.Text.RegularExpressions.MatchEvaluator] {
  param($m)
  if ($m.Value -match '^[A-Z]\w*$') {
    $dicms.tokens[$dicms.ctr++]
  } else { $m.Value }
}
$evaluator3 = [System.Text.RegularExpressions.MatchEvaluator] {
  param($m)
  if ($m.Value -match '^[A-Z]\w*$') {
    $dicms.msparams[$dicms.ctr++].Value
  } else { $m.Value }
}

foreach ($line in [IO.File]::ReadAllLines($dicFile, $ansi)) {
  if ($line -notmatch '^\s*#' -and $line -match '=') {
    $k, $v = $line -replace '\s+' -split '=', 2
    $dic[$k] = $v
  }
}
$lines = [IO.File]::ReadAllLines($srcFile, $ansi)
for ($i = 0; $i -lt $lines.Count; $i++) {
  if ($lines[$i] -notmatch '^\s*#' -and $lines[$i] -match '=') {
    $lines[$i] = $lines[$i] -replace '\s+'
    $k, $v = $lines[$i] -split '=', 2
    $v2 = Resolve-Token $v
    $dic[$k] = $v2
    $lines[$i] = "${k}=${v2}"
  }
}

$lines
Set-Content -Value $lines -LiteralPath $dstFile
复制代码

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$aaaa='字典.txt'
$bbbb='原文.txt'
$dddd='结果.txt'
$elbat=@{}
gc $aaaa|?{$_ -match '='}|%{$cccc=$_ -split '(?<=^[^=]+)=';$elbat[$cccc[0]]=$cccc[1]}
$op=@{'+'='ADD';'-'='SUB';'*'='MUL';'/'='DIV'}
$sa=@{}
$dm=@{}
$elbat.Keys -match '[+\-]'|%{$sa[$_]=$op[$_];$elbat[$op[$_]]=$elbat[$_]}
$elbat.Keys -match '[*/]'|%{$dm[$_]=$op[$_];$elbat[$op[$_]]=$elbat[$_]}
$exc=$op.keys -join ''
$isa=$sa.keys -replace '^','\' -join ''
$idm=$dm.keys -join ''

$opc=@'
while(
    [regex]::match($l,"[^$exc,]+([$idm])[^$exc,]+")|?{$_.value -ne ''}|%{
        $d=$_.groups[1].value
        $table[$op[$d]]+=,('{0}({1})' -f $op[$d],($_ -replace '[*/]',','))
        $l=$l -replace [regex]::Escape($_),('$table["{0}"][{1}]' -f $op[$d],($table[$op[$d]].count-1))
        1
    }
){}
while(
    [regex]::match($l,"[^$exc,]+([$isa])[^$exc,]+")|?{$_.value -ne ''}|%{
        $d=$_.groups[1].value
        $table[$op[$d]]+=,('{0}({1})' -f $op[$d],($_ -replace '[+-]',','))
        $l=$l -replace [regex]::Escape($_),('$table["{0}"][{1}]' -f $op[$d],($table[$op[$d]].count-1))
        1
    }
){}
'@

$table=@{}
gc $bbbb|?{$_ -match '='}|%{
    $s=$_.trim()
    while(
        [regex]::matches($s,"\w+(?=(\([^()]+\)))")|%{
            $l=$_.groups[1].value
            $i=$_.groups[0].value+$_.groups[1].value
            iex $opc
            $j=$_.groups[0].value
            $table[$j]+=,($j+$l)
            $s=$s -replace [regex]::Escape($i),('$table["{0}"][{1}]' -f $j,($table[$j].count-1))
            1
        }
    ){}

    $l=($s -split '=')[1]
    $i=$l
    iex $opc
    $s=$s -replace [regex]::Escape($i),$l

    while(
        [regex]::matches($s,'\$\w+\[\"([^]]+)\"\]\[[^]]+\]')|%{
            $g=iex "$_"
            $i=$elbat[$_.groups[1].value]
            if($i -ne $null){
                $k=$g -split '[(,)]'
                $table['thisway']=1
                $j=[regex]::replace(
                    $i,
                    '(?<=[(,])[A-Z]\w*(?=[,)])',
                    {$k[$table['thisway']++]}
                )
                $s=$s -replace [regex]::Escape("$_"),$j
                1
            }else{
                $s=$s -replace [regex]::Escape("$_"),$g
                1
            }
        }
    ){}

    $cccc=$s -split '(?<=^[^=]+)='
    $elbat[$cccc[0]]=$cccc[1]

    [regex]::replace(
        $s,
        '(?<=[(,+=])\w+(?=[,)+=])',
        {
            $a=$args[0].groups[0].value
            if($elbat[$a] -ne $null){$elbat[$a]}else{$a}
        }
    )
}|sc $dddd
复制代码