Imports System
Imports System.Text .RegularExpressions 
 
Public Class Test
	Public Shared Sub Main( ) 
		Dim HTMLString As String =  "<HTML>"  &  Environment.NewLine  &  _
                "    <body bgcolor=" "#FF0000" ">"  &  Environment.NewLine  &  _
                "        <span style=" "color: #FFA966" " id=" "firstspan" ">Hello, I am a TeXT. Who are you?</span>"  &  Environment.NewLine  &  _
                "    </body>"  &  Environment.NewLine  &  _
                "</HTML>" 
 
                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,  "(?<=<span.+id=" ""  &  SpanId &  "" ".*>.*)"  &  LookFor &  "(?=.*<\/span>)" ,  RegexOptions.IgnoreCase ) 
        Return If( m IsNot Nothing,  m.Value ,  "" ) 
    End Function
End Class
SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gSFRNTFN0cmluZyBBcyBTdHJpbmcgPSAiPEhUTUw+IiAmIEVudmlyb25tZW50Lk5ld0xpbmUgJiBfCiAgICAgICAgICAgICAgICAiICAgIDxib2R5IGJnY29sb3I9IiIjRkYwMDAwIiI+IiAmIEVudmlyb25tZW50Lk5ld0xpbmUgJiBfCiAgICAgICAgICAgICAgICAiICAgICAgICA8c3BhbiBzdHlsZT0iImNvbG9yOiAjRkZBOTY2IiIgaWQ9IiJmaXJzdHNwYW4iIj5IZWxsbywgSSBhbSBhIFRlWFQuIFdobyBhcmUgeW91Pzwvc3Bhbj4iICYgRW52aXJvbm1lbnQuTmV3TGluZSAmIF8KICAgICAgICAgICAgICAgICIgICAgPC9ib2R5PiIgJiBFbnZpcm9ubWVudC5OZXdMaW5lICYgXwogICAgICAgICAgICAgICAgIjwvSFRNTD4iCiAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKCItLS0gSW5wdXQgLS0tIiAmIEVudmlyb25tZW50Lk5ld0xpbmUgJiBIVE1MU3RyaW5nICYgRW52aXJvbm1lbnQuTmV3TGluZSkKICAgICAgICAgICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKCItLS0gTWF0Y2ggLS0tIiAmIEVudmlyb25tZW50Lk5ld0xpbmUgJiBGaW5kVGV4dEluU3BhbihIVE1MU3RyaW5nLCAiZmlyc3RzcGFuIiwgInRleHQiKSkKCUVuZCBTdWIKICAgICAgICAKICAgICAgICBQdWJsaWMgU2hhcmVkIEZ1bmN0aW9uIEZpbmRUZXh0SW5TcGFuKEJ5VmFsIEhUTUwgQXMgU3RyaW5nLCBCeVZhbCBTcGFuSWQgQXMgU3RyaW5nLCBCeVZhbCBMb29rRm9yIEFzIFN0cmluZykgQXMgU3RyaW5nCiAgICAgICAgRGltIG0gQXMgTWF0Y2ggPSBSZWdleC5NYXRjaChIVE1MLCAiKD88PTxzcGFuLitpZD0iIiIgJiBTcGFuSWQgJiAiIiIuKj4uKikiICYgTG9va0ZvciAmICIoPz0uKjxcL3NwYW4+KSIsIFJlZ2V4T3B0aW9ucy5JZ25vcmVDYXNlKQogICAgICAgIFJldHVybiBJZihtIElzTm90IE5vdGhpbmcsIG0uVmFsdWUsICIiKQogICAgRW5kIEZ1bmN0aW9uCkVuZCBDbGFzcw==