اختصار هذا الكود HtmlAgilityPack - نسخة قابلة للطباعة

كود :

Dim doc As New HtmlAgilityPack.HtmlDocument

        doc.LoadHtml(RichTextBox1.Text)

        For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='EmbedScmain']/text()")

            ListBox1.Items.Add(n.InnerText.Replace("&lt;", "<").Replace("&gt;", ">"))

        Next

        For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='EmbedSc0']/text()")

            ListBox1.Items.Add(n.InnerText.Replace("&lt;", "<").Replace("&gt;", ">"))

        Next

        For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='EmbedSc1']/text()")

            ListBox1.Items.Add(n.InnerText.Replace("&lt;", "<").Replace("&gt;", ">"))

        Next

        For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='EmbedSc2']/text()")

            ListBox1.Items.Add(n.InnerText.Replace("&lt;", "<").Replace("&gt;", ">"))

        Next

        For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='EmbedSc3']/text()")

            ListBox1.Items.Add(n.InnerText.Replace("&lt;", "<").Replace("&gt;", ">"))

        Next

        For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='EmbedSc4']/text()")

            ListBox1.Items.Add(n.InnerText.Replace("&lt;", "<").Replace("&gt;", ">"))

        Next

PHP كود :

For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[contains(@id,'EmbedSc')]")
            ListBox1.Items.Add(n.InnerText.Replace("&lt;", "<").Replace("&gt;", ">"))
        Next