+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] داتا جريت فيو (/showthread.php?tid=30537)
الصفحات:
1
2
داتا جريت فيو - bakriano30@yahoo.com - 27-07-19
كيف يمكنني استخلاص معلومات هذه الصفحه في داتا جريت فيو
بحيث يظهر لي السعر ورقم الهاتف و الوصف في هذا الموقع
https://olx.com.eg/ad/-IDalPVO.html
RE: داتا جريت فيو - bakriano30@yahoo.com - 27-07-19
(27-07-19, 07:55 AM)bakriano30@yahoo.com كتب : كيف يمكنني استخلاص معلومات هذه الصفحه في داتا جريت فيو
بحيث يظهر لي السعر ورقم الهاتف و الوصف في هذا الموقع
https://olx.com.eg/ad/-IDalPVO.html
RE: داتا جريت فيو - سعود - 27-07-19
اخي الكريم لم ار التفاصيل التي ذكرتها
ممكن تصور الشاشة لعلها في منطقة بالصفحة لم افطن لها؟
RE: داتا جريت فيو - bakriano30@yahoo.com - 27-07-19
(27-07-19, 07:41 PM)سعود كتب : اخي الكريم لم ار التفاصيل التي ذكرتها
ممكن تصور الشاشة لعلها في منطقة بالصفحة لم افطن لها؟
هكذا اخ سعود
RE: داتا جريت فيو - bakriano30@yahoo.com - 27-07-19
(27-07-19, 07:55 AM)bakriano30@yahoo.com كتب : كيف يمكنني استخلاص معلومات هذه الصفحه في داتا جريت فيو
بحيث يظهر لي السعر ورقم الهاتف و الوصف في هذا الموقع
https://olx.com.eg/ad/-IDalPVO.html
RE: داتا جريت فيو - bakriano30@yahoo.com - 27-07-19
(27-07-19, 07:55 AM)bakriano30@yahoo.com كتب : كيف يمكنني استخلاص معلومات هذه الصفحه في داتا جريت فيو
بحيث يظهر لي السعر ورقم الهاتف و الوصف في هذا الموقع
https://olx.com.eg/ad/-IDalPVO.html
RE: داتا جريت فيو - سامي محمد - 28-07-19
كود :
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).ValueRE: داتا جريت فيو - bakriano30@yahoo.com - 28-07-19
(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
يظهر مشكله مع توقف المشروع كاملا عند اضافه كود اخ سامي داخل البوتن
RE: داتا جريت فيو - ابراهيم ايبو - 28-07-19
السلام عليكم اخي بكري
هل اضفت اعمدة في الداتاغرايد اولا؟
ان لم تكن قد اضفت الاعمدة فلن يضاف الصف
لديك 3 اعمدة قم باضافتها من زاوية الداتا غرايد او بالكود
وسيعمل معك الكود انشاء الله
RE: داتا جريت فيو - bakriano30@yahoo.com - 28-07-19
(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% اخي اتمني لو شرح بسيط للكود فالاهم من الكود هو شرح الكود