اخي الكريم لم ار التفاصيل التي ذكرتها
ممكن تصور الشاشة لعلها في منطقة بالصفحة لم افطن لها؟
(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 اعمدة قم باضافتها من زاوية الداتا غرايد او بالكود
وسيعمل معك الكود انشاء الله
(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% اخي اتمني لو شرح بسيط للكود فالاهم من الكود هو شرح الكود
