代码之家 › 专栏 › 技术社区 › quant

如何替换一系列字符,但如果它们是更大单词的一部分,则不替换?

excel-2013 vba

quant · 技术社区 · 12 年前

说我要替换字符串 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

但有没有更干净的方法?

1 回复 | 直到 12 年前

Alberto Fecchi 12 年前

试试看:

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

推荐文章

Kram Kramer · 通过vba自动调整文本大小以适应形状

1 年前

Swapnil Supekar · 将二维阵列转换为一维阵列,并将一维阵列粘贴到另一张图纸上

1 年前

Eric · 我有邮政编码替换问题Excel VBA

1 年前

Chasester · VBA使用嵌套的DIV抓取URL

1 年前

jkp · 特殊字符复选标记

1 年前

Iron Man · 代码插入和复制到错误的工作表

1 年前

NoFafo · 将文本框放入数组进行格式化

1 年前

Smokestack · 过滤器范围C3:G3并粘贴到其他单元格

1 年前

Julie S. · Excel VBA for循环的代码帮助,用于检查多个ListBoxes是否有值?

1 年前

Kram Kramer · 如何通过vba代码将Chart xAxes字体颜色从黑色更改为红色?

1 年前