+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : داتا جريد فيو (/showthread.php?tid=32264)
داتا جريد فيو - اليوم السابع - 27-11-19
عندي ملف تكست به هذا المحتوي ولدي داتا جريد فيو بها عامودين عامود اسمه 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).ValueRE: داتا جريد فيو - معاند الحظ - 27-11-19
كود :
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
NextRE: داتا جريد فيو - اليوم السابع - 27-11-19
(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
هو اولا تسلم ايد ثانيا انا متفائل انه هيكون فيه حل ثالثا جاب هذا الخطاء
RE: داتا جريد فيو - asemshahen5 - 27-11-19
جرب هذا المثال .
[attachment=23557]
RE: داتا جريد فيو - معاند الحظ - 27-11-19
(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
هو اولا تسلم ايد ثانيا انا متفائل انه هيكون فيه حل ثالثا جاب هذا الخطاء
معليش اخوي انا استخدمت نفس النص اللي انت ارفقته في الصورة (حذو القذة بالقذة)
واذا تغير النص اكيد يطلع عندك خطأ
RE: داتا جريد فيو - اليوم السابع - 27-11-19
(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
هو اولا تسلم ايد ثانيا انا متفائل انه هيكون فيه حل ثالثا جاب هذا الخطاء
معليش اخوي انا استخدمت نفس النص اللي انت ارفقته في الصورة (حذو القذة بالقذة)
واذا تغير النص اكيد يطلع عندك خطأ
هو هو النص ماتغير فيه شئ
RE: داتا جريد فيو - 3booody - 27-11-19
تعديل بسيط على كودك
كود :
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
RE: داتا جريد فيو - اليوم السابع - 28-11-19
(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
تسلم يدك هو المطلوب بيض الله وجهك