Imports System

Imports System.Xml

Imports System.Xml.Linq

Imports System.Text.RegularExpressions

​

Public Module Module1

​

    Public Sub Main()

        Dim input As String =

<tr class="sh" onclick="ii.ShowShareHolder('7358,IRO1GNBO0008')">

    <td>ghanisha sherkat</td>

    <td><div class="ltr" title="141,933,691">142 M</div></td>

    <td>52.560</td>

    <td>0</td>

    <td><div class=""/></td>

</tr>.ToString()

        Dim tds = Regex.Matches(input, "<td[^>]*>\s*(.*?)\s*<\/td>")

​

        For Each td In tds

            Dim content = td.Groups(1).ToString()

            If Regex.IsMatch(content, "^<div") Then

                Dim title = Regex.Match(content, "<div.*title=""(.*?)"">(.*)<\/div>")

                If title.Length > 0 Then

                    ' Print the first group for title 141,933,691

                    Console.WriteLine(title.Groups(1))

                    ' Print the second group for element content 142 M

                    Console.WriteLine(title.Groups(2))

                End If

            Else

                Console.WriteLine(td.Groups(1))

            End If

        Next

    End Sub

End Module

​