[اليوم السابع]

عندي في ريتش بوكس هذه الجمله 
"name":"rtrffss","fan_count":11117,"link":"www.web.com/","id":"5544488889955"
وعندي داتا جريد فيو محتاج اعدل علي الباترن حتي اقدر انا اضيف كل المحتوي في عامود في الداتا جريد فيو 
كتبت هذا الكود ولكن لم يظبط معي 

كود :

Dim json As String = TextBox3.Text


         Dim name = From t As String In json.Split(vbNewLine) Select _
              System.Text.RegularExpressions.Regex.Match(t, "name"":""(.+)"",").Groups(1).Value

         Dim fan_count = From t As String In json.Split(vbNewLine) Select _
             System.Text.RegularExpressions.Regex.Match(t, "fan_count"":(.+),""").Groups(1).Value
         Dim link = From t As String In json.Split(vbNewLine) Select _
           System.Text.RegularExpressions.Regex.Match(t, "link"":""(.+)"",""").Groups(1).Value

         Dim id = From t As String In json.Split(vbNewLine) Select _
                      System.Text.RegularExpressions.Regex.Match(t, "id"":""(.+)""").Groups(1).Value

         For i As Integer = 0 To name.Count - 1
             DataGridView1.Rows.Add(id(i), name(i), fan_count(i), link(i))
         Next