تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] داتا جريد فيو
#1
عندي علي الفورم داتا جريد فيو و ليست بوكس 
 
وكتبت الكود ده بحيث انه يجبلي معلومات من موقع اوليكس 
والكود شغال كويس لكن لو مثلا في الليست بوكس فيها اربع لينكات في كل مره بيعمل سليكت علي لينك بيظهر النتيجه في الصف الاول ويمسح اول نتيجه
انا اريد في كل مره اعمل سيليكت يظهر البيانات تحت بعض في الداتا جريد فيو حتي جربت اعمل لوب و مصفوفه ماظبطش معايا 

كود :
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
     Dim tyt As String
     tyt = ListBox1.SelectedItem
     Dim rtr As Integer
     rtr = ListBox1.Items.Count




     For ui = 0 To rtr
         Dim w As WebRequest = WebRequest.Create(tyt)
         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

     Next
الرد
تم الشكر بواسطة:
#2
(20-12-19, 07:34 AM)اليوم السابع كتب : عندي علي الفورم داتا جريد فيو و ليست بوكس 
 
وكتبت الكود ده بحيث انه يجبلي معلومات من موقع اوليكس 
والكود شغال كويس لكن لو مثلا في الليست بوكس فيها اربع لينكات في كل مره بيعمل سليكت علي لينك بيظهر النتيجه في الصف الاول ويمسح اول نتيجه
انا اريد في كل مره اعمل سيليكت يظهر البيانات تحت بعض في الداتا جريد فيو حتي جربت اعمل لوب و مصفوفه ماظبطش معايا 

كود :
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
     Dim tyt As String
     tyt = ListBox1.SelectedItem
     Dim rtr As Integer
     rtr = ListBox1.Items.Count




     For ui = 0 To rtr
         Dim w As WebRequest = WebRequest.Create(tyt)
         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

     Next

؟؟؟؟
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في إضافة row في جريد فيو Codack 1 54 , 02:27 PM
آخر رد: اسامه الهرماوي
  سؤال بالداتا جريد فيو اليوم السابع 3 132 07-09-20, 01:34 AM
آخر رد: اليوم السابع
  فلتر للداتا جريد فيو ahmedramzyaish 11 479 05-09-20, 02:40 PM
آخر رد: Anas Mahmoud
  [VB.NET] محتاج كود عرض اكثر من جدول فى داتا جرد فيو واحدة عن طريق اختيار الجدول من كومبوكس mohammed1994 1 180 01-09-20, 04:56 PM
آخر رد: اسامه الهرماوي
  [VB.NET] داتا غريد فيو Hamza Elshare 1 126 01-09-20, 04:53 PM
آخر رد: اسامه الهرماوي
  طريقه تحميع كميات صنف معين فى الداتا جريد فيو بباركود الصنف خالد كامل1 1 171 31-08-20, 10:23 AM
آخر رد: Anas Mahmoud
  سؤال فى الداتا جريد فيو خالد كامل1 1 164 28-08-20, 08:42 AM
آخر رد: حريف برمجة
  طريفه اضافه ROW الى الداتا جريد فيو برمجيا بالكود خالد كامل1 9 470 21-08-20, 02:05 AM
آخر رد: خالد كامل1
  اريد استرجاع شئ فى الداتا جريد فيو خالد كامل1 2 210 14-08-20, 08:54 PM
آخر رد: خالد كامل1
  الى خبراء الدوت نت (داتا جريد فيو) التنقل التلقائي في خلايا الداتا جريد ismaeel 0 202 10-08-20, 03:38 PM
آخر رد: ismaeel

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم