[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

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