qixiaobin0715

4楼提的要求等于没说，我的本意是在网盘 上传真实的需要处理的文件，而不是随意杜撰一些文件。

qixiaobin0715

使用代码完成某个项目的处理时，需要比较清晰的逻辑为基础。根据顶楼的描述，替换字符串存在于字典文件中。楼主提供的网盘文件又有不同，替换字符串同时存在于字典文件和原文文本中，关键是代码如何判定原文文件中的字符串，哪个是需要替换的字符串，哪个又是要被替换的字符串？

TXTUSER

回复 7# aloha20200628
烦请老师参见附件优化一下

TXTUSER

回复 8# Batcher

发了网盘链接，怎么不显示啊

TXTUSER

回复 9# idwma



       烦请老师参见附件优化一下

TXTUSER

回复  TXTUSER

二楼代码已订正如下，可以匹配3楼的示例样本了，目前设定可匹配1-4个圆括号运算项，设定 ...
aloha20200628 发表于 2024-11-1 11:08

    烦请老师参见附件优化一下例子

Five66

啊 ,这要想准确 ,应该得像编译器或解析器那样对原文件进行分词(Tokenization)吧 ,自己弄挺麻烦的 ,可以弄成C宏或m4宏 ,然后用对应的宏处理器进行替换
比如下面的 ,在mingw里用gawk将字典dic.txt替换换成C宏 ,然后用C宏处理程序对原文件yuanwen.txt进行处理的输出结果

idwma

ps也来试一下

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

Batcher

回复 5# TXTUSER


如果需要上传文件，请用使用网盘。例如：
百度：https://pan.baidu.com
蓝奏：https://www.lanzou.com

如果需要上传截图，可以找个图床，例如：
http://bbs.bathome.net/thread-60985-1-1.html

aloha20200628

回复 3# TXTUSER

二楼代码已订正如下，可以匹配3楼的示例样本了，目前设定可匹配1-4个圆括号运算项，设定每个运算项内可匹配1-2个变量...

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

qixiaobin0715

回复 5# TXTUSER
本论坛关闭了附件上传功能，我说的是网盘

TXTUSER

回复 4# qixiaobin0715 提示
附件上传不成功

qixiaobin0715

回复 1# TXTUSER
你把原文txt放到网盘上，让大家帮你参谋参谋。
举例示范规律性不强，你自己又没说清楚。

TXTUSER

回复  TXTUSER

匹配范围》原文.txt 每行可能出现的两种类型函数表达式中的一种，如下示例：
      AD= ...
aloha20200628 发表于 2024-10-31 22:43

原文不是单一的一行，有很多行算式
AD=MAX(A,B)+MAX(C,D)
SU=DC(OE+FC)
HI=SUM(A*OE)
文本内容很多，每行都是一个算式

字典业有很多条
A=SIN(Y)
B=LOG(100)
C=TAN(Z)
D=COS(X)
OE=POW(3)
FC=SQRT(6)
以下N行省略...
请老师再优化一下

aloha20200628

回复 1# TXTUSER

匹配范围》原文.txt 每行可能出现的两种类型函数表达式中的一种，如下示例：
      AD=MAX(A,B)+MAX(C,D)
      XY=MIN(A,C)

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