用于替换包含单引号(')的部分字符串的RegEx

Question

我试图替换一篇文章中撇号之间的一部分，而不是全部，只是一部分。例如，我需要将字符/*和*/替换为空文本，它们只在引号之间的文本中，而不在引号之外。

A = 'THIS IS AN ALPHABETIC /* CONSTANT' || WS_CON1 /* */ || 'TEST STRING */';

A = 'THIS IS AN ALPHABETIC  CONSTANT' || WS_CON1 /* */ || 'TEST STRING ';

Sub ReplaceWithRegex()
    Dim strPattern As String
    Dim strReplace As String
    Dim regEx As Variant
    Dim strtxt As String

    Set regEx = CreateObject("vbscript.regexp")
    strtxt = "A = 'THIS IS AN ALPHABETIC /* CONSTANT' || WS_CON1 /* */ || ' TEST STRING */';"
    strPattern = "\'([^\']*)\'"
    strReplace = ""

    With regEx
        .Global = True
        .MultiLine = True
        .IgnoreCase = False
        .Pattern = strPattern
    End With

    If regEx.Test(strtxt) Then
        Debug.Print regEx.Replace(strtxt, strReplace)
    Else
        MsgBox ("Not matched")
    End If
End Sub

我如何解决这个问题？

Answer 1

下面是另一个使用正则表达式的VBA方法。

Option Explicit
'Set Reference to Microsoft VBScript Regular Expressions 5.5
Function reReplaceComment(S As String) As String
  Dim RE As RegExp
  Dim I As Long, J As Long

Set RE = New RegExp
With RE
    .Global = True
    .Pattern = "('[^']*?)(?:(?:/\*)|(?:\*/))([^']*?')"
    reReplaceComment = .Replace(S, "$1$2")
End With
End Function

('[^']*?)(?:(?:/\*)|(?:\*/))([^']*?')

• 匹配下面的regex并将其匹配捕获到backreference编号1('[^']*？）
  • 与字符“‘”字面匹配'
  • 匹配任何不是“‘”的字符[^']*？
    • 在零和无限次之间，尽可能少的次数，根据需要展开（懒惰）*？
    • 匹配此选项（仅当此选项失败时才尝试下一个选项）（？：/\*)
      • 匹配下面的正则表达式（？：/\*)
        • 与字符“/”字面匹配/
        • 与字符“*”字面匹配\*
        null
        null
        • 通过捕获组号1$1
        插入上次匹配的文本
        • 通过捕获组号2$2
        插入上次匹配的文本

        用RegexBuddy创建

        https://imgs.xnip.cn/cj/n/11/73aa5a95-9bf1-48e1-b8bc-3e427fac4a94.png" width="100%" height="100%" />