[ابو روضة]

هل يجوز اختصار هذا الكود بحلقة تكرارية واحدة

كود :

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 


والحل كله يكمن بهذا الكود الصغير أو بهذه الكلمة الصغيرة contains

[contains(@id,'EmbedSc')]

فال id  يحتوى على كلمة EmbedSc 

فنزعنا ال =

ووضعنا بدلا منها ,

[سعود]

[contains(@id,'EmbedSc')]

معلومة جديدة بالنسبة لي.
ارجو ان اتذكرها ان احتجت لها
شكر الله لك و بارك فيك.
تحياتي لك ولكل الاخوة الكرام.