تقييم الموضوع :
  • 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

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



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


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