使用替换正则表达式 - VBA

Question

我想格式化文本。我的意思是这样的： 我想改变这个：

"something'text between apostrophes'text" 

到

"something 'text between apostrophes' text" 

我想从两边添加空格，但要'同TE字符串。 我试图做这样的：

Arkusz1.Cells(1, 1).Replace What:="'*'" Replacement:=" '*' " 

但其结果是：

"something '*' text" 

Arkusz1.Cells(1,1)包含string我想要替换。是否有可能做到这一点？ 感谢

Answer 1

你可以试试这个正则表达式：

('[^']+') 

并以此取代：

" $1 " 

样品来源

Dim Regex As System.Text.RegularExpressions.Regex 
Dim SubjectString As String = "something 'text between apostrophes' text" 
Dim ResultString As String = Regex.Replace(SubjectString, "('[^']+')", " $1 ") 
Console.WriteLine(ResultString)  

Regex 101 Demo