منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

اليوم السابع

3booody