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