(28-08-17, 01:50 AM)سعود كتب : الفكرة هي البحث ضمن مصدر الصفحة  لكن!!! .... لازم تستخدم برنامج تطبق عليه ولا تدخل مباشرة بمصادر الصفحات.

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

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

(28-08-17, 04:49 AM)سعود كتب :

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

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

(28-08-17, 07:38 PM)سعود كتب : طيب لحظة اخش الوين10
واعمل شرح بسيط و ارجو ان يفيدك بشيء

(28-08-17, 08:57 PM)سعود كتب :

(28-08-17, 07:43 PM)ابو روضة كتب :

(28-08-17, 07:38 PM)سعود كتب : طيب لحظة اخش الوين10
واعمل شرح بسيط و ارجو ان يفيدك بشيء

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

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

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

كود :

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

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

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

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

أفضل طريقة كما تفضل الأخ سعود هي 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

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

(29-08-17, 08:14 PM)ابو روضة كتب :

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

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