regex: replace char between two chars

[voxinforma]

I need to replace the 'x' character with the 'y' character whenever it occurs between two 'q' characters.

How can this be done using replace and regex? Thanks in advance for your help!

 

[strongm]

strResult= Replace(strSource, "qxq", "qyq")

 

[voxinforma]

I guess I oversimplified my problem: there can be any number of characters between 'q' and 'q', so this isn't a simple (for me) replace.

Thanks in advance for your help.

 

[vladk]

I apologize for hijacking the topic. I cannot now offer the best solution, may be later strongm will. Can this code satisfy your reqiurements for now?

Dim strR As String
strR = XYReplaceBetweenTwoQs("qxxxqxqqx")


Private Function XYReplaceBetweenTwoQs(ByVal pstrString As String) As String
Dim strPattern As String
Dim strTemp As String
Dim objRegEx As System.Text.RegularExpressions.Regex

strPattern = "qx{1,}q{1,}"
strTemp = objRegEx.Replace(pstrString, strPattern, "qyq")

Return objRegEx.Replace(strTemp, strPattern, "qyq")

End Function

vladk

 

[vladk]

Oops:

strPattern="(q(x){1,}q){1,}"

 

[strongm]

Private Enum RepMethod
Serial = 1
Staggered = 2
End Enum

Private Function DemoReplace(strSource As String, strReplace As String, Optional Method As RepMethod = Staggered) As String
With CreateObject("vbscript.regexp")
.MultiLine = True
.Global = True
If Method = Serial Then
.Pattern = "(q).+?(?=q)"
DemoReplace = .Replace(strSource, "$1" & strReplace)
Else
.Pattern = "(q).+?(q)"
DemoReplace = .Replace(strSource, "$1" & strReplace & "$2")
End If
End With
End Function

 

[voxinforma]

strongm, I bow to you!