منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] جلب اسماء أربــاع القرآن من هنا - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] جلب اسماء أربــاع القرآن من هنا (/showthread.php?tid=22517)



جلب اسماء أربــاع القرآن من هنا - ابو روضة - 12-11-17

السلام عليكم
بحاول اجلب اسماء الأحزاب من هنا  
http://www.quranpagesmp3.com/quraters/qurtr1_mp3.php

   

لكن بيظهر بشكل غريب هكذا


وهذا الكود الذى استعمله

PHP كود :
 ListBox1.Items.Clear()
 
       Dim url As String "http://www.quranpagesmp3.com/quraters/qurtr1_mp3.php"
 
       Dim wc As New WebClient
        wc
.Encoding Encoding.Default
 
       Dim html As String wc.DownloadString(url)
 
       Dim doc As New HtmlAgilityPack.HtmlDocument
        html 
WebUtility.HtmlDecode(html)
 
       doc.LoadHtml(html)
 
       Dim nod As HtmlAgilityPack.HtmlNodeCollection doc.DocumentNode.SelectNodes("//table[2]/tbody")
 
       For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//td[5]/a")
 
           lst.Add(n.Attributes("href").Value)
 
       Next
        For Each n2 
As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//td[1]")
 
           If n2.InnerText.Contains("حزب") = False Then
                ListBox1
.Items.Add(n2.InnerText)
 
           End If
 
       Next
        Label1
.Text ListBox1.Items.Count 



RE: جلب اسماء أربــاع القرآن من هنا - ابو روضة - 12-11-17

شكرا لكم عرفت اعملها ارجو اغلاق الموضوع