عندي ملف تكست به هذا المحتوي ولدي داتا جريد فيو بها عامودين عامود اسمه 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, 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
هو اولا تسلم ايد ثانيا انا متفائل انه هيكون فيه حل ثالثا جاب هذا الخطاء
(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
هو اولا تسلم ايد ثانيا انا متفائل انه هيكون فيه حل ثالثا جاب هذا الخطاء
معليش اخوي انا استخدمت نفس النص اللي انت ارفقته في الصورة (حذو القذة بالقذة)
واذا تغير النص اكيد يطلع عندك خطأ
(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
تسلم يدك هو المطلوب بيض الله وجهك