تقييم الموضوع :
  • 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
ربي يسلمك اخي ولك بالمثل ان شاء الله
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد استرجاع شئ فى الداتا جريد فيو خالد كامل1 2 26 منذ 2 ساعة مضت
آخر رد: خالد كامل1
  الى خبراء الدوت نت (داتا جريد فيو) التنقل التلقائي في خلايا الداتا جريد ismaeel 0 58 10-08-20, 03:38 PM
آخر رد: ismaeel
  نقل التركيز الى الخلية التالية في الداتا جريد بعد كتابة رقمين ismaeel 0 50 09-08-20, 05:09 PM
آخر رد: ismaeel
  تعبئة الداتا جريد فيو alshandodi 6 292 18-07-20, 12:41 AM
آخر رد: alshandodi
  تحديد الحركة في عامود واحد في الداتا جريد ... Mohammed Nafa 6 252 15-07-20, 06:52 PM
آخر رد: WaeLx
  تحديد عمود في الداتا جريد و اختباره هل هو فارغ ام لا بسام محمدغانم 1 182 05-07-20, 07:17 PM
آخر رد: WaeLx
  عرض الداتا جريد فيو mostafa nada 10 560 03-07-20, 11:29 AM
آخر رد: ابراهيم ايبو
  [VB.NET] داتا كريت فيو EMADSSS 3 312 02-07-20, 12:49 PM
آخر رد: EMADSSS
  اريد نقل التركيز على السجل فى الداتا جريد new_programer 1 197 02-07-20, 12:24 PM
آخر رد: معاند الحظ
  كيف افحص عمود في الداتا جريد بسام محمدغانم 0 118 01-07-20, 01:16 AM
آخر رد: بسام محمدغانم

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


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