تقييم الموضوع :
  • 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 ك ب / التحميلات : 4)
الرد
تم الشكر بواسطة:
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة في استخراج روابط هذه الصفحة بال HtmlAgilityPack mervandzz 2 67 13-10-18, 03:53 PM
آخر رد: mervandzz
  شريط اخباري عن المواد في الصفحة الرائيسية القشه 7 323 14-07-18, 01:07 PM
آخر رد: YousefOkasha
  عرض اسماء الاجهزة داخل الشبكة المحلية atefkhalf2004 10 291 30-06-18, 08:48 PM
آخر رد: elgokr
  تصغير حجم الصفحة في webbrowser ? hichem1 6 166 09-06-18, 01:59 AM
آخر رد: hichem1
  [سؤال] جلب روابط هذه الصفحة ابو روضة 2 118 04-02-18, 05:25 AM
آخر رد: ابو روضة
  [سؤال] كيف اعمل سحب عشوائي مابين عدة اسماء Nete0 19 465 31-01-18, 03:17 PM
آخر رد: Basil Abdallah
  [سؤال] الحصول على اسماء المستخدمين Mohamed20 3 320 27-01-18, 08:50 PM
آخر رد: عبدالله الدوسري
  [سؤال] اضافة اسماء الكائنات الموجودة بالفورم بListbox Basil Abdallah 5 228 25-01-18, 08:42 PM
آخر رد: Basil Abdallah
  [سؤال] مشكلة في اسماء الاصناف في فاتورة المبيعات ملهمـ 8 550 22-11-17, 02:55 AM
آخر رد: ملهمـ
  [VB.NET] جلب اسماء أربــاع القرآن من هنا ابو روضة 1 220 12-11-17, 05:45 PM
آخر رد: ابو روضة

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


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