[bakriano30@yahoo.com]

كيف يمكنني استخلاص معلومات هذه الصفحه في داتا جريت فيو 
بحيث يظهر لي السعر ورقم الهاتف و الوصف في هذا الموقع 

https://olx.com.eg/ad/-IDalPVO.html

[bakriano30@yahoo.com]

(27-07-19, 07:55 AM)bakriano30@yahoo.com كتب : كيف يمكنني استخلاص معلومات هذه الصفحه في داتا جريت فيو 
بحيث يظهر لي السعر ورقم الهاتف و الوصف في هذا الموقع 

https://olx.com.eg/ad/-IDalPVO.html

[سعود]

اخي الكريم لم ار التفاصيل التي ذكرتها
ممكن تصور الشاشة لعلها في منطقة بالصفحة لم افطن لها؟

[bakriano30@yahoo.com]

(27-07-19, 07:41 PM)سعود كتب : اخي الكريم لم ار التفاصيل التي ذكرتها
ممكن تصور الشاشة لعلها في منطقة بالصفحة لم افطن لها؟

هكذا اخ سعود

[bakriano30@yahoo.com]

(27-07-19, 07:55 AM)bakriano30@yahoo.com كتب : كيف يمكنني استخلاص معلومات هذه الصفحه في داتا جريت فيو 
بحيث يظهر لي السعر ورقم الهاتف و الوصف في هذا الموقع 

https://olx.com.eg/ad/-IDalPVO.html

[bakriano30@yahoo.com]

(27-07-19, 07:55 AM)bakriano30@yahoo.com كتب : كيف يمكنني استخلاص معلومات هذه الصفحه في داتا جريت فيو 
بحيث يظهر لي السعر ورقم الهاتف و الوصف في هذا الموقع 

https://olx.com.eg/ad/-IDalPVO.html

[سامي محمد]

كود :

        Dim w As WebRequest = WebRequest.Create("https://olx.com.eg/ad/-IDalPVO.html")
        Dim H As HttpWebResponse = w.GetResponse
        Dim RD As Stream = H.GetResponseStream
        Dim R As New StreamReader(RD)
        Dim S As String = Regex.Replace(R.ReadToEnd, "(\r|\n)", "")
        S = Regex.Replace(S, "\s+", Space(1))
        Dim M As MatchCollection
        M = Regex.Matches(S, "<meta\s*name=""description""\s*content=""(\d+,?\d+).+?:(.+?)"".+dir=""ltr"">(.+?)</strong>")
        DataGridView1.Rows.Add()
        DataGridView1(0, 0).Value = M(0).Groups(1).Value
        DataGridView1(1, 0).Value = M(0).Groups(2).Value
        DataGridView1(2, 0).Value = M(0).Groups(3).Value

[bakriano30@yahoo.com]

(28-07-19, 01:08 AM)سامي محمد كتب :

كود :

        Dim w As WebRequest = WebRequest.Create("https://olx.com.eg/ad/-IDalPVO.html")
        Dim H As HttpWebResponse = w.GetResponse
        Dim RD As Stream = H.GetResponseStream
        Dim R As New StreamReader(RD)
        Dim S As String = Regex.Replace(R.ReadToEnd, "(\r|\n)", "")
        S = Regex.Replace(S, "\s+", Space(1))
        Dim M As MatchCollection
        M = Regex.Matches(S, "<meta\s*name=""description""\s*content=""(\d+,?\d+).+?:(.+?)"".+dir=""ltr"">(.+?)</strong>")
        DataGridView1.Rows.Add()
        DataGridView1(0, 0).Value = M(0).Groups(1).Value
        DataGridView1(1, 0).Value = M(0).Groups(2).Value
        DataGridView1(2, 0).Value = M(0).Groups(3).Value

شكرا اخب سامي علي مرورك العطر ولكن اتمني ان تشرح لي الكود واين يتم اضافته

---

(28-07-19, 01:08 AM)سامي محمد كتب :

كود :

        Dim w As WebRequest = WebRequest.Create("https://olx.com.eg/ad/-IDalPVO.html")
        Dim H As HttpWebResponse = w.GetResponse
        Dim RD As Stream = H.GetResponseStream
        Dim R As New StreamReader(RD)
        Dim S As String = Regex.Replace(R.ReadToEnd, "(\r|\n)", "")
        S = Regex.Replace(S, "\s+", Space(1))
        Dim M As MatchCollection
        M = Regex.Matches(S, "<meta\s*name=""description""\s*content=""(\d+,?\d+).+?:(.+?)"".+dir=""ltr"">(.+?)</strong>")
        DataGridView1.Rows.Add()
        DataGridView1(0, 0).Value = M(0).Groups(1).Value
        DataGridView1(1, 0).Value = M(0).Groups(2).Value
        DataGridView1(2, 0).Value = M(0).Groups(3).Value

اكود لم يشتغل اخي بل يقف البرنامج 

---

(27-07-19, 07:55 AM)bakriano30@yahoo.com كتب : كيف يمكنني استخلاص معلومات هذه الصفحه في داتا جريت فيو 
بحيث يظهر لي السعر ورقم الهاتف و الوصف في هذا الموقع 

https://olx.com.eg/ad/-IDalPVO.html

يظهر مشكله مع توقف المشروع كاملا عند اضافه كود اخ سامي داخل البوتن

[ابراهيم ايبو]

السلام عليكم اخي بكري

هل اضفت اعمدة في الداتاغرايد اولا؟

ان لم تكن قد اضفت الاعمدة فلن يضاف الصف

لديك 3 اعمدة قم باضافتها من زاوية الداتا غرايد او بالكود

وسيعمل معك الكود انشاء الله

[bakriano30@yahoo.com]

(28-07-19, 02:20 AM)ابراهيم ايبو كتب :

السلام عليكم اخي بكري

هل اضفت اعمدة في الداتاغرايد اولا؟

ان لم تكن قد اضفت الاعمدة فلن يضاف الصف

لديك 3 اعمدة قم باضافتها من زاوية الداتا غرايد او بالكود

وسيعمل معك الكود انشاء الله

الخطأ مستمر انا ارفقت المشروع اخ ابراهيم اطلع عليه واخبرني الخطأ وين

---

(28-07-19, 01:08 AM)سامي محمد كتب :

كود :

        Dim w As WebRequest = WebRequest.Create("https://olx.com.eg/ad/-IDalPVO.html")
        Dim H As HttpWebResponse = w.GetResponse
        Dim RD As Stream = H.GetResponseStream
        Dim R As New StreamReader(RD)
        Dim S As String = Regex.Replace(R.ReadToEnd, "(\r|\n)", "")
        S = Regex.Replace(S, "\s+", Space(1))
        Dim M As MatchCollection
        M = Regex.Matches(S, "<meta\s*name=""description""\s*content=""(\d+,?\d+).+?:(.+?)"".+dir=""ltr"">(.+?)</strong>")
        DataGridView1.Rows.Add()
        DataGridView1(0, 0).Value = M(0).Groups(1).Value
        DataGridView1(1, 0).Value = M(0).Groups(2).Value
        DataGridView1(2, 0).Value = M(0).Groups(3).Value

الكود صحيح 100% اخي اتمني لو شرح بسيط للكود فالاهم من الكود هو شرح الكود