تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ظهور جزء معين من موقع
#1
السلام عليكم ورحمة الله وبركاته
ممكن اخوتى تقولوا لى كيف أظهر فقط جزء معين من صفحة انترنت احددها انا
يعنى مثلا هذه الصفحة اريد ان يظهر فى مشروعى هذا الجزء فقط واخفاء باقى الصفحة
الموقع


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

الرد
تم الشكر بواسطة: سعود الشامان
#2
PHP كود :
Dim h As String = New Net.WebClient().DownloadString("http://saaid.net/gesah/410.htm")
Dim s As String System.Text.RegularExpressions.Regex.Match(h"(<table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""7"">).+?(</table>)"System.Text.RegularExpressions.RegexOptions.Singleline).Value
Me
.WebBrowser1.DocumentText 
الرد
تم الشكر بواسطة: ابو روضة , سعود الشامان
#3
(20-10-17, 07:44 PM)a.ahmed كتب :
PHP كود :
Dim h As String = New Net.WebClient().DownloadString("http://saaid.net/gesah/410.htm")
Dim s As String System.Text.RegularExpressions.Regex.Match(h"(<table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""7"">).+?(</table>)"System.Text.RegularExpressions.RegexOptions.Singleline).Value
Me
.WebBrowser1.DocumentText 

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


الملفات المرفقة
.zip   مقالات صيد الفوائد.zip (الحجم : 343.96 ك ب / التحميلات : 25)
الرد
تم الشكر بواسطة: سعود الشامان , سعود الشامان
#4
(20-10-17, 09:37 PM)a.ahmed كتب : Remove WebBrowser1
Remove ListBox2
Remove Button1
Remove Label1

PHP كود :
Public Class Form1

    Dim dic 
As New Dictionary(Of StringString)

 
   Private Sub ListBox1_SelectedIndexChanged(ByVal sender As ObjectByVal e As EventArgsHandles ListBox1.SelectedIndexChanged
        Dim h 
As String = New Net.WebClient().DownloadString(dic(sender.text))
 
       Dim s As String System.Text.RegularExpressions.Regex.Match(h"(<table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""\d+"">).+?(</table>)"System.Text.RegularExpressions.RegexOptions.Singleline).Value
        Me
.WebBrowser2.DocumentText s
    End Sub

    Private Sub Form1_Load
(ByVal sender As ObjectByVal e As EventArgsHandles MyBase.Load
        Dim h 
As String = New Net.WebClient().DownloadString("http://www.saaid.net/mohamed/m.htm")
 
       Dim matches As System.Text.RegularExpressions.MatchCollection System.Text.RegularExpressions.Regex.Matches(h"<font size=""\d+""><a href=""\d+.htm""><font color="".+"">.+[\r\n]?.+</font></a></font></td>")
 
       For Each m As System.Text.RegularExpressions.Match In matches
            Dim v 
As String m.Value.Replace(vbNewLine" ")
 
           Dim l As String "http://www.saaid.net/mohamed/" System.Text.RegularExpressions.Regex.Match(v"(?<=<font size=""4""><a href="")\d+\.htm?(?="">)").Value
            Dim t 
As String Net.WebUtility.HtmlDecode(System.Text.RegularExpressions.Regex.Replace(v"<.*?>"""))
 
           dic.Add(tl)
 
           ListBox1.Items.Add(t)
 
       Next
    End Sub

End 
Class 



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


زادك الله علما نافعاً
الرد
تم الشكر بواسطة: سعود الشامان
#5
Remove WebBrowser1
Remove ListBox2
Remove Button1
Remove Label1

PHP كود :
Public Class Form1

    Dim dic 
As New Dictionary(Of StringString)

 
   Private Sub ListBox1_SelectedIndexChanged(ByVal sender As ObjectByVal e As EventArgsHandles ListBox1.SelectedIndexChanged
        Dim h 
As String = New Net.WebClient().DownloadString(dic(sender.text))
 
       Dim s As String System.Text.RegularExpressions.Regex.Match(h"(<table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""\d+"">).+?(</table>)"System.Text.RegularExpressions.RegexOptions.Singleline).Value
        Me
.WebBrowser2.DocumentText s
    End Sub

    Private Sub Form1_Load
(ByVal sender As ObjectByVal e As EventArgsHandles MyBase.Load
        Dim h 
As String = New Net.WebClient().DownloadString("http://www.saaid.net/mohamed/m.htm")
 
       Dim matches As System.Text.RegularExpressions.MatchCollection System.Text.RegularExpressions.Regex.Matches(h"<font size=""\d+""><a href=""\d+.htm""><font color="".+"">.+[\r\n]?.+</font></a></font></td>")
 
       For Each m As System.Text.RegularExpressions.Match In matches
            Dim v 
As String m.Value.Replace(vbLf" ")
 
           Dim l As String "http://www.saaid.net/mohamed/" System.Text.RegularExpressions.Regex.Match(v"(?<=<font size=""4""><a href="")\d+\.htm?(?="">)").Value
            Dim t 
As String Net.WebUtility.HtmlDecode(System.Text.RegularExpressions.Regex.Replace(v"<.*?>"""))
 
           dic.Add(tl)
 
           ListBox1.Items.Add(t)
 
       Next
    End Sub

End 
Class 

    Updated
الرد
تم الشكر بواسطة: ابو روضة , سعود الشامان


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد ظهور الفورم لمرة واحدة فقط سمير جمال 1 47 17-03-19, 04:12 AM
آخر رد: asemshahen5
Information [VB.NET] جلب جداول من موقع mervandzz 1 68 06-03-19, 07:00 PM
آخر رد: حريف برمجة
  [سؤال] محتويات Textbox تتاثر باختيار كائن معين من Combobox mr_hso 3 152 05-03-19, 03:31 PM
آخر رد: mr_hso
  ظهور رساله ازعجتنى فى مشروع مصمم بال vb.net خالد كامل1 6 222 20-02-19, 03:44 PM
آخر رد: elgokr
  هل البرنامج له عدد معين من الفورم Emam emam 10 288 19-02-19, 07:09 PM
آخر رد: حريف برمجة
  [VB.NET] ظهور رسالة خطأ Ahmed Alkuiady 6 224 16-02-19, 06:10 PM
آخر رد: princelovelorn
  مساعدة في موقع panels على الفورم ؟؟؟ abdullhadi999 2 112 16-02-19, 02:45 AM
آخر رد: أحمد النجار
  [VB.NET] استبدال رمز معين بسطر جديد waelalmsry75 2 100 07-02-19, 02:57 PM
آخر رد: waelalmsry75
  هل يُمكن إدراج شاشة تحميل تتزامن مع استكمال ظهور جميع أدوات المشروع؟ Hazem1 11 500 23-01-19, 02:54 PM
آخر رد: elgokr
  كيف يُمكن تزامن ال Progress bar مع ظهور نافذة الطباعة؟ Hazem1 1 177 18-01-19, 09:29 AM
آخر رد: Hazem1

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم