تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
جلب اسماء وروابط هذه الصفحة بالHtmlAgilityPack
#1
السلام عليكم ورحمة الله وبركاته
اخوتى بحاول اجلب روابط هذه الصفحة 


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

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




كود :
 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


الملفات المرفقة
.zip   اسلام ويب.zip (الحجم : 133.6 ك ب / التحميلات : 12)
الرد
تم الشكر بواسطة:
#2
تفضل أخي سامي
كود :
lst.Add("http://fatwa.islamweb.net/fatwa/" & n.Attributes("href").Value)
الرد
تم الشكر بواسطة: ابو روضة , elgokr , elgokr
#3
(19-09-18, 08:23 AM)911 كتب : تفضل أخي سامي
كود :
lst.Add("http://fatwa.islamweb.net/fatwa/" & n.Attributes("href").Value)

الله يكرم اصلك أخى ويبارك بعمرك فعلا نجحت
هو ما ينفعش انزع هذا الاسم من بين الاسماء " رقم الفتوى "

الرد
تم الشكر بواسطة: 911 , 911 , elgokr , elgokr
#4
كود :
ListBox1.Items.Add(Regex.Match(n.InnerText, ".+").Value)
الرد
تم الشكر بواسطة: ابو روضة , elgokr , elgokr
#5
(19-09-18, 08:40 AM)911 كتب :
كود :
ListBox1.Items.Add(Regex.Match(n.InnerText, ".+").Value)

شكرا لك أخى الكريم وجزاك الله كل خير فعلا نجحت
الرد
تم الشكر بواسطة: 911 , 911 , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى جلب كامل الصفحة ابو روضة 11 294 07-06-19, 03:51 AM
آخر رد: ابو روضة
Rainbow [VB.NET] [تم الحل] عدم تنفيذ امر الا عند تحميل الصفحة DK-x 4 129 11-04-19, 11:23 PM
آخر رد: elgokr
  اريد تغير اسماء ازرار MessageBox سمير جمال 1 185 20-02-19, 11:02 PM
آخر رد: asemshahen5
  اختيار 3 اسماء عشوائية atefkhalf2004 11 389 08-01-19, 12:32 AM
آخر رد: atefkhalf2004
Bug [VB.NET] نزول الى اسفل الصفحة WebBrowser mervandzz 1 210 17-11-18, 03:30 AM
آخر رد: elgokr
  جلب اسماء هذه الصفحات براوبطها ابو روضة 7 394 15-11-18, 10:04 PM
آخر رد: elgokr
  جلب كامل الصفحة ابو روضة 2 283 08-11-18, 06:29 PM
آخر رد: ابو روضة
  جلب صورة أى فيديو بالHtmlAgilityPack ابو روضة 8 469 31-10-18, 10:46 PM
آخر رد: elgokr
  [VB.NET] مشكلة في استخراج روابط هذه الصفحة بال HtmlAgilityPack mervandzz 2 296 13-10-18, 03:53 PM
آخر رد: mervandzz
  شريط اخباري عن المواد في الصفحة الرائيسية القشه 6 544 14-07-18, 01:07 PM
آخر رد: YousefOkasha

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم