正規表現で置換する - VBA

Question

テキストを書式設定したいと思います。私は、両側からスペースを追加し、同じ「」のTEの文字列を維持したい

"something 'text between apostrophes' text" 

に

"something'text between apostrophes'text" 

：私はこれを変換したいのですが ：私はこのような何かを意味します。 私はこのようにそれを実行しようとしました：

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