+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : جلب اسماء وروابط هذه الصفحة بالHtmlAgilityPack (/showthread.php?tid=26556)
جلب اسماء وروابط هذه الصفحة بالHtmlAgilityPack - ابو روضة - 19-09-18
السلام عليكم ورحمة الله وبركاته
اخوتى بحاول اجلب روابط هذه الصفحة
باسمائها لكن الاسماء تأتى دون الروابط
وهذا صور للمشروع والمشروع مرفق اتمنى الحل الله يكرمكم
كود :
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)
NextRE: جلب اسماء وروابط هذه الصفحة بالHtmlAgilityPack - 911 - 19-09-18
تفضل أخي سامي
كود :
lst.Add("http://fatwa.islamweb.net/fatwa/" & n.Attributes("href").Value)
RE: جلب اسماء وروابط هذه الصفحة بالHtmlAgilityPack - ابو روضة - 19-09-18
(19-09-18, 08:23 AM)911 كتب : تفضل أخي سامي
كود :
lst.Add("http://fatwa.islamweb.net/fatwa/" & n.Attributes("href").Value)
الله يكرم اصلك أخى ويبارك بعمرك فعلا نجحت
هو ما ينفعش انزع هذا الاسم من بين الاسماء " رقم الفتوى "
RE: جلب اسماء وروابط هذه الصفحة بالHtmlAgilityPack - 911 - 19-09-18
كود :
ListBox1.Items.Add(Regex.Match(n.InnerText, ".+").Value)RE: جلب اسماء وروابط هذه الصفحة بالHtmlAgilityPack - ابو روضة - 19-09-18
(19-09-18, 08:40 AM)911 كتب :كود :
ListBox1.Items.Add(Regex.Match(n.InnerText, ".+").Value)
شكرا لك أخى الكريم وجزاك الله كل خير فعلا نجحت