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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عايز كود يجمع اسماء الألوان ودراجتها في ليست بوكس حسن الجلب 1 114 16-01-21, 08:37 AM
آخر رد: moosa_alabri
  [مشروع] موضوع اليوم الصفحة هد لزم تكون بدي لمفهوم Regular Expression Ali 2020 0 234 03-10-20, 09:16 PM
آخر رد: Ali 2020
  أريد كود عند اكتمال تحميل الصفحة في Chorme Driver selenium developermedo111 1 445 27-04-20, 05:42 AM
آخر رد: mohamedahmed1
  انشاء عدد اسماء من عدد رقمي bidaya 2 573 15-03-20, 05:40 PM
آخر رد: bidaya
  عرض جزء محدد من الصفحة داخل اداة ويب براوزر ابو روضة 8 1,137 29-12-19, 10:26 PM
آخر رد: ابو روضة
  اسماء الاجهزه علي الشبكه لاتظهر makky 2 522 17-12-19, 03:13 PM
آخر رد: makky
Exclamation [VB.NET] كود عندما يتم تحميل الصفحة كاملة في WebBrowser يكمل تنفيذ الكود SnTnt 4 917 16-09-19, 01:25 AM
آخر رد: SnTnt
  مشكلة فى جلب كامل الصفحة ابو روضة 11 1,904 07-06-19, 03:51 AM
آخر رد: ابو روضة
Rainbow [VB.NET] [تم الحل] عدم تنفيذ امر الا عند تحميل الصفحة DK-x 4 737 11-04-19, 11:23 PM
آخر رد: elgokr
  اريد تغير اسماء ازرار MessageBox سمير جمال 1 1,239 20-02-19, 11:02 PM
آخر رد: asemshahen5

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


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