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

                                                                                        
كود :
Dim url As String = "https://www.tvquran.com/ar/scholar/224/profile/%D8%B1%D8%B9%D8%AF-%D8%A7%D9%84%D9%83%D8%B1%D8%AF%D9%8A"
       Dim wc As New WebClient
       wc.Encoding = Encoding.UTF8
       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='listitem-details']/h4/a[@href]")
           ListBox1.Items.Add(n.InnerText)
           lst.Add("https://www.tvquran.com/ar/scholar/224/profile/رعد-الكردي" & n.Attributes("href").Value)
       Next

                                                                           
                                                                الموقع
                                                                      
                                                                  رعد الكردي
الرد
تم الشكر بواسطة:
#2
جرب هذا

كود :
Dim url As String = "https://www.tvquran.com/ar/scholar/224/profile/%D8%B1%D8%B9%D8%AF-%D8%A7%D9%84%D9%83%D8%B1%D8%AF%D9%8A"
Dim wc As New WebClient
wc.Encoding = Encoding.UTF8
Dim html As String = wc.DownloadString(url)
Dim r = Regex.Matches(html, "<div class=""share-box"" id="".*?</a>", RegexOptions.Singleline)
For Each t As Match In r
   ListBox1.Items.Add(Regex.Match(t.Value, "(?<=data-title="").*?(?="")").Value)
   lst.Add("https://" & Regex.Match(t.Value, "(?<=href="").*?(?="")").Value)
Next
الرد
تم الشكر بواسطة: ابو روضة , ابراهيم ايبو
#3
(18-10-18, 08:27 AM)rnmr كتب : جرب هذا


كود :
Dim url As String = "https://www.tvquran.com/ar/scholar/224/profile/%D8%B1%D8%B9%D8%AF-%D8%A7%D9%84%D9%83%D8%B1%D8%AF%D9%8A"
Dim wc As New WebClient
wc.Encoding = Encoding.UTF8
Dim html As String = wc.DownloadString(url)
Dim r = Regex.Matches(html, "<div class=""share-box"" id="".*?</a>", RegexOptions.Singleline)
For Each t As Match In r
  ListBox1.Items.Add(Regex.Match(t.Value, "(?<=data-title="").*?(?="")").Value)
  lst.Add("https://" & Regex.Match(t.Value, "(?<=href="").*?(?="")").Value)
Next

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [نقاش] عايز اعرف اسم القالب في هذا الموقع ahmed samir 1 124 12-01-21, 06:18 AM
آخر رد: ahmed samir
  [VB.NET] ما هي الملفات المطلوب إرفاقها لتشغيل تقرير Microsoft Report sulim 2 209 26-11-20, 12:47 PM
آخر رد: sulim
  [VB.NET] المشكلة انني لم استطيع استدعاء الملفات pdf من قاعدة البيانات sql 304 0 216 31-10-20, 05:40 PM
آخر رد: 304
  الملفات الناتجة اكثر من المستخدمة في مكونات ديفاكسبريس ابو محمد محمد محمد 3 506 30-09-20, 12:29 AM
آخر رد: محمد كريّم
  [VB.NET] ارجو المساعدة في برنامج لتشغيل الملفات الصوتية لنطق الارقام eman kh 5 722 13-09-20, 06:05 PM
آخر رد: eman kh
  [سؤال] تنظيم ارفاق المستندات في قاعدة البيانات Sql واحضار الملفات حسب قيمة البحث محمد العامر 10 898 07-09-20, 12:28 AM
آخر رد: محمد العامر
  استعراض الملفات الموجودة في سلة المحذوفات EbrNaj00 2 445 02-09-20, 02:24 AM
آخر رد: EbrNaj00
  ممكن مساعده من اخواتي ومعلميني الكرام بخصوص الملفات اليوم السابع 4 516 17-08-20, 01:24 PM
آخر رد: اليوم السابع
  [VB.NET] مشاكل تحزيم المشروع وإضافة الملفات المطلوبة محمد العامر 15 1,628 11-06-20, 03:12 AM
آخر رد: محمد العامر
  عمل بحث في مجموعة من الملفات النصية Basil Abdallah 0 326 08-06-20, 06:00 PM
آخر رد: Basil Abdallah

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


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