如何使用正則表達式捕獲特定單詞和緊接其前面的分號之間的文本？

Question

我在 Excel 中有很多行人和頭銜，我希望按頭銜過濾掉某些人。 例如，單元格可能包含以下內容：

John Smith, Co-Founder;Jane Doe, CEO;James Jackson, Co-Founder

這些單元格的長度不同，並且具有不同數量的人員和頭銜。 我的計划是在開頭和結尾添加分號以使其標准化。 這會給我：

;John Smith, Co-Founder;Jane Doe, CEO;James Jackson, Co-Founder;

目前，我有一個可以迭代並使用以下正則表達式Founder.*?;的代碼； 它將根據我的代碼（即Founder;Founder; ）返回創始人的每個實例，但問題是我似乎無法弄清楚如何同時捕獲人的姓名。 我想我需要在“Founder”之前指定分號，但到目前為止我還沒有得到這個。 我的最終目標是返回類似於以下內容的內容，除了正確的正則表達式之外，我有代碼。

;John Smith, Co-Founder;James Jackson, Co-Founder;

Answer 1

根據您的 Excel 版本，您還可以使用以下公式執行此操作：

=FILTERXML("<t><s>" & SUBSTITUTE(A1,";","</s><s>")&"</s></t>","//s[contains(.,'Co-Founder')]")

但是，對於正則表達式，您可以使用

(?:^|;)([^;]*?Co-Founder) 

這將返回捕獲組 1 中的聯合創始人。

不需要前導/尾隨分號。

即使 VBA 正則表達式不支持后視，您也可以使用該限制。

聯合創始人正則表達式

(?:^|;)([^;]*?Co-Founder)

選項：區分大小寫（或不區分，如您所願）； ^$ 匹配換行符

• 匹配下面的正則表達式(?:^|;)
  • 匹配這個替代品^
    • 在字符串的開頭斷言 position ^
  • 或者匹配這個替代方案;
    • 匹配字符“;” 從字面上看;
• 匹配下面的正則表達式並將其匹配捕獲到反向引用編號 1 ([^;]*?Co-Founder)
  • 匹配任何不是“;”的字符[^;]*?
    • 在零次和無限次之間，盡可能少，根據需要擴展（懶惰） *?
  • 匹配字符串“Co-Founder”字面意思是Co-Founder

使用RegexBuddy創建

Answer 2

拆分整個字符串並結合正向過濾， getCoFounders() function 將返回結果數組：

Sub ExampleCall()
    Dim s As String
    s = ";John Smith, Co-Founder;Jane Doe, CEO;James Jackson, Co-Founder;"
    Debug.Print Join(getCoFounders(s), "|")
End Sub

Function getCoFounders(s As String)
getCoFounders = Filter(Split(s, ";"), "Co-Founder", True, vbTextCompare)
End Function

結果在 VB 編輯器的即時 window

John Smith, Co-Founder|James Jackson, Co-Founder