[اليوم السابع]

عندي ملف تكست به هذا المحتوي ولدي داتا جريد فيو بها عامودين عامود اسمه 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

[معاند الحظ]

كود :

 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

[اليوم السابع]

كود :

 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

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

[asemshahen5]

جرب هذا المثال .

   

[معاند الحظ]

كود :

 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

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

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

[اليوم السابع]

كود :

 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]

تعديل بسيط على كودك

كود :

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

[اليوم السابع]

جرب هذا المثال .

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

---

تعديل بسيط على كودك

كود :

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

تسلم يدك هو المطلوب بيض الله وجهك