[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
123
返回列表 发帖
TXTUSER

Rank: 1

帖子
21 
积分
35 
技术
0  
捐助
0  
注册时间
2024-10-27 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2024-10-31 21:11 | 只看该作者

[文本处理] 【已解决】批处理怎样读取字符串替换另外一个TXT文本中对应的字符串？

本帖最后由 TXTUSER 于 2024-11-12 10:52 编辑

从《字典》TXT文本中读取字符串替换《原文》TXT文本中对应的字符串；
字典TXT
A=SIN(Y)
B=LOG(100)
C=TAN(Z)
D=COS(X)

以下N行省略...
原文TXT
AD=MAX(A,B)+MAX(C,D)

.....以下N行省略
结果的例子
AD=MAX(SIN(Y),LOG(100))+MAX(TAN(Z),COS(X))
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享

aloha20200628

Rank: 5Rank: 5

帖子
873 
积分
1455 
技术
189  
捐助
0  
注册时间
2021-10-13 
2楼
发表于 2024-10-31 22:43 | 只看该作者
本帖最后由 aloha20200628 于 2024-11-1 15:10 编辑

回复 1# TXTUSER

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

  2. (for /f "tokens=1-6 delims=(,)" %%a in (

  3.    'findstr /i "([a-z][a-z]*,[a-z][a-z]*)" 《原文》.txt') do (

  4.    set "s=%%a(_%%b,_%%c)" &if "%%d" neq "" set "s=!s!%%d(_%%e,_%%f)"

  5.    for /f "tokens=1-2 delims==" %%x in (

  6.       'findstr /i "%%b= %%c= %%e= %%f=" 《字典》.txt') do set "s=!s:_%%x=%%y!"

  7.    echo,!s!

  8. ))>"《原文》.new.txt" 2>nul

  9. type "《原文》.new.txt"

  10. endlocal&pause&exit/b
复制代码

TOP

TXTUSER

Rank: 1

帖子
21 
积分
35 
技术
0  
捐助
0  
注册时间
2024-10-27 
3楼
发表于 2024-10-31 23:44 | 只看该作者
回复  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行省略...
请老师再优化一下

TOP

qixiaobin0715

Rank: 7Rank: 7Rank: 7

帖子
2851 
积分
4173 
技术
430  
捐助
0  
注册时间
2016-2-20 
4楼
发表于 2024-11-1 09:19 | 只看该作者
本帖最后由 qixiaobin0715 于 2024-11-1 09:30 编辑

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

TOP

TXTUSER

Rank: 1

帖子
21 
积分
35 
技术
0  
捐助
0  
注册时间
2024-10-27 
5楼
发表于 2024-11-1 10:24 | 只看该作者
回复 4# qixiaobin0715 提示
附件上传不成功

TOP

qixiaobin0715

Rank: 7Rank: 7Rank: 7

帖子
2851 
积分
4173 
技术
430  
捐助
0  
注册时间
2016-2-20 
6楼
发表于 2024-11-1 10:41 | 只看该作者
回复 5# TXTUSER
本论坛关闭了附件上传功能，我说的是网盘

TOP

aloha20200628

Rank: 5Rank: 5

帖子
873 
积分
1455 
技术
189  
捐助
0  
注册时间
2021-10-13 
7楼
发表于 2024-11-1 11:08 | 只看该作者
本帖最后由 aloha20200628 于 2024-11-1 15:17 编辑

回复 3# TXTUSER

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

  2. (for /f "delims=" %%s in (《原文》.txt) do (

  3.    set "s=%%s"

  4.    for /f "tokens=1-8 delims=()" %%a in ("%%s") do (

  5.       for %%i in ("%%b" "%%d" "%%f" "%%h") do (

  6.          for /f "tokens=1-2 delims=,+-/*" %%1 in ("%%~i") do (

  7.             set "v=%%1=" &if "%%2" neq "" set "v=!v! %%2="

  8.             for /f "tokens=1-2 delims==" %%x in (

  9.                'findstr /i "!v!" 《字典》.txt'

  10.             ) do set "s=!s:(%%x=(%%y!" &set "s=!s:%%x)=%%y)!")

  11.       ))

  12.    if "%%s" neq "!s!" echo,!s!

  13. ))>"《原文》.new.txt" 2>nul

  14. type "《原文》.new.txt"

  15. endlocal&pause&exit/b
复制代码

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14935 
积分
46142 
技术
857  
捐助
745  
注册时间
2008-6-9 
8楼
发表于 2024-11-1 12:50 | 只看该作者
回复 5# TXTUSER


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

如果需要上传截图，可以找个图床，例如：
http://bbs.bathome.net/thread-60985-1-1.html
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

idwma

Rank: 6Rank: 6

帖子
986 
积分
1724 
技术
243  
捐助
0  
注册时间
2014-6-17 
9楼
发表于 2024-11-1 14:33 | 只看该作者
ps也来试一下
  1. #@&cls&powershell "type '%~0'|out-string|iex"&pause&exit

  2. $aaaa='字典.txt'

  3. $bbbb='原文.txt'

  4. gc $aaaa|%{$cccc=$_ -split '=';iex('$'+$cccc[0]+'="'+$cccc[1]+'"')}

  5. (gc $bbbb)|%{

  6.  [regex]::replace(

  7.   $_,

  8.   '(?<=\()[^)]+(?=\))',

  9.   {

  10.    [regex]::replace(

  11.     $args[0].groups[0]-join'',

  12.     '\w+',

  13.     {iex('$'+$args[0].groups[0])}

  14.    )

  15.   }

  16.  )

  17. }|sc $bbbb
复制代码

TOP

Five66

Rank: 5Rank: 5

帖子
835 
积分
1160 
技术
114  
捐助
0  
注册时间
2021-8-26 
10楼
发表于 2024-11-1 16:53 | 只看该作者
啊 ,这要想准确 ,应该得像编译器或解析器那样对原文件进行分词(Tokenization)吧 ,自己弄挺麻烦的 ,可以弄成C宏或m4宏 ,然后用对应的宏处理器进行替换
比如下面的 ,在mingw里用gawk将字典dic.txt替换换成C宏 ,然后用C宏处理程序对原文件yuanwen.txt进行处理的输出结果

TOP

TXTUSER

Rank: 1

帖子
21 
积分
35 
技术
0  
捐助
0  
注册时间
2024-10-27 
11楼
发表于 2024-11-5 23:32 | 只看该作者
回复  TXTUSER

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



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

TOP

TXTUSER

Rank: 1

帖子
21 
积分
35 
技术
0  
捐助
0  
注册时间
2024-10-27 
12楼
发表于 2024-11-5 23:33 | 只看该作者
本帖最后由 TXTUSER 于 2024-11-8 13:00 编辑

回复 9# idwma



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

TOP

TXTUSER

Rank: 1

帖子
21 
积分
35 
技术
0  
捐助
0  
注册时间
2024-10-27 
13楼
发表于 2024-11-5 23:36 | 只看该作者
回复 8# Batcher

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

TOP

TXTUSER

Rank: 1

帖子
21 
积分
35 
技术
0  
捐助
0  
注册时间
2024-10-27 
14楼
发表于 2024-11-5 23:37 | 只看该作者
本帖最后由 TXTUSER 于 2024-11-8 13:01 编辑

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

TOP

qixiaobin0715

Rank: 7Rank: 7Rank: 7

帖子
2851 
积分
4173 
技术
430  
捐助
0  
注册时间
2016-2-20 
15楼
发表于 2024-11-6 08:56 | 只看该作者
本帖最后由 qixiaobin0715 于 2024-11-6 08:57 编辑

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

TOP

123
返回列表