Imports System
Public Class Test
Public Shared Sub Main()
Dim re As New Text.RegularExpressions.Regex("(?<=cont.*?)I(.*?)I(?=.*?/cont)")
Dim s As String = "cont cont ItextI /cont /cont"
Dim m As Text.RegularExpressions.Match = re.Match(s)
Console.WriteLine(m.Groups(1).Value & m.Value & m.Groups(2).Value)
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gcmUgQXMgTmV3IFRleHQuUmVndWxhckV4cHJlc3Npb25zLlJlZ2V4KCIoPzw9Y29udC4qPylJKC4qPylJKD89Lio/L2NvbnQpIikKCQlEaW0gcyBBcyBTdHJpbmcgPSAiY29udCBjb250IEl0ZXh0SSAvY29udCAvY29udCIKCQlEaW0gbSBBcyBUZXh0LlJlZ3VsYXJFeHByZXNzaW9ucy5NYXRjaCA9IHJlLk1hdGNoKHMpCgoJCUNvbnNvbGUuV3JpdGVMaW5lKG0uR3JvdXBzKDEpLlZhbHVlICYgbS5WYWx1ZSAmIG0uR3JvdXBzKDIpLlZhbHVlKQoJRW5kIFN1YgpFbmQgQ2xhc3M=