Imports System
Imports System.Text.RegularExpressions
Public Class Program
Public Shared Sub Main()
Dim str As String = "abcd <tag>efg hijk lmnop</tag> qrst uvwxyz"
Dim content As String = ExtractContentBetweenTags(str, "tag")
If Not String.IsNullOrEmpty(content) Then
Console.WriteLine($"Extracted content: {content}")
Else
Console.WriteLine("No matching tags found.")
End If
End Sub
Public Shared Function ExtractContentBetweenTags(ByVal str As String, ByVal tagName As String) As String
Dim pattern As String = $"<{tagName}>(.*?)</{tagName}>"
Dim match As Match = Regex.Match(str, pattern)
If match.Success Then
Return match.Groups(1).Value
End If
Return String.Empty
End Function
End Class
' run:
'
' Extracted content: efg hijk lmnop
'