正则表达式捕获字符串模式的多个不同出现

Question

我正在尝试捕获文本中的所有产品代码。它们有时是多个。我只能抓到一个。我想它更多的是 excel vba 问题而不是正则表达式，因为我有 str 模式。

 Sub regexp()

Dim regEx As New regexp
Dim strPattern As String
Dim Myrange As Range
Dim LastRow As Integer


LastRow = ActiveSheet.Cells(Rows.Count, "W").End(xlUp).Row
Set Myrange = ActiveSheet.Range("W4:W" & LastRow)

For Each c In Myrange


strPattern = "(?:\s[ABCDabcd][0-9][A-Za-z0-9]{3}\s|\s[ABCDabcd][0-9oO][0-9oO)][0-9][0-9A-Za-z]\s|\s[ABCDabcd][0-9oO][0-9A-Za-z)][0-9A-Za-z][0-9]\s|[^A-Za-z0-9][ABCDabcd]\s[0-9][A-Z0-9a-z]{3}\s)"
    If strPattern <> "" Then
        With regEx
            .Global = True
            .MultiLine = True
            .IgnoreCase = False
            .Pattern = strPattern
        End With

        Set matches = regEx.Execute(c.Value)
        On Error Resume Next
        c.Offset(0, 7).Value = matches.Item(0)
    End If
Next c
End Sub

如何更改代码以捕获文本中不同的多个字符串模式。此代码当前仅捕获第一个。我想用逗号分隔所有内容。 例如，首先我遇到了产品 b0067 的问题。然后问题就解决了。后来我遇到了这个 D0887 的问题。紧随其后的是 C689W、D 7890 输出 - b0067、D0887、C689W、D 7890 我想修剪这些，因为空格是在结尾或开头考虑的。

Answer 1

首先，我建议将正则表达式增强为

strPattern = "(?:\s[abcd](?:[0-9][a-z0-9]{3}|[0-9o][0-9o)][0-9][0-9a-z]|[0-9o][0-9a-z)][0-9a-z][0-9])|[^a-z0-9][abcd]\s[0-9][0-9a-z]{3})(?!\S)"

请参阅regex demo。 确保您设置了.IgnoreCase = True。此正则表达式将检查匹配后是否有空格或字符串结尾与(?!\S) 前瞻，因此A0ABC 和B0ABC 将从"1 A0ABC B0ABC 3" 中提取。第一个 \s 可以更改为 (^|\s) 以匹配字符串开头的字符串。

然后，在运行 Execute() 之后，遍历匹配项：

 Set matches = regEx.Execute(c.Value)
 For Each m In matches
    Cells(x, y) = m.Value
 Next

这是一个完整的固定sub，它将以逗号分隔值的形式将匹配项打印到您指定的单元格：

Dim regEx As New regexp
Dim strPattern As String
Dim Myrange As Range
Dim LastRow As Long, cnt As Long

LastRow = ActiveSheet.Cells(Rows.Count, "W").End(xlUp).Row
Set Myrange = ActiveSheet.Range("W4:W" & LastRow)
strPattern = "(?:\s[abcd](?:[0-9][a-z0-9]{3}|[0-9o][0-9o)][0-9][0-9a-z]|[0-9o][0-9a-z)][0-9a-z][0-9])|[^a-z0-9][abcd]\s[0-9][0-9a-z]{3})(?!\S)"

If strPattern <> "" Then
  With regEx
    .Global = True
    .IgnoreCase = True
    .Pattern = strPattern
  End With
  cnt = 0
  For Each c In Myrange
    Set matches = regEx.Execute(c.Value)
    For Each m In matches
        c.Offset(0, 7).Value = c.offset(0, 7).Value + m.Value
        cnt = cnt + 1
        If cnt < matches.Count Then c.offset(0, 7) = c.offset(0, 7) & ","
    Next
  Next c
End If

注意 RegExp 的初始化位置 - 在循环之外。