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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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.ObjectByVal e As System.EventArgsHandles Button1.Click
 
        If 
(WebBrowser1.Document IsNot NothingThen
            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.ObjectByVal e As System.EventArgsHandles Button1.Click
 
        If 
(WebBrowser1.Document IsNot NothingThen
            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.ObjectByVal e As System.EventArgsHandles Button1.Click
 
        If 
(WebBrowser1.Document IsNot NothingThen
            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.ObjectByVal e As System.EventArgsHandles Button1.Click
 
        If 
(WebBrowser1.Document IsNot NothingThen
            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.ObjectByVal e As System.EventArgsHandles Button1.Click
 
        If 
(WebBrowser1.Document IsNot NothingThen
            For Each PageElement 
As HtmlElement In WebBrowser1.Document.All
                If PageElement
.TagName "SPAN" And Not IsNumeric(PageElement.InnerTextThen
                    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.ObjectByVal e As System.EventArgsHandles Button1.Click[/align]
[
align=center] [/align]
[
align=center       If (WebBrowser1.Document IsNot NothingThen[/align]
[
align=center           For Each PageElement As HtmlElement In WebBrowser1.Document.All[/align]
[
align=center               If PageElement.TagName "SPAN" And Not IsNumeric(PageElement.InnerTextThen[/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

أخي الكريم


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

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