提取符合特定规则的文本，我用“万能正则表达式”！

ggmmlol

“正则表达式何其复杂，尔安敢妄言‘万能’正则表达式耶？！”
“其必标题党人！待吾觅臭鸡蛋投之！”

且慢！各位看官！
本文标题虽然足够吸引眼球，但内容绝对更加劲爆！请各位看官放心，本人绝不是标题党！
下面就放出万能正则表达式，各位看仔细了！
[\s\S]*?([一-龥]+)|[\s\S]+
……咳咳，本人今天有点闹肚子，要去先解决一下，各位慢慢看，少陪了！

ggmmlol

昨天预热一天，今天正式对“万能正则表达式”做详解。

将包含以下内容：(第一至第六节 已经贴出，建电梯供直达相应楼层）

第一节：“万能正则表达式”的一般写法和概述

第二节：“万能正则表达式”的简略写法

第三节：“万能正则表达式”的特例

第四节：实例之——提取手机号码

第五节：实例之——提取字符串中的多项金额，并计算合计金额。

第六节：实例之——含有注释字符的工程量计算式求值


第七节：“万能正则表达式”的原理（因为各种质疑颇多，此节的发表时机待定。于2018-8-22日说明）

第八节 实例之——从文本中提取所有电话号码（包括手机和座机号码）

第九节 实例之——提取符合特定条件的字符，并去掉重复项
第九节 实例之——提取符合特定条件的字符，并去掉重复项

ggmmlol

有必要声明一下：

凡是在 本贴正贴部分，
1）、本人所称的使用正则表达式的Replace方法得到想要的内容，默认都是只对源字符串仅执行一次正则替换，而直接到得的结果（即：不把正则替换的结果做再次加工）；即使在有特别说明时，也只允许执行 “有限多次”的正则替换，不允许执行“不定多次”的正则替换。
比如，我在此前的16楼中的特例4中，就特别指出：当Y-X>8时，可能需要2次执行正则替换，才能提取到源字符串中匹配于正则表达式eXp的各部分字符串中的 第X项至第Y项。
2）、正贴部分，所列出的正则表达式，都要求适应于以下自定义的 通用型 正则替代函数：
Public Function REGREPLACE(ByVal text1$, ByVal pttn$, Optional ByVal strReplacer$ = " ")
    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = pttn
        REGREPLACE = .Replace(text1, strReplacer)
    End With
End Function

至于 在 本贴讨论部分的各楼层中，为活跃论坛气氛，可以不受上述声明限制。

ggmmlol

mikezhan 发表于 2018-8-16 14:07
空格+非空格+任意字符0个或1个。。。。

非也非也！

还要再看仔细一点

我来找个“粟子”，大家可以“尝试”一下：

这个求助贴中，贴主要求提取A列每个单元格中 以JT开头的16位数字 ，对应放入B列：

求助：某个字符串中，如果出现某个字符，就提取该字符及之后的几个字符
http://club.excelhome.net/thread-1417880-1-1.html

ggmmlol

为免 水贴之嫌，还是来点干货吧。

仍以上面提到的求助贴为例，实际演示一下：

ggmmlol

mikezhan 发表于 2018-8-16 14:27
钻研这些鬼东西干嘛？非要钻牛角尖？

对实际工作有帮助？

你说得很有道理。东非大草原上的狮子和角马、长颈鹿从来不研究语文和数学，同样在地球上繁衍生息了千百万年，现在也过得一样有滋有味。所以，我对这个帖子给你带来的打扰深感抱歉，I'm sorry！

zhang6029

到底是个啥？能不能简单说一下，那个“万能”正则表达式是什么意思？举个例子都能干什么？

ggmmlol

zhang6029 发表于 2018-8-16 15:22
到底是个啥？能不能简单说一下，那个“万能”正则表达式是什么意思？举个例子都能干什么？

要想知道“万能正则表达式”都能干什么，首先你要了解“正则表达式”能干什么。

至于冠以“万能”，就是说把正则表达式统*一到同一种模式（或者叫公式）之中，从而简化正则表达式的编写，以不变应万变，达到降低编写难度、减少失误、提高效率之目的。

好吧，我就再举一个例子：

本实例来源见以下原求助贴：
如何提取编号
http://club.excelhome.net/thread-1418396-1-1.html

592rmb

好，支持，看来可以降低使用正则的难度