vba正则表达式提取以“ B0”开头的10个字符串

Question

我正在尝试从以下字符串中提取10个字符串：

<div class="a-column a-span5 a-span-last"><div class="a-row a-spacing-mini"><span name="B01B5BBNPS">

我想提取B01B5BBNPS。该字符串将在单元格“ A1”中。我尝试使用以下代码，但仅在单元格“ A1”仅包含“ B01B5BBNPS”时有效。

Function CleanString(strIn As String) As String
Dim objRegex As Object
Set objRegex = CreateObject("vbscript.regexp")
With objRegex
    .Global = True
    .Pattern = "^[B0]{2}[\w]{8}"
    On Error Resume Next
    CleanString = .Execute(strIn)(0)
End With
End Function

Answer 1

您的模式不能以“ ^”字符开头，因为这意味着您的模式将只匹配以“ B0”开头的字符串（甚至0B或BB，00，...没关系）。

您应该尝试这种模式：

B0[\w]{8}

https://regex101.com/r/zpo3Th/1