使用VBA的正则表达式模式

Question

我目前正在使用VBA和正则表达式测试我需要对其中一个字段进行的更新。

我当前的SQL更新是这样的：

UPDATE Product SET Product.[Short description test] = MyRegexReplace(Product.[Short description], "[\(]+[A-z0-9\/]+[\)]", "");

如您所见，我正在使用的正则表达式是[\\(]+[A-z0-9\\/]+[\\)]然后将其替换为[\\(]+[A-z0-9\\/]+[\\)] 。

我正在使用的VBA脚本如下（我正在使用参考Microsoft VBScript正则表达式5.5）：

Option Compare Database
Option Explicit

Public Function MyRegexReplace( _
        originalText As Variant, _
        regexPattern As String, _
        replaceText As String) As Variant
    ' VBA Project Reference required:
    '  Microsoft VBScript Regular Expressions 5.5
    Dim rtn As Variant
    Dim objRegExp As RegExp, objMatch As Match, colMatches As MatchCollection

    rtn = originalText
    If Not IsNull(rtn) Then
        Set objRegExp = New RegExp
        objRegExp.pattern = regexPattern
        Set colMatches = objRegExp.Execute(originalText)
        For Each objMatch In colMatches
            rtn = _
                    Left(rtn, objMatch.FirstIndex) & _
                    replaceText & _
                    Mid(rtn, objMatch.FirstIndex + objMatch.Length + 1)
        Next
        Set objMatch = Nothing
        Set colMatches = Nothing
        Set objRegExp = Nothing
    End If
    MyRegexReplace = rtn
End Function

我的问题是，我要替换的大多数字符串都可以正常工作。 目的是删除花括号中的所有内容，包括花括号。

问题是在更长的字符串上，例如：

This is a test string [10876DB] =589+608+612= (P17/S)

它将字符串更改为：

This is a test string [10876DB] =589+608

现在，我非常确定这是因为我的正则表达式正在匹配不应该匹配的事物，并且将它们替换为空。

我也尝试过此操作（我已在正则表达式中对此进行了编辑：删除方括号的内容 ）：

\((?:[^\(\)]++|(?0))*+)

但是，这只会带来一个错误。 谁能提供任何可以帮助我解决这种情况的建议？

先感谢您。

Answer 1

这样吧：

\([^\)]+\)

例如： http ： //regex101.com/r/eH4uW8

Answer 2

目的是删除花括号中的所有内容，包括花括号。 您是指方括号还是括号？

只需使用[\\[(].*?[\\])]吗？ 然后，我可能会对{space}{space}+上的{space}进行替换，以解决所创建的过多间距。