[سامي محمد]

كود :

        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