تقييم الموضوع :
  • 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 ك ب / التحميلات : 13)
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الى خبراء الدوت نت (داتا جريد فيو) التنقل التلقائي في خلايا الداتا جريد ismaeel 0 31 , 03:38 PM
آخر رد: ismaeel
  نقل التركيز الى الخلية التالية في الداتا جريد بعد كتابة رقمين ismaeel 0 40 09-08-20, 05:09 PM
آخر رد: ismaeel
  تعبئة الداتا جريد فيو alshandodi 6 277 18-07-20, 12:41 AM
آخر رد: alshandodi
  تحديد الحركة في عامود واحد في الداتا جريد ... Mohammed Nafa 6 240 15-07-20, 06:52 PM
آخر رد: WaeLx
  تحديد عمود في الداتا جريد و اختباره هل هو فارغ ام لا بسام محمدغانم 1 177 05-07-20, 07:17 PM
آخر رد: WaeLx
  عرض الداتا جريد فيو mostafa nada 10 551 03-07-20, 11:29 AM
آخر رد: ابراهيم ايبو
  [VB.NET] داتا كريت فيو EMADSSS 3 306 02-07-20, 12:49 PM
آخر رد: EMADSSS
  اريد نقل التركيز على السجل فى الداتا جريد new_programer 1 188 02-07-20, 12:24 PM
آخر رد: معاند الحظ
  كيف افحص عمود في الداتا جريد بسام محمدغانم 0 114 01-07-20, 01:16 AM
آخر رد: بسام محمدغانم
  خطأ تنسيق التاريخ في الداتا جريد فيو في حاله انه فارغ alshandodi 2 225 30-06-20, 03:57 PM
آخر رد: alshandodi

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


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