VBA之正则表达式（11）-- 添加千分位（3/3）

上一篇《添加千分位（2/3）》博文讲解了实现添加千分位功能的正则表达式如下：

((\.\d+[\w\W]*?)*?\d)(?=(\d{3})+(\D|$))

如果调整一下测试段落的顺序：

珠穆朗玛峰高度8848.0
光速是300000000米/秒
马里亚纳海沟最大长度: 2550，平均深度: 8000，
最大宽度: 69，最大深度11034
大家背诵圆周率3.1415926535

此时最后一行的小数部分符合表达式的匹配规则，正则替换时将在535之前添加千分位。

需要处理的文字段落可能有各种情况，当然可以用代码去判断段落末尾是否为小数数字。这里提供另一种解决问题的思路，既然已经有了正则可以消耗掉小数部分数字，那么我们就在字符串末尾构造一个符合匹配规则的字符串。
能实现这个目的的字符串可能有很多，例如.8888，这样就成功的把最后一个匹配组扩展到了添加的后缀字符串中，正则替换完成后，去掉后缀字符串（注意替换后，需要去掉的字符串长度增加一位，因为多了一个千分位）就可以得到完美的结果。

VBA代码如下：

Sub RegExpDemo3()
    Dim strTxt As String, strPad As String
    Dim strRes As String
    Dim objRegEx As Object
    Set objRegEx = CreateObject("vbscript.regexp")
    objRegEx.Pattern = "((\.\d+[\w\W]+?)*?\d)(?=(\d{3})+(\D|$))"
    objRegEx.Global = True
    'objRegEx.MultiLine = True
    strPad = ".8888"
    strTxt = "珠穆朗玛峰高度8848.0" & vbNewLine & _
             "光速是300000000米/秒" & vbNewLine & _
             "马里亚纳海沟最大长度: 2550，平均深度: 8000，" & vbNewLine & _
             "最大宽度: 69，最大深度11034" & vbNewLine & _
             "大家背诵圆周率3.1415926535"
    strRes = objRegEx.Replace(strTxt & strPad, "$1,")
    MsgBox strTxt & vbNewLine & vbNewLine & _
           Left(strRes, Len(strRes) - Len(strPad) - 1)
    Set objRegEx = Nothing
End Sub

结果如图所示。

后记，可能有的人会想到，VBA中也可以调用JS，听说JS的正则很强大，是否可以在VBA调用JS的正则呢？答案是肯定的，VBA调用JS正则没有问题，答案也是否定的，VBA的JS正则也不支持逆序环视，大家可以自己在VBA中测试一下。

---

相关博文链接：
VBA之正则表达式（1）-- 基础篇
VBA之正则表达式（2）-- 批量修改公式
VBA之正则表达式（3）-- 特殊公式计算
VBA之正则表达式（4）-- 提取日期和金额
VBA之正则表达式（5）-- 中文字符
VBA之正则表达式（6）-- 设置音标格式
VBA之正则表达式（7）-- 乾坤大挪移（数据整理）
VBA之正则表达式（8）-- 重复字符分组
VBA之正则表达式（9）-- 添加千分位（1/3）
VBA之正则表达式（10）-- 添加千分位（2/3）
VBA之正则表达式（11）-- 添加千分位（3/3）