ازاى استخرج هذه النصوص - نسخة قابلة للطباعة

ازاى استخرج هذه النصوص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ازاى استخرج هذه النصوص (/showthread.php?tid=22296)

الصفحات: 1 2

ازاى استخرج هذه النصوص - ابو روضة - 29-10-17

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

ازاى استخرج هذه النصوص فى اداة الويب براوزر بعيدا عن 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 يكون أفضل لانى

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

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

RE: ازاى استخرج هذه النصوص - Mohamad Anan - 30-10-17

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

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 

RE: ازاى استخرج هذه النصوص - ابو روضة - 30-10-17

(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

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

RE: ازاى استخرج هذه النصوص - Mohamad Anan - 30-10-17

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 

RE: ازاى استخرج هذه النصوص - ابو روضة - 30-10-17

(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

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

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

RE: ازاى استخرج هذه النصوص - Mohamad Anan - 30-10-17

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 

RE: ازاى استخرج هذه النصوص - ابو روضة - 30-10-17

(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]

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

RE: ازاى استخرج هذه النصوص - Mohamad Anan - 30-10-17

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

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

RE: ازاى استخرج هذه النصوص - ابو روضة - 30-10-17

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

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

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

RE: ازاى استخرج هذه النصوص - Mohamad Anan - 30-10-17

أخي الكريم

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

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