[ابو روضة]

(29-08-17, 09:04 PM)سعود كتب :

كود :

SelectNodes

هذه تعني اكثر من نود واحدة ...اذا كانت النتيجة اكثر من واحدة كيف  تعدل بالكود؟
ممكن تستخدم 

كود :

SelectSingleNode

اقصد لو كانت هناك نتيجة واحدة نستخدم  

كود :

SelectSingleNode

جربت وجلبت النص الموجود فى توقيعك لكن بنفس الكود السابق أصل أخوك لسة بيتعلم

هل ينفع اجلب كافة القراء او كافة السور بال XPath بدلا من اى شيئ اخر ؟

[bidaya]

(29-08-17, 07:05 PM)السندبااد كتب :

أخي العزيز أبو روضة أنصحك بمتابعة درس الشاكي لله الذي أشار له الأخ سعود حتى تفهم كل شيء

وبالنسبة لسؤالك عن التاجات، فالجواب في الصورة التالية:

الله يرضى عليك اخي

---

(30-08-17, 12:29 AM)bidaya كتب :

(29-08-17, 07:05 PM)السندبااد كتب :

أخي العزيز أبو روضة أنصحك بمتابعة درس الشاكي لله الذي أشار له الأخ سعود حتى تفهم كل شيء

وبالنسبة لسؤالك عن التاجات، فالجواب في الصورة التالية:

الله يرضى عليك اخي

هل يمكن تطبيق الفكرة على هذا الموقع وجزاكم الله خيرا

[ابو روضة]

(30-08-17, 01:55 AM)سعود كتب :

إقتباس :هل يمكن تطبيق الفكرة على هذا الموقع وجزاكم الله خيرا

بكل تاكيد

كود :

Imports System.Net
Public Class Form1
   Dim lst As New List(Of String)
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim url As String = "http://ourquraan.com/shyookh/%D8%B3%D8%B9%D9%88%D8%AF-%D8%A7%D9%84%D8%B4%D8%B1%D9%8A%D9%85/"
       url = WebUtility.HtmlDecode(url)
       Dim hweb As New HtmlAgilityPack.HtmlWeb
       Dim doc As HtmlAgilityPack.HtmlDocument = hweb.Load(url, "Get")
       Dim nod As HtmlAgilityPack.HtmlNodeCollection = doc.DocumentNode.SelectNodes("//div[@class='btn-group']/p[2]")
       For r As Integer = 0 To nod.Count - 1
           ListBox1.Items.Add(nod.Item(r).InnerText.Trim)
           For Each n As HtmlAgilityPack.HtmlNode In nod(r).SelectNodes("//a[2]")
               If n.Attributes("href").Value.ToString.ToLower.Contains("/quran/") Then
                   lst.Add(n.Attributes("href").Value)
               End If
           Next
       Next
   End Sub
   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
       AxWindowsMediaPlayer1.URL = lst(sender.selectedindex)
   End Sub
End Class

[ابو روضة]

(30-08-17, 02:53 AM)سعود كتب : مهو انتا فهمتها وعملت اقتناص!
على كل حال شي طبيعي لو تبحث بمواضيعي  واقصد الاسئلة بتلاقيني  اتعب عشان افهم حاجة والاخوان ما يقصرون بس انا افهم ببطء ولما افهم شغلة اعاود لاسئلتي واستغرب بطء فهمي لكن هذي هي الدنيا والناس تختلف ... يعني لا تجهد عقلك ابدا ريح بالك  مع الوقت تتضح الامور اكثر و اكثر.
انا فهمت من مشاركتك كيف استخدم Htmlweb الخاصة بـ HtmlAgilityPack 
لاول مرة استخدمها وما فهمتها زمان الا الان بفضل الله ثم فضلك.
الموضوع يحتاج راحة وارتياح  صدقني المخ يتعب.
اما شرح الفيديو فمتى ما صرت مستعد له باذن الله اجهزه.

اصل قولت اجرب بنفس مشروعك السابق على هذه الصفحة

http://ourquraan.com/shyookh/%D9%85%D8%A...%86%D8%A7/

