正则表达式从邮件正文中提取一个单词

Question

我需要从收到的邮件正文中提取一个单词。

我在引用网站后使用了正则表达式，但它没有给出任何结果，也没有抛出错误。

示例：描述：示例文本

我只想要冒号后面的第一个单词。

Dim reg1 As RegExp
Dim M1 As MatchCollection
Dim M As Match
Dim EAI As String

Set reg1 = New RegExp

With reg1
    .Pattern = "Description\s*[:]+\s*(\w*)\s*"
    .Global = False
End With

If reg1.Test(Item.Body) Then
    Set M1 = reg1.Execute(Item.Body)
    For Each M In M1            
        EAI = M.SubMatches(1)    
    Next        
End If

Answer 1

请注意，您的模式效果很好，但最好写成：

Description\s*:+\s*(\w+)

它会匹配Description，然后是 0+ 个空格，1+ 个: 符号，再是 0 个或多个空格，然后将捕获到第 1 组中的一个或多个单词字符（作为字母, 数字或_ 符号）。

现在，捕获组 1 的值存储在 M.SubMatches(0) 中。此外，您不需要运行.Test()，因为如果没有匹配项，您不需要遍历它们。你实际上想得到一个匹配。

因此，只需使用

Set M1 = reg1.Execute(Item.body)
If M1.Count > 0 Then
   EAI = M1(0).SubMatches(0)
End If

其中M1(0) 是第一个匹配项，.SubMatches(0) 是第一组中的文本。