[ابو روضة]

السلام عليكم اخوتى

بحاول أجلب من هنا سور القرءان داخل الليست بوكس

وبتجلبهم فعلا لكن لا يوجد شيئ ظاهر وهذا هو الكود

كود :

 ListBox1.Items.Clear()
       Dim url As String = "https://suratmp3.com/quran/reciter/61"
       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("//*[@id='section-content']/div/div[3]/div/ul/li/span/i")
           ListBox1.Items.Add(n.InnerText.Trim)
           lst.Add(n.Attributes("sound-data").Value)
       Next

الموقع

https://suratmp3.com/quran/reciter/61

[سعود]

اكيد اني مستعجل لكن ان شاء الله تنبهني على اي شي نسيته

PHP كود :

Dim lst As New List(Of String)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Dim url As String = "https://suratmp3.com/quran/reciter/61"
        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("//*[@id='section-content']/div/div[3]/div/ul/li/span/i")
        '    ListBox1.Items.Add(n.InnerText.Trim)
        '    lst.Add(n.Attributes("sound-data").Value)
        'Next

        Dim nc As HtmlAgilityPack.HtmlNodeCollection = doc.DocumentNode.SelectNodes("//ul[@class='playlist no-top list']//li//div[@class='title-container']//a")
        For Each h As HtmlAgilityPack.HtmlNode In nc
            ListBox1.Items.Add(h.InnerText.Trim)
        Next
        Button1.Enabled = True
    End Sub 


---

  GetNamesFromUrl.zip (الحجم : 23.9 ك ب / التحميلات : 38)

PHP كود :

Imports System.Net
Imports System.Text

Public Class Form1
    Dim lst As New List(Of String)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Dim url As String = "https://suratmp3.com/quran/reciter/61"
        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("//*[@id='section-content']/div/div[3]/div/ul/li/span/i")
        '    ListBox1.Items.Add(n.InnerText.Trim)
        '    lst.Add(n.Attributes("sound-data").Value)
        'Next

        Dim nc As HtmlAgilityPack.HtmlNodeCollection = doc.DocumentNode.SelectNodes("//ul[@class='playlist no-top list']//li//div[@class='title-container']//a")
        For Each h As HtmlAgilityPack.HtmlNode In nc
            ComboBox1.Items.Add(h.InnerText.Trim)
            lst.Add(h.Attributes("href").Value.ToString.Replace("listen", "get-download") & ".mp3")
        Next
        Button1.Enabled = True
    End Sub

   

  
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim i As Integer = ComboBox1.SelectedIndex
        If i >= 0 Then
            wmp.URL = lst(i)
        End If
    End Sub
End Class 


[ابو روضة]

(31-07-19, 06:51 AM)سعود كتب : اكيد اني مستعجل لكن ان شاء الله تنبهني على اي شي نسيته

PHP كود :

Dim lst As New List(Of String)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Dim url As String = "https://suratmp3.com/quran/reciter/61"
        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("//*[@id='section-content']/div/div[3]/div/ul/li/span/i")
        '    ListBox1.Items.Add(n.InnerText.Trim)
        '    lst.Add(n.Attributes("sound-data").Value)
        'Next

        Dim nc As HtmlAgilityPack.HtmlNodeCollection = doc.DocumentNode.SelectNodes("//ul[@class='playlist no-top list']//li//div[@class='title-container']//a")
        For Each h As HtmlAgilityPack.HtmlNode In nc
            ListBox1.Items.Add(h.InnerText.Trim)
        Next
        Button1.Enabled = True
    End Sub 


---

PHP كود :

Imports System.Net
Imports System.Text

