Imports System
Imports System.Text.RegularExpressions
Public Class Test
Public Shared Sub Main()
Dim HTMLString As String = "" & Environment.NewLine & _
" " & Environment.NewLine & _
" Hello, I am a TeXT. Who are you?" & Environment.NewLine & _
" " & Environment.NewLine & _
""
Console.WriteLine("--- Input ---" & Environment.NewLine & HTMLString & Environment.NewLine)
Console.WriteLine("--- Match ---" & Environment.NewLine & FindTextInSpan(HTMLString, "firstspan", "text"))
End Sub
Public Shared Function FindTextInSpan(ByVal HTML As String, ByVal SpanId As String, ByVal LookFor As String) As String
Dim m As Match = Regex.Match(HTML, "(?<=.*)" & LookFor & "(?=.*<\/span>)", RegexOptions.IgnoreCase)
Return If(m IsNot Nothing, m.Value, "")
End Function
End Class