منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - جلب اسماء وروابط هذه الصفحة بالHtmlAgilityPack

السلام عليكم ورحمة الله وبركاته

اخوتى بحاول اجلب روابط هذه الصفحة

http://fatwa.islamweb.net/fatwa/index.ph...&CatId=186

باسمائها لكن الاسماء تأتى دون الروابط

وهذا صور للمشروع والمشروع مرفق اتمنى الحل الله يكرمكم

كود :
 Dim url As String = "http://fatwa.islamweb.net/fatwa/index.php?page=FatwaCategory&CatId=186"

        Dim wc As New WebClient

        wc.Encoding = Encoding.Default

        Dim html As String = wc.DownloadString(url)

        Dim doc As New HtmlAgilityPack.HtmlDocument

        doc.LoadHtml(html)

        For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//div[@class='contents']/a[@href]")

            ListBox1.Items.Add(n.InnerText)

            lst.Add(n.Attributes("href").Value)

        Next

تفضل أخي سامي

كود :
lst.Add("http://fatwa.islamweb.net/fatwa/" & n.Attributes("href").Value)

(19-09-18, 08:23 AM)911 كتب : [ -> ]تفضل أخي سامي

كود :
lst.Add("http://fatwa.islamweb.net/fatwa/" & n.Attributes("href").Value)

الله يكرم اصلك أخى ويبارك بعمرك فعلا نجحت

هو ما ينفعش انزع هذا الاسم من بين الاسماء " رقم الفتوى "

كود :
ListBox1.Items.Add(Regex.Match(n.InnerText, ".+").Value)

(19-09-18, 08:40 AM)911 كتب : [ -> ]
كود :
ListBox1.Items.Add(Regex.Match(n.InnerText, ".+").Value)

شكرا لك أخى الكريم وجزاك الله كل خير فعلا نجحت

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

ابو روضة

911

ابو روضة

911

ابو روضة