تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة: ابو روضة , سعود الشامان


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ظهور هذا الخطاء عند عمل Publish لي التطبيق mohamedhota 3 105 11-05-19, 04:58 PM
آخر رد: elgokr
  [سؤال] ما سبب ظهور هذا الخطأ System.windows.forms.pdb not loaded dametucorazon 7 142 22-04-19, 12:48 AM
آخر رد: elgokr
  formatage لرقم وفق شرط معين ahmedfa71 8 135 11-04-19, 01:50 PM
آخر رد: elgokr
  [VB.NET] [تم الحل] جلب line الذي يحتوي على نص معين DK-x 2 94 09-04-19, 11:11 PM
آخر رد: DK-x
  ارجو المساعده فى ظهور هذا الخطأ فى اضافه اصناف للفاتوره خالد كامل1 4 136 09-04-19, 03:22 AM
آخر رد: elgokr
  كود لجعل برينتر معين هو الافترادي nabil.1710 3 85 05-04-19, 06:53 PM
آخر رد: ابراهيم ايبو
  لمذا ظهور هذا الخطأ فى الداتا جريد فيو خالد كامل1 1 93 27-03-19, 09:02 PM
آخر رد: خالد كامل1
  اريد ظهور الفورم لمرة واحدة فقط سمير جمال 1 120 17-03-19, 04:12 AM
آخر رد: asemshahen5
Information [VB.NET] جلب جداول من موقع mervandzz 1 105 06-03-19, 07:00 PM
آخر رد: حريف برمجة
  [سؤال] محتويات Textbox تتاثر باختيار كائن معين من Combobox mr_hso 3 217 05-03-19, 03:31 PM
آخر رد: mr_hso

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


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