فالسور تكررت لدى فقولت اكيد العيب من كود معين كهذا مثلا

//div[@class='btn-group']/p[2]  .....

لكن مش مهم وعلى رايك لابد أن أريح عقلى بعض الشيئ

[ابو روضة]

(30-08-17, 03:17 AM)سعود كتب :

إقتباس :فالسور تكررت لدى فقولت اكيد العيب من كود معين كهذا مثلا

ونا برضو تكررت معي وكنت ححذف ردي لما قولت "بكل تاكيد"
بس مع المحاولة والتنقيح انهيت المثال.

بعد البحث فى الصفحة اتضح لى ان هناك قراء لهم قراءة المصحف المجود و المصحف المرتل   لكن لم اعرف فصلهم عن بعض " الله المستعان "

[ابو روضة]

(30-08-17, 05:47 AM)سعود كتب :

إقتباس :بعد البحث فى الصفحة اتضح لى ان هناك قراء لهم قراءة المصحف المجود و المصحف المرتل Smile  لكن لم اعرف فصلهم عن بعض " الله المستعان "

الصبر
اصلا غالبا استخدم الحيلة وكثرة الشروط.
شوف هذا المشروع مفتوح المصدر لكافة الموجودين بالموقع ويمكنك تحميل اي سورة  سواء عبر IDM او تحميل بالبرنامج بعد ان تنقر الزر الايمن للفارة على قائمة السور
تحميل الملف

المرفق مش شغال حبيبى

[السندبااد]

أمثلة رائعة جداً، ألف شكر لكم
قمت بإضافة ميزة تحميل السورة في المثال الأول الذي وضعه الأخ سعود
   

[bidaya]

(30-08-17, 01:55 AM)سعود كتب :

إقتباس :هل يمكن تطبيق الفكرة على هذا الموقع وجزاكم الله خيرا

بكل تاكيد

كود :

Imports System.Net
Public Class Form1
   Dim lst As New List(Of String)
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim url As String = "http://ourquraan.com/shyookh/%D8%B3%D8%B9%D9%88%D8%AF-%D8%A7%D9%84%D8%B4%D8%B1%D9%8A%D9%85/"
       url = WebUtility.HtmlDecode(url)
       Dim hweb As New HtmlAgilityPack.HtmlWeb
       Dim doc As HtmlAgilityPack.HtmlDocument = hweb.Load(url, "Get")
       Dim nod As HtmlAgilityPack.HtmlNodeCollection = doc.DocumentNode.SelectNodes("//div[@class='btn-group']/p[2]")
       For r As Integer = 0 To nod.Count - 1
           ListBox1.Items.Add(nod.Item(r).InnerText.Trim)
           For Each n As HtmlAgilityPack.HtmlNode In nod(r).SelectNodes("//a[2]")
               If n.Attributes("href").Value.ToString.ToLower.Contains("/quran/") Then
                   lst.Add(n.Attributes("href").Value)
               End If
           Next
       Next
   End Sub
   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
       AxWindowsMediaPlayer1.URL = lst(sender.selectedindex)
   End Sub
End Class

الله يرضى عليك اخي سعود دائما متألق
اتمنى ان الموضوع يتطور وتضاف له طرق اخرى مثل تغيير المقرء

[السندبااد]

إقتباس :الله يرضى عليك اخي سعود دائما متألق

اتمنى ان الموضوع يتطور وتضاف له طرق اخرى مثل تغيير المقرء

تفضل أخي العزيز، ولا تنسانا من دعاءك في هذه الأيام الفضيلة:
   

[bidaya]

(30-08-17, 03:00 PM)السندبااد كتب :

إقتباس :الله يرضى عليك اخي سعود دائما متألق

اتمنى ان الموضوع يتطور وتضاف له طرق اخرى مثل تغيير المقرء

تفضل أخي العزيز، ولا تنسانا من دعاءك في هذه الأيام الفضيلة:

شكرا لك اخي الكريم اسأل الله ان يجعل  لك في كل حرف كتبته بالف حسنة
وان يبارك لك في كل اعمالك
وان يرزقك الجنة يارب