تقييم الموضوع :
  • 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 ك ب / التحميلات : 11)
الرد
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال في الداتا جريد فيو mohamedahmed1 4 98 , 10:03 PM
آخر رد: mohamedahmed1
  حل مشكلة برنامج مرتبط مع داتا اكسس 2007 في حال وجود اوفيس 2016 samira20 1 111 12-01-20, 05:36 PM
آخر رد: بيسك لكل العرب
  الطباعة من الداتا جريد muad 14 563 09-01-20, 04:43 PM
آخر رد: asemshahen5
  تعديل علي كود في الداتا جريد فيو اليوم السابع 2 125 29-12-19, 11:44 PM
آخر رد: اليوم السابع
  [سؤال] داتا جريد فيو اليوم السابع 7 166 28-12-19, 09:18 PM
آخر رد: ابو ليلى
  سؤال في وضع المؤشر علي اخر صف في الداتا جريد فيو Emam emam 7 231 23-12-19, 11:13 AM
آخر رد: asemshahen5
  كيف استطيع التحكم في مؤشر الداتا جريد فيو FullRowSelect بسام محمدغانم 3 169 23-12-19, 06:44 AM
آخر رد: بسام محمدغانم
  سؤال في الداتا جريد فيو اليوم السابع 4 132 21-12-19, 07:41 PM
آخر رد: اليوم السابع
  [سؤال] داتا جريد فيو اليوم السابع 1 106 21-12-19, 12:04 AM
آخر رد: اليوم السابع
  كيف اتجنب يتكرر خطاء الحذف في الداتا جريد فيو هذه دالة حذف بيانات من الداتاجريد فيو م بسام محمدغانم 2 137 12-12-19, 07:49 AM
آخر رد: بسام محمدغانم

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


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