منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

كود :

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')]

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

شكر الله لك و بارك فيك.
تحياتي لك ولكل الاخوة الكرام.

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ابو روضة

ابو روضة

سعود