منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] داتا جريد فيو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] داتا جريد فيو (/showthread.php?tid=32361)

داتا جريد فيو - اليوم السابع - 05-12-19

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


RE: داتا جريد فيو - ابو ليلى - 05-12-19

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

RE: داتا جريد فيو - اليوم السابع - 05-12-19

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

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

RE: داتا جريد فيو - 3booody - 05-12-19

عدلتلك عالكود اخي على فرض ان رقم الهاتف لايتجاوز ال 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




RE: داتا جريد فيو - اليوم السابع - 07-12-19

(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



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

RE: داتا جريد فيو - 3booody - 07-12-19

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