[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% اخي اتمني لو شرح بسيط للكود فالاهم من الكود هو شرح الكود