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

(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

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