[ابو روضة]

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

ازاى استخرج هذه النصوص فى اداة الويب براوزر بعيدا عن Regular Expression

https://www.tvquran.com/ar/scholar/224/profile/%D8%B1%D8%B9%D8%AF-

%D8%A7%D9%84%D9%83%D8%B1%D8%AF%D9%8A

يعنى لو هناك حيلة تغنينى عن ال Regular Expression يكون أفضل لانى

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

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

[Mohamad Anan]

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

PHP كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        If (WebBrowser1.Document IsNot Nothing) Then
            For Each PageElement As HtmlElement In WebBrowser1.Document.All
                If PageElement.InnerText = "البقرة" Then
                    MessageBox.Show(PageElement.InnerText)
                End If
            Next
        End If

    End Sub 


[ابو روضة]

(30-10-17, 10:45 AM)Mohamad Anan كتب : و عليكم السلام و رحمة الله و بركاته

PHP كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        If (WebBrowser1.Document IsNot Nothing) Then
            For Each PageElement As HtmlElement In WebBrowser1.Document.All
                If PageElement.InnerText = "البقرة" Then
                    MessageBox.Show(PageElement.InnerText)
                End If
            Next
        End If

    End Sub 


وباقى النصوص اخى ؟ هذا يستخرج البقرة فقط

[Mohamad Anan]

PHP كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        If (WebBrowser1.Document IsNot Nothing) Then
            For Each PageElement As HtmlElement In WebBrowser1.Document.All
                If PageElement.TagName = "SPAN" Then
                    MessageBox.Show(PageElement.InnerText)
                End If
            Next
        End If

    End Sub
End Class 


[ابو روضة]

(30-10-17, 12:05 PM)Mohamad Anan كتب :

PHP كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        If (WebBrowser1.Document IsNot Nothing) Then
            For Each PageElement As HtmlElement In WebBrowser1.Document.All
                If PageElement.TagName = "SPAN" Then
                    MessageBox.Show(PageElement.InnerText)
                End If
            Next
        End If

    End Sub
End Class 


تسلم اخى الكريم....

لكن انظر جلبهم ازاى ؟ انا اريد الاسماء فقط اتمنى تقدر تصححها

[Mohamad Anan]

PHP كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        If (WebBrowser1.Document IsNot Nothing) Then
            For Each PageElement As HtmlElement In WebBrowser1.Document.All
                If PageElement.TagName = "SPAN" And Not IsNumeric(PageElement.InnerText) Then
                    MessageBox.Show(PageElement.InnerText)
                End If
            Next
        End If

    End Sub 


[ابو روضة]

(30-10-17, 12:18 PM)Mohamad Anan كتب :

PHP كود :

[align=center]    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click[/align]
[align=center] [/align]
[align=center]        If (WebBrowser1.Document IsNot Nothing) Then[/align]
[align=center]            For Each PageElement As HtmlElement In WebBrowser1.Document.All[/align]
[align=center]                If PageElement.TagName = "SPAN" And Not IsNumeric(PageElement.InnerText) Then[/align]
[align=center]                    MessageBox.Show(PageElement.InnerText)[/align]
[align=center]                End If[/align]
[align=center]            Next[/align]
[align=center]        End If[/align]
[align=center][/align]
[align=center]    End Sub[/align] 


شكرا لك اخى...مقصدى

[Mohamad Anan]

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

أخي الكريم:
هل جربت آخر كود؟

[ابو روضة]

(30-10-17, 12:29 PM)Mohamad Anan كتب : السلام عليكم و رحمة الله و بركاته

أخي الكريم:
هل جربت آخر كود؟

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

[Mohamad Anan]

أخي الكريم


الكود عندي يظهر الاسماء فقط

في هذه الحالة لا يوجد حل سوى ارفاق مشروع للتعديل عيه