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

السلام عليكم ورحمه الله وبركاته 
لدي ملف تكست به هذا النص 
","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

[ابو ليلى]

تابع هذا الرد هنا

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

(05-12-19, 03:34 AM)ابو ليلى كتب : تابع هذا الرد هنا

شكرا اخي ولكن الموضوع يختلف انا عندي في الملف 1000 صف يحتوي علي بيانات كما ذكرتها من الصعب ان اكتبها في الكود لذك استردتها من ملف نصي 
والامر الثاني انا استرد من ملف نصي

[3booody]

عدلتلك عالكود اخي على فرض ان رقم الهاتف لايتجاوز ال 15 رقم حتى لايصير لخبطة بال Regex
وايضآ ماوجدت حقل يتعلق ب ID ماكتبته فقط عدلت عالموجود

كود :

DataGridView1.ColumnCount = 4
       DataGridView1.Columns(0).Name = "NAME"
       DataGridView1.Columns(1).Name = "AGE"
       DataGridView1.Columns(2).Name = "EMAIL"
       DataGridView1.Columns(3).Name = "PHONE"
       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"":""(.+)""__"",""Phone").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"":""(.{1,15})""__""").Groups(1).Value

       For i As Integer = 0 To Name.Count - 1
           DataGridView1.Rows.Add(Name(i), Age(i), Email(i), Phone(i))
       Next

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

(05-12-19, 05:04 AM)3booody كتب : عدلتلك عالكود اخي على فرض ان رقم الهاتف لايتجاوز ال 15 رقم حتى لايصير لخبطة بال Regex
وايضآ ماوجدت حقل يتعلق ب ID ماكتبته فقط عدلت عالموجود

كود :

DataGridView1.ColumnCount = 4
       DataGridView1.Columns(0).Name = "NAME"
       DataGridView1.Columns(1).Name = "AGE"
       DataGridView1.Columns(2).Name = "EMAIL"
       DataGridView1.Columns(3).Name = "PHONE"
       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"":""(.+)""__"",""Phone").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"":""(.{1,15})""__""").Groups(1).Value

       For i As Integer = 0 To Name.Count - 1
           DataGridView1.Rows.Add(Name(i), Age(i), Email(i), Phone(i))
       Next

عبقري و راجل محترم و خدوم وصدرك وسع بارك لك في عملك وصحتك واسرتك و رزقك يارب العالمين

[3booody]

ربي يسلمك اخي ولك بالمثل ان شاء الله