批量多字符串多次替换

淘朴

飞天篮球猪 发表于 2019-1-10 20:05
下午的那个方法欠考虑，你可以忽略掉，不要用了。有点不好意思，浪费时间了。
当然，List.ReplaceMatchi ...

这个算法要完善些，用于不相重的字符串替换没问题。有少数几个英文字符替换不了：

逗号，逻辑非，问号,|?

这3个涉及运算问题，可以手动解决，感谢你啦。   Power Query，在运算中，比较有用，我先熟练下这个的应用

飞天篮球猪

淘朴 发表于 2019-1-10 21:02
这个算法要完善些，用于不相重的字符串替换没问题。有少数几个英文字符替换不了：

逗号，逻辑非，问 ...

你把那些没有替换掉的符号维护到替换对照表里就可以了，维护好后，右键那个加载过来的表，刷新。正常来说，只要对照表里有的都可以替换掉。
比如“| ” 后边有空格和“|”视为不一样的两个。
问号，逗号，叹号有中文状态的和英文状态的等等。

如果能用正则替换，那是比较好的。Power Query里用正则处理大数据效率极其低下。所以不采用。
你可以另寻高人指点其它途径的正则用法。

淘朴

谢谢，学习您的算法了。小部分字符出问题，如下为通过新的算法，运算后替换不了的。

,|?-

批量替换确实容易出现问题。前3个为英文字符，第4个横杠-为中文全角字符。  这个算法已经比较完善了，如果不考虑单个字符，用于字符串替换已经比较理想，感谢。

飞天篮球猪

淘朴 发表于 2019-1-10 21:35
谢谢，学习您的算法了。小部分字符出问题，如下为通过新的算法，运算后替换不了的。

,|?-

这些字符都能替换掉。从源文本里把这些符号复制出来粘贴到对照表，刷新后肯定能替换。
只要对照表里有的，都可以替换掉，这个我还是有自信的。
其它不可预见的，就无法预见。。。lol。。。

淘朴

飞天篮球猪 发表于 2019-1-10 21:46
这些字符都能替换掉。从源文本里把这些符号复制出来粘贴到对照表，刷新后肯定能替换。
只要对照表里有的 ...

从源文本中复制粘贴要替换的字符后，这几个没替换掉的字符，也解决了，完美， 感谢感谢

excel_jia

飞天篮球猪 发表于 2019-1-10 20:05
下午的那个方法欠考虑，你可以忽略掉，不要用了。有点不好意思，浪费时间了。
当然，List.ReplaceMatchi ...

如截图,
在对照表里面删除某一行数据之后, 点击"刷新"按钮, 目标结果列就会出现全部为空的问题.

因为有时候需要编辑删除对照表中的某些行, 所以可以怎么优化下M函数来避免这一现象吗?

谢谢.

淘朴

本贴最终获取了2种可靠的解法，Excel批量利用对照表进行替换，是替换提高效率极为有效的方法。  上传解决案例文档如下，供论坛大家使用。

批量多字符串多次替换—Power Query VBA 两种解法.zip (1.99 MB, 下载次数: 75)

2020-10-14 10:46 上传

点击文件名下载附件

ggmmlol

淘朴 发表于 2020-10-14 10:52
本贴最终获取了2种可靠的解法，Excel批量利用对照表进行替换，是替换提高效率极为有效的方法。 ...

快要两年的帖子，楼主还回来总结，看来它对你有些重要啊。

那我就把用VBA正则处理的方法也列出一下吧。不需要对照表，依据的就是字符本身的特征规律。

1. '无需对照表，直接用正则表达式：排除需要转义的字母和数字，提取剩余的汉字、字母和数值(含正负的整数、小数、百分数）
   
2. Sub 正则替换()
   
3.     Dim reg As Object, ar, r&, i&, tmp$, ma As Object
   
4.     Set reg = CreateObject("VBScript.RegExp")
   
5.     reg.Global = True
   
6.     reg.Pattern = "&(?:[a-z]+|#\d+);|((?:-?\d*\.?\d+%?|[一-龥a-zA-Z])+)|[\d\D]"
   
7.     ar = Sheets("VBA解法").UsedRange.Resize(, 1) '获取指定表格的第一列数据。
   
8.     r = UBound(ar)
   
9.     For i = 2 To r
   
10.         ar(i, 1) = RTrim(Replace(reg.Replace(ar(i, 1), "$1 "), "  ", "&@"))
    
11.     Next
    
12.     ar(1, 1) = "正则替换后" '修改标题
    
13.     Range("C1").Resize(r) = ar '把处理的结果填入C列
    
14. End Sub

复制代码

淘朴

ggmmlol 发表于 2020-10-14 14:36
快要两年的帖子，楼主还回来总结，看来它对你有些重要啊。

那我就把用VBA正则处理的方法也列出 ...

两年之前，已经总结完。没传总结的文件，确实，这个批量替换，是这2年最常用的工具，用的比较频繁

djrmch

感谢分享！