تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] داتا جريد فيو
#1
السلام عليكم ورحمه الله وبركاته 
لدي ملف تكست به هذا النص 
","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
الرد
تم الشكر بواسطة:
#2
تابع هذا الرد هنا
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد
#3
(05-12-19, 03:34 AM)ابو ليلى كتب : تابع هذا الرد هنا

شكرا اخي ولكن الموضوع يختلف انا عندي في الملف 1000 صف يحتوي علي بيانات كما ذكرتها من الصعب ان اكتبها في الكود لذك استردتها من ملف نصي 
والامر الثاني انا استرد من ملف نصي
الرد
تم الشكر بواسطة: 3booody , asemshahen5
#4
عدلتلك عالكود اخي على فرض ان رقم الهاتف لايتجاوز ال 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


الرد
#5
(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 , asemshahen5
#6
ربي يسلمك اخي ولك بالمثل ان شاء الله
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال في الداتا جريد فيو mohamedahmed1 4 129 20-01-20, 10:03 PM
آخر رد: mohamedahmed1
  حل مشكلة برنامج مرتبط مع داتا اكسس 2007 في حال وجود اوفيس 2016 samira20 1 122 12-01-20, 05:36 PM
آخر رد: بيسك لكل العرب
  الطباعة من الداتا جريد muad 14 570 09-01-20, 04:43 PM
آخر رد: asemshahen5
  تعديل علي كود في الداتا جريد فيو اليوم السابع 2 126 29-12-19, 11:44 PM
آخر رد: اليوم السابع
  [سؤال] داتا جريد فيو اليوم السابع 7 169 28-12-19, 09:18 PM
آخر رد: ابو ليلى
  سؤال في وضع المؤشر علي اخر صف في الداتا جريد فيو Emam emam 7 234 23-12-19, 11:13 AM
آخر رد: asemshahen5
  كيف استطيع التحكم في مؤشر الداتا جريد فيو FullRowSelect بسام محمدغانم 3 173 23-12-19, 06:44 AM
آخر رد: بسام محمدغانم
  سؤال في الداتا جريد فيو اليوم السابع 4 132 21-12-19, 07:41 PM
آخر رد: اليوم السابع
  [سؤال] داتا جريد فيو اليوم السابع 1 107 21-12-19, 12:04 AM
آخر رد: اليوم السابع
  كيف اتجنب يتكرر خطاء الحذف في الداتا جريد فيو هذه دالة حذف بيانات من الداتاجريد فيو م بسام محمدغانم 2 137 12-12-19, 07:49 AM
آخر رد: بسام محمدغانم

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم