[ابو روضة]

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

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

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

[911]

تفضل أخي سامي

كود :

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)

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

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

[911]

كود :

ListBox1.Items.Add(Regex.Match(n.InnerText, ".+").Value)

[ابو روضة]

(19-09-18, 08:40 AM)911 كتب :

كود :

ListBox1.Items.Add(Regex.Match(n.InnerText, ".+").Value)

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