[ابو روضة]

السلام عليكم ورحمة الله وبركاته.

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

وازاى مثلا اجيب كل الكلام اللى موجود هنا فى ليست بوكس

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

لآن من الواضح أنها بتوفر الكثير والكثير...

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

للأسف لم أفهم أى شيئ منها وأنا اريد شرح بسيط لها كى افهمها فقط.

وجزاكم الله كل خير

[ابو روضة]

الفكرة هي البحث ضمن مصدر الصفحة  لكن!!! .... لازم تستخدم برنامج تطبق عليه ولا تدخل مباشرة بمصادر الصفحات.

[مقال] شرح التعابير القياسية Regex
معلومة ::: Regular Expressions
مختبر RegEx بسيط جداً

اذا فعلا اردت فهمها فهذه اهم ما يمكنني قول ان تبدا به اما لو احببت مصار انجليزية فهذا شيء آخر

يعنى ايه اخى هذه الجملة " لازم تستخدم برنامج تطبق عليه ولا تدخل مباشرة بمصادر الصفحات. "؟؟

فقط انا عاوز اعرف ازاى اجلب نص عربى من اى موقع بال Regex 

[ابو روضة]

يعنى ايه اخى هذه الجملة " لازم تستخدم برنامج تطبق عليه ولا تدخل مباشرة بمصادر الصفحات. "؟؟

خلا ص انسى اللي كتبت ركز على الروابط و بس 
وممكن تبحث باليوتيوب

ههههه خلاص نسيت ولا يهمك....

انا بس عاوز اعرف هو جاب هذه الرموز من هذا الموقع من فحص عنصر اسماء السور بناءا على ايه

http://suratmp3.com/modules/mp3Quran/reciter/11/

PHP كود :

Dim Pattern As String = "title-data='(.+?)'\ssound-data='(.+?\.mp3)'>" 


[ابو روضة]

طيب لحظة اخش الوين10
واعمل شرح بسيط و ارجو ان يفيدك بشيء

ربنا يعزك اخى ويبارك بعمرك واتمنى يكون مبسط وسهل كما تعودنا منك تبسيط المعلومة

[ابو روضة]

طيب لحظة اخش الوين10
واعمل شرح بسيط و ارجو ان يفيدك بشيء

ربنا يعزك اخى ويبارك بعمرك واتمنى يكون مبسط وسهل كما تعودنا منك تبسيط المعلومة

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

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

 ومفهومة لكن مش عارف ليه مش بتنزل شروحات جديدة ؟؟ المهم !!

انا كل اللى طالبه هو ازاى اعرف أجلب النصوص من داخل أى موقع أو بمعنى أدق واختصارا

لماذا جلب هذه الرموز "title-data='(.+?)'\ssound-data='(.+?\.mp3)'>" 

من داخل هذا التاجالhtml 

PHP كود :

<span class="" title-data="سورة النحل" sound-data="http://archive.org/download/fm_002_20150413_1147/016.mp3">سورة النحل</span> 


[السندبااد]

السلام عليكم ورحمة الله وبركاته

أفضل طريقة كما تفضل الأخ سعود هي HtmlAgilityPack وللأسباب التي شرحها الأخ الشاكي لله في موضوعه

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

كود :

       Dim url As String = "http://www.mp3quran.net/tnjy.html"
       Dim wc As New WebClient
       wc.Encoding = Encoding.UTF8
       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/tr")
       Dim nodeTitle As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectSingleNode("//html/body/div[3]/div[6]/div[1]/div/div/h3")
       Me.Text = nodeTitle.InnerText
       For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//td[4]/a")
           lst.Add(n.Attributes("href").Value)
       Next
       For Each n2 As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//td[2]")
           If n2.InnerText.Contains("السورة") = False Then
               ListBox1.Items.Add(n2.InnerText)
           End If
       Next

[ابو روضة]

كود :

Imports System.Net
Imports System.Text
Public Class Form1
   Dim lst As New List(Of String)
   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
       AxWindowsMediaPlayer1.URL = lst(sender.selectedindex)
   End Sub
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim url As String = "http://www.mp3quran.net/tnjy.html"
       Dim wc As New WebClient
       wc.Encoding = Encoding.UTF8
       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/tr")
       For r As Integer = 1 To nod.Count - 1
           For Each n As HtmlAgilityPack.HtmlNode In nod(r).SelectNodes("//td[4]/a")
               lst.Add(n.Attributes("href").Value)
           Next
           For Each n2 As HtmlAgilityPack.HtmlNode In nod(r).SelectNodes("//td[2]")
               If n2.InnerText.Contains("السورة") = False Then
                   ListBox1.Items.Add(n2.InnerText)
               End If
           Next
       Next
   End Sub
End Class

هذا مثال لقاريء واحد

السلام عليكم ورحمة الله وبركاته

أفضل طريقة كما تفضل الأخ سعود هي HtmlAgilityPack وللأسباب التي شرحها الأخ الشاكي لله في موضوعه

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

كود :

       Dim url As String = "http://www.mp3quran.net/tnjy.html"
       Dim wc As New WebClient
       wc.Encoding = Encoding.UTF8
       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/tr")
       Dim nodeTitle As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectSingleNode("//html/body/div[3]/div[6]/div[1]/div/div/h3")
       Me.Text = nodeTitle.InnerText
       For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//td[4]/a")
           lst.Add(n.Attributes("href").Value)
       Next
       For Each n2 As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//td[2]")
           If n2.InnerText.Contains("السورة") = False Then
               ListBox1.Items.Add(n2.InnerText)
           End If
       Next

والله يا اخوتى جزاكم الله كل خير...

لكن انا عندى برامج كثيرة وعندى معظم مشاريعك اخى سعود بما فيهم مثال الحفظ الذى يضم

كل القراء لكن انا عاوز افهم مش عاوز حاجة جاهزة يعنى مثلا ليه حطيت هذا الكود فى مثالك ("//td[4]/a وهذا ("//td[2

؟؟ على اساس لما اجى اعمل اى برنامج مثلهم اكون فاهم انا بعمل ايه......

ومع ذلك لا اريد اتعابكم اكثر لانى قولت فى البداية اننا لا اريد شيئ جاهز بل اريد الفهم

لكن يبدو ان الوقت وقف عائقا امامكم لعمل شرح مبسط.

[السندبااد]

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

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

[ابو روضة]

اول تجربة لاقتناص جزء من ردى الاخير

[ابو روضة]

اول تجربة لاقتناص جزء من ردى الاخير

ماشاء الله
باي تقنية Regex Or html
ممكن الكود

بمتابعة شرح الاخ الشاكى وفهم جزئيات من شرحكم هنا الان

كود :

Dim url As String = "https://vb4arb.com/vb/showthread.php?tid=21515&page=2"
       Dim hWeb As HtmlAgilityPack.HtmlWeb = New HtmlAgilityPack.HtmlWeb
       Dim doc As HtmlAgilityPack.HtmlDocument = hWeb.Load(url, "GET")
       Dim node As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectNodes("//*[@id='pid_104835']/div[1]")(0)
       Label1.Text = node.InnerText

بحب اتعامل انا جدا مع XPath