05-12-19, 02:59 AM
السلام عليكم ورحمه الله وبركاته
لدي ملف تكست به هذا النص
","Name":"Ahmed"__","Phone":"5031477"__","Email":"Ahmed.20@gmail.com"__","Age":"26"
","Name":"Ali"__","Phone":"502862"__","Email":"daed.2340@gmail.com"__","Age":"30"
ولدي داتا جريد فيو بها 4 اعمده اريد في كل عمود يظهر شئ من هذا النص فقط بمعني
عامود الاسم يظهر به احمد عامود السن يظهر به 26 وهكذا
جربت هذا الكود ولكن لم يضبط معي
لدي ملف تكست به هذا النص
","Name":"Ahmed"__","Phone":"5031477"__","Email":"Ahmed.20@gmail.com"__","Age":"26"
","Name":"Ali"__","Phone":"502862"__","Email":"daed.2340@gmail.com"__","Age":"30"
ولدي داتا جريد فيو بها 4 اعمده اريد في كل عمود يظهر شئ من هذا النص فقط بمعني
عامود الاسم يظهر به احمد عامود السن يظهر به 26 وهكذا
جربت هذا الكود ولكن لم يضبط معي
كود :
DataGridView1.ColumnCount = 4
DataGridView1.Columns(0).Name = "ID"
DataGridView1.Columns(1).Name = "NAME"
DataGridView1.Columns(2).Name = "PHONE"
DataGridView1.Columns(3).Name = "EMAIL"
Dim json As String = File.ReadAllText("wtag\TRFG.JSON")
Dim Name = From t As String In json.Split(vbNewLine) Select _
System.Text.RegularExpressions.Regex.Match(t, "Name"":""(.+)""").Groups(1).Value
Dim Age = From t As String In json.Split(vbNewLine) Select _
System.Text.RegularExpressions.Regex.Match(t, """Age"".""(.+)""__").Groups(1).Value
Dim Email = From t As String In json.Split(vbNewLine) Select _
System.Text.RegularExpressions.Regex.Match(t, """Email"".""(.+)""__").Groups(1).Value
Dim Phone = From t As String In json.Split(vbNewLine) Select _
System.Text.RegularExpressions.Regex.Match(t, """Phone"".""(.+)""__").Groups(1).Value
For i As Integer = 0 To Name.Count - 1
DataGridView1.Rows.Add(Name(i), Age(i), Email(i), Phone(i))
Next