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