منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ازاى استخرج هذه النصوص
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم ورحمة الله وبركاته

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

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

وباقى النصوص اخى ؟ هذا يستخرج البقرة فقط
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 
(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 

تسلم اخى الكريم....
لكن انظر جلبهم ازاى ؟ انا اريد الاسماء فقط اتمنى تقدر تصححها
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 
(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

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


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

أخي الكريم:
هل جربت آخر كود؟
(30-10-17, 12:29 PM)Mohamad Anan كتب : [ -> ]السلام عليكم و رحمة الله و بركاته

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

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

بعدما صورت لك الشاشة
أخي الكريم


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

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