Public Class Form1
    Dim lst As New List(Of String)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Dim url As String = "https://suratmp3.com/quran/reciter/61"
        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("//*[@id='section-content']/div/div[3]/div/ul/li/span/i")
        '    ListBox1.Items.Add(n.InnerText.Trim)
        '    lst.Add(n.Attributes("sound-data").Value)
        'Next

        Dim nc As HtmlAgilityPack.HtmlNodeCollection = doc.DocumentNode.SelectNodes("//ul[@class='playlist no-top list']//li//div[@class='title-container']//a")
        For Each h As HtmlAgilityPack.HtmlNode In nc
            ComboBox1.Items.Add(h.InnerText.Trim)
            lst.Add(h.Attributes("href").Value.ToString.Replace("listen", "get-download") & ".mp3")
        Next
        Button1.Enabled = True
    End Sub

   

  
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim i As Integer = ComboBox1.SelectedIndex
        If i >= 0 Then
            wmp.URL = lst(i)
        End If
    End Sub
End Class 


هههه عارف انك اللى هاتجبها عشان كدة كتبت HtmlAgilityPack الليست بوكس لا تظهر الاسماء

بدلا من  الليست بوكس لا تظهر الاسماء..

جزاك الله كل الخير أخى سعود فنان ماشاء الله

[سعود]

هل فكرت بسرد كافة القراء وامكانية تحميل السور؟!

[ابو روضة]

(31-07-19, 06:19 PM)سعود كتب : هل فكرت بسرد كافة القراء وامكانية تحميل السور؟!

بصراحة لا لم أفكر بهذا لان المشكلة كانت معقدانى وحضرتك حلتها بفضل الله....
وبما أنك كتبت تعليق لآنى كنت محرج أسألك والله عن هذا .
لما كتبتها هكذا // مع اننا نكتبها واحدة فقط ؟
ولماذا حذفت هذين السطرين  "get-download"

[سعود]

(31-07-19, 08:52 PM)ابو روضة كتب :

(31-07-19, 06:19 PM)سعود كتب : هل فكرت بسرد كافة القراء وامكانية تحميل السور؟!

بصراحة لا لم أفكر بهذا لان المشكلة كانت معقدانى وحضرتك حلتها بفضل الله....
وبما أنك كتبت تعليق لآنى كنت محرج أسألك والله عن هذا .
لما كتبتها هكذا // مع اننا نكتبها واحدة فقط ؟
ولماذا حذفت هذين السطرين  "get-download"

PHP كود :

lst.Add(h.Attributes("href").Value.ToString.Replace("listen", "get-download") & ".mp3") 


الفرق بين اول رابط وآخر رابط هو هذا نستبدل listen بــ get-download
اما الخط المائل بصراحة الى الان لم افهم متى نستخدم هذا او هذا اقصد مفرد او مزدوج  / او //

[سامي محمد]

الخط المائل \ يقوم بتحويل الحرف او العلامة التي تقع خلفة من المعنى المنطقي الى المعنى الحقيقي
يعني مثلا ان اردت ان تبحث عن النقطة بمعنها الحقيقي تكتبها هكذ \. وان اردت ان تبحث عن الشرطة المائلة بمعناها الحقيقي تكتبها هكذا \\ والشرطة الاخرى هكذ \/

[ابو روضة]

(31-07-19, 10:23 PM)سامي محمد كتب : الخط المائل \ يقوم بتحويل الحرف او العلامة التي تقع خلفة من المعنى المنطقي الى المعنى الحقيقي
يعني مثلا ان اردت ان تبحث عن النقطة بمعنها الحقيقي تكتبها هكذ \. وان اردت ان تبحث عن الشرطة المائلة بمعناها الحقيقي تكتبها هكذا \\  والشرطة الاخرى هكذ \/

جزاك الله كل الخير أخى سامى...

أعتقد هذه فى الRegex فهل تنفع هنا أيضاً ؟

[أمجد وضاح]

طيب اخواني انا معي كل السور اريد ان يكون هناك ملف داخل ملف مثل الفلود

[سعود]

اخي الكريم امجد ما رايك بتعديل ارتفاع صورة التوقيع لتكون مثل العرض

ما رايك اليست اجمل؟!

بعد اذن الاخ ابوروضة 

مصطلح فلود هل يمكن ان تدلني على شرح لها؟

تحياتي