Imports System

Imports System.Xml

Imports HtmlAgilityPack

Imports System.Xml.Linq

Imports System.Linq

​

Public Class Program

​

    Public Shared Sub Main()

        Dim html = <ol class="list-data-b">

<li class="in-ttl-b">(a) kanji; a Chinese character [ideograph]

    <ul class="list-data-b-in"><li class="text-jejp text-c"><span class="ex">漢字で書く</span></li><li class="text-jeen text-c">write in <i>kanji</i> [<i>Chinese characters</i>]</li></ul>

    <ul class="list-data-b-in"><li class="text-jejp text-c"><span class="ex">常用漢字</span></li><li class="text-jeen text-c"><i>Chinese characters</i> for everyday use (in Japan)</li></ul>

</li>

</ol>

        Dim HTMLDoc As HtmlDocument = New HtmlDocument()

        HTMLDoc.LoadHtml(html.ToString())

        Dim lis = HTMLDoc.DocumentNode.SelectNodes("//li[@class='in-ttl-b']")

        For Each li As HtmlNode in lis 

            Dim txt = li.SelectSingleNode("text()[1]")

            Console.WriteLine(txt.InnerText)

            For Each ul As HtmlNode in li.SelectNodes("ul")

                Dim japNode = ul.SelectSingleNode("li/span")

                Dim engNode = ul.SelectSingleNode("li[@class='text-jeen text-c']")

                Console.WriteLine(japNode.InnerText)

                Console.WriteLine(engNode.InnerText)

            Next

        Next

    End Sub

End Class

​