匹配带/不带逗号数字的正则问题：提取Attendance后的数值

问题根因 #

你当前使用的正则中，负责捕获数值的分组规则[\d\-\.]*仅包含数字、减号、小数点三类合法字符，未覆盖千位分隔符逗号，因此匹配到逗号时就会自动终止，只能返回逗号前的部分内容。

正则调整方案 #

方案1：宽松匹配（仅提取带逗号的数字，不做格式合法性校验） #

如果不需要校验千分符格式是否合规，只需要完整提取带逗号的数值，直接把逗号加入数值的匹配字符集即可：

Attendance\w*(?:\s*\w*){0,4}\s*([\d,.]+)

说明：这里用(?:\s*\w*){0,4}替代了你原来写的4组重复的\s*(\w*)，非捕获分组不会产生多余的匹配结果，逻辑完全一致。

方案2：严格匹配（符合1-10000范围+千分符规范） #

如果需要严格过滤非法格式的数值，比如避免匹配到12,34这类不符合千分符规则的内容，可使用以下正则：

Attendance\w*(?:\s*\w*){0,4}\s*([1-9]\d{0,2}(?:,\d{3})*|\d{1,4}|10000)

规则逻辑：

• 匹配带合法千分符的数值：[1-9]\d{0,2}(?:,\d{3})*，要求千分符后必须跟3位数字
• 兼容不带千分符的1-9999数值：\d{1,4}
• 单独匹配范围上限10000

VBA调用示例 #

在Outlook宏中调用正则的参考代码如下：

' 需先在VBA编辑器的「工具-引用」中勾选「Microsoft VBScript Regular Expressions 5.5」
Dim reg As New RegExp
Dim attendanceValue As String

With reg
    .Global = False
    .IgnoreCase = True ' 不需要区分Attendance大小写可开启
    .Pattern = "Attendance\w*(?:\s*\w*){0,4}\s*([1-9]\d{0,2}(?:,\d{3})*|\d{1,4}|10000)"
End With

If reg.Test(邮件正文内容变量) Then
    attendanceValue = reg.Execute(邮件正文内容变量)(0).SubMatches(0)
    ' 提取后可移除逗号转成数值：attendanceValue = Replace(attendanceValue, ",", "")
End If

内容的提问来源于stack exchange，提问作者Raif