正则表达式 特定字符串提取

xd3210

高手聚会！
顶！，让更多同志有学习的机会。

renkangjizhen

如果必须是2组或3组，那么：P(-\d+){2,3}
受教了

tspliu

Sub aa()
      Set reg = CreateObject("Vbscript.Regexp")
    With reg
        .Global = True
        .IgnoreCase = True
        .Pattern = "[0-9A-Z\-]{11,14}"
    End With
   Set mc = reg.Execute("我现在想在excel中读取邮件正文中的特定字符串，P-123456-01或者P-123456-01-01这种类型的字符串提取字符串应该怎么实现呢？")
   For Each x In mc
   Debug.Print x
   Next
End Sub

macro_23

香川群子 发表于 2014-8-6 09:35
如果【-\d+】不止2组，那么：P(-\d+){2,}

如果必须是2组或3组，那么：P(-\d+){2,3}

hi，香川老师，能否有空劳驾帮忙看下这个表达式 怎么写？非常感谢！
http://club.excelhome.net/forum. ... p;page=1#pid9984428