정규 표현식으로 바꾸기 - VBA

Question

텍스트 서식을 지정하고 싶습니다. 나는이 변환하고 싶습니다 :

"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