27-11-19, 12:37 PM (آخر تعديل لهذه المشاركة : 27-11-19, 01:02 PM {2} بواسطة اليوم السابع.)
عندي ملف تكست به هذا المحتوي ولدي داتا جريد فيو بها عامودين عامود اسمه 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
27-11-19, 06:58 PM (آخر تعديل لهذه المشاركة : 27-11-19, 07:02 PM {2} بواسطة 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
28-11-19, 09:56 AM (آخر تعديل لهذه المشاركة : 28-11-19, 09:57 AM {2} بواسطة اليوم السابع.)
(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