如何替换一系列字符，但如果它们是更大字的一部分则不能？

Question

假设我想将BASE字符串替换为STUFF，而不是BASELESS或BASED。这是原始字符串：

THE BASE OF THIS STATEMENT IS A BASELESS BASE

我希望它阅读：

THE STUFF OF THIS STATEMENT IS A BASELESS STUFF

我有类似的东西

Dim myString As String : myString = "THE BASE OF THIS STATEMENT IS A BASELESS BASE"
myString = Replace(myString, "BASE ", "STUFF ")
If Right(myString, 4) = "BASE" Then
  myString= Left(myString,Len(myString)-4) & "STUFF"
End If

但是有更清洁的方式吗？

Answer 1

试试这个：

Dim regEx
Set regEx = New RegExp
regEx.Pattern = "BASE(?!\w)"
regEx.IgnoreCase = True
regEx.Global = True
myString= regEx.Replace(myString, "STUFF")