تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
داتا جريد فيو
#1
عندي ملف تكست به هذا المحتوي ولدي داتا جريد فيو بها عامودين عامود اسمه age وعامود اسمه name 
محتاج عند تحميل الفورم الداتا جريد فيو تظهر هذه الاسماء في عامود name وتظهر هذه الارقام في عامود age 
ملحوظه انا مش عارف استخدم داتا بيز اكسيس بسبب كبر حجم البيانات 

استعملت هذا الكود ولكن بيجيب اول سطر فقط في ملف التكست 
كود :
Dim json As String = File.ReadAllText("login\auth.json")
       Console.WriteLine(json)
       Console.Read()
       RichTextBox1.Text = (json)
       RichTextBox2.Text = System.Text.RegularExpressions.Regex.Match(json, "name"":""(.+?)""").Groups.Item(1).Value
       RichTextBox3.Text = System.Text.RegularExpressions.Regex.Match(json, "age"":""(.+?)""").Groups.Item(1).Value
الرد }}}
تم الشكر بواسطة: حريف برمجة
#2
كود :
 Dim age() As String
   Dim thename() As String
   Dim mytext As String
   Dim lines() As String

   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

       mytext = My.Computer.FileSystem.ReadAllText("d:\s.txt")
       Dim seps() As Char = {vbNewLine}
       lines = mytext.Split(seps)
 
       Static i As Integer
       For Each line As String In lines

           ReDim Preserve age(i)
           ReDim Preserve thename(i)
           age(i) = line.Substring(line.IndexOf(":") + 1, line.IndexOf("_") - line.IndexOf(":") + 1)

           thename(i) = line.Substring(line.LastIndexOf(":") + 1)

           DataGridView1.Rows.Add(age(i).Remove(age(i).IndexOf("_")))
           DataGridView1.Rows(i).Cells(1).Value = thename(i)
           i += 1
       Next

الرد }}}
#3
(27-11-19, 01:38 PM)CrazyMe كتب :
كود :
 Dim age() As String
   Dim thename() As String
   Dim mytext As String
   Dim lines() As String

   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

       mytext = My.Computer.FileSystem.ReadAllText("d:\s.txt")
       Dim seps() As Char = {vbNewLine}
       lines = mytext.Split(seps)
 
       Static i As Integer
       For Each line As String In lines

           ReDim Preserve age(i)
           ReDim Preserve thename(i)
           age(i) = line.Substring(line.IndexOf(":") + 1, line.IndexOf("_") - line.IndexOf(":") + 1)

           thename(i) = line.Substring(line.LastIndexOf(":") + 1)

           DataGridView1.Rows.Add(age(i).Remove(age(i).IndexOf("_")))
           DataGridView1.Rows(i).Cells(1).Value = thename(i)
           i += 1
       Next

هو اولا تسلم ايد ثانيا انا متفائل انه هيكون فيه حل ثالثا جاب هذا الخطاء


الملفات المرفقة صورة/صور
   
الرد }}}
#4
جرب هذا المثال .

   


الملفات المرفقة
.zip   GetInfoFromNotepadToDGVGrid.zip (الحجم : 87.2 ك ب / التحميلات : 20)
الرد }}}
#5
(27-11-19, 02:30 PM)اليوم السابع كتب :
(27-11-19, 01:38 PM)CrazyMe كتب :
كود :
 Dim age() As String
   Dim thename() As String
   Dim mytext As String
   Dim lines() As String

   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

       mytext = My.Computer.FileSystem.ReadAllText("d:\s.txt")
       Dim seps() As Char = {vbNewLine}
       lines = mytext.Split(seps)
 
       Static i As Integer
       For Each line As String In lines

           ReDim Preserve age(i)
           ReDim Preserve thename(i)
           age(i) = line.Substring(line.IndexOf(":") + 1, line.IndexOf("_") - line.IndexOf(":") + 1)

           thename(i) = line.Substring(line.LastIndexOf(":") + 1)

           DataGridView1.Rows.Add(age(i).Remove(age(i).IndexOf("_")))
           DataGridView1.Rows(i).Cells(1).Value = thename(i)
           i += 1
       Next

هو اولا تسلم ايد ثانيا انا متفائل انه هيكون فيه حل ثالثا جاب هذا الخطاء

معليش اخوي انا استخدمت نفس النص اللي انت ارفقته في الصورة (حذو القذة بالقذة)
واذا تغير النص اكيد يطلع عندك خطأ

الرد }}}
#6
(27-11-19, 03:46 PM)CrazyMe كتب :
(27-11-19, 02:30 PM)اليوم السابع كتب :
(27-11-19, 01:38 PM)CrazyMe كتب :
كود :
 Dim age() As String
   Dim thename() As String
   Dim mytext As String
   Dim lines() As String

   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

       mytext = My.Computer.FileSystem.ReadAllText("d:\s.txt")
       Dim seps() As Char = {vbNewLine}
       lines = mytext.Split(seps)
 
       Static i As Integer
       For Each line As String In lines

           ReDim Preserve age(i)
           ReDim Preserve thename(i)
           age(i) = line.Substring(line.IndexOf(":") + 1, line.IndexOf("_") - line.IndexOf(":") + 1)

           thename(i) = line.Substring(line.LastIndexOf(":") + 1)

           DataGridView1.Rows.Add(age(i).Remove(age(i).IndexOf("_")))
           DataGridView1.Rows(i).Cells(1).Value = thename(i)
           i += 1
       Next

هو اولا تسلم ايد ثانيا انا متفائل انه هيكون فيه حل ثالثا جاب هذا الخطاء

معليش اخوي انا استخدمت نفس النص اللي انت ارفقته في الصورة (حذو القذة بالقذة)
واذا تغير النص اكيد يطلع عندك خطأ

هو هو النص ماتغير فيه شئ
الرد }}}
تم الشكر بواسطة: حريف برمجة , حريف برمجة , 3booody
#7
تعديل بسيط على كودك


كود :
Dim json As String = File.ReadAllText("login\auth.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
       For i As Integer = 0 To Name.Count - 1
           DataGridView1.Rows.Add(Name(i), Age(i))
       Next
الرد }}}
#8
(27-11-19, 03:37 PM)asemshahen5 كتب : جرب هذا المثال .

مثال ولا اروع سلم الله يدك من كل سوء

(27-11-19, 06:58 PM)3booody كتب : تعديل بسيط على كودك


كود :
Dim json As String = File.ReadAllText("login\auth.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
       For i As Integer = 0 To Name.Count - 1
           DataGridView1.Rows.Add(Name(i), Age(i))
       Next

تسلم يدك هو المطلوب بيض الله وجهك
الرد }}}
تم الشكر بواسطة: حريف برمجة , asemshahen5 , 3booody


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى جمع عمود فى داتا جريد فيو احمد خطاب 3 152 06-03-24, 07:49 PM
آخر رد: احمد خطاب
  حذف الاسطر الفارغه من الداتا جريد فيو اليوم السابع 3 2,357 03-03-24, 12:57 AM
آخر رد: مصمم هاوي
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 223 25-02-24, 11:26 PM
آخر رد: heem1986
  [C#.NET] طباعة بيانات داتا جرد فيو h2551996 0 84 25-02-24, 02:31 PM
آخر رد: h2551996
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 158 21-02-24, 01:37 AM
آخر رد: heem1986
  [VB.NET] ستايل داتا جرد فيو h2551996 10 343 17-01-24, 02:52 PM
آخر رد: aljzazy
Heart [C#.NET] حول بطئ عملية نقل البينات الكثيرة من أكسس إلى داتا غريد فيو بلال بلال 11 710 15-12-23, 07:47 AM
آخر رد: foad8920
  انتقال المؤشر بين الخلايا في نفس الصف في الداتا جريد فيو fares_mohammed 2 462 03-11-23, 09:57 PM
آخر رد: fares_mohammed
  يوجد مشكلة عند تحميل البيانات فى كمبوبوكس داخل داتا جريد new_programer 2 473 17-10-23, 06:51 PM
آخر رد: new_programer
  [VB.NET] مشكلة في داتا جرد فيو h2551996 4 404 13-09-23, 01:26 PM
آخر رد: h2551996

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


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