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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=8197)



طلب حفظ جزء من صفحة موقع - ali.alfoly - 28-03-13

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

هذا بداية الجزء المطلوب




وهذا نهايته


والنتيجة النهائية تكون بحفظ الجدول الذى يحتوى على المواصفات



فى الانتظار وبارك الله فيك



طلب حفظ جزء من صفحة موقع - kslawy - 28-03-13

الصفحة لم تفتح معي


طلب حفظ جزء من صفحة موقع - ali.alfoly - 28-03-13

اتفضل الرابط
PHP كود :
http://www.arabmobile.mobi/c/cell/img-nokia-109-5123.htm 

او حمل الصفحة مرفقه


طلب حفظ جزء من صفحة موقع - السكر المغرور - 28-03-13

السلام عليكم

تفضل ،،


طلب حفظ جزء من صفحة موقع - mazen - 28-03-13

رائع اخي ممكن تحول الجزء دة الي صورة وتحفظها في ملف


طلب حفظ جزء من صفحة موقع - ali.alfoly - 28-03-13

السكر المغرور كتب :السلام عليكم

تفضل ،،


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

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



PHP كود :
Public Class Form1

    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        
'
        Dim Loading As String = "Loading..."
        '
        
TextBox1.Text Loading
        
'
        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.arabmobile.mobi/c/cell/img-nokia-109-5123.htm")
        '
        
Dim response As System.Net.HttpWebResponse request.GetResponse()

        
'
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())

        '
        
Dim sourcecode As String sr.ReadToEnd()
        
'
        TextBox1.Text = sourcecode
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '
        
Dim sourceString As String = New System.Net.WebClient().DownloadString("http://www.arabmobile.mobi/c/cell/img-nokia-109-5123.htm")
        
'
        TextBox1.Text = sourceString
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        '
        
WebBrowser1.Navigate("http://www.arabmobile.mobi/c/cell/img-nokia-109-5123.htm")
    
End Sub

    
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.ObjectByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgsHandles WebBrowser1.DocumentCompleted
        
'
        Dim htmlTable As String = WebBrowser1.Document.GetElementById("AutoNumber2").InnerHtml
        '
        
Dim TRtages() As String Split(htmlTable"<TD width=15>&nbsp;</TD>")
        
'
        WebBrowser2.DocumentText = TRtages(0)
        '
        
TextBox1.Text TRtages(0)
    
End Sub
End 
Class 

واتمنى منك عمل دورة بسيطه فى هذا الامر
او لو فيه دورة دلنى عليها


طلب حفظ جزء من صفحة موقع - ali.alfoly - 29-03-13

up up up up