منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] محتاج مساعدتكم في كود بسيط - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] محتاج مساعدتكم في كود بسيط (/showthread.php?tid=32208)

محتاج مساعدتكم في كود بسيط - اليوم السابع - 22-11-19

كيف يمكنني التعديل علي الكود ده بحيث انه يجلب الرقم الي امام كلمه member_count
كود :
   RichTextBox5.Text = System.Text.RegularExpressions.Regex.Match(aa, "member_count"":""()""").Groups.Item(1).Value


RE: محتاج مساعدتكم في كود بسيط - حريف برمجة - 22-11-19

(22-11-19, 08:17 AM)اليوم السابع كتب : كيف يمكنني التعديل علي الكود ده بحيث انه يجلب الرقم الي امام كلمه member_count
كود :
   RichTextBox5.Text = System.Text.RegularExpressions.Regex.Match(aa, "member_count"":""()""").Groups.Item(1).Value

جرب ذا الكود بحيث نص json موجود في aa

كود :
Dim jsonResulttodict = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Dictionary(Of String, Object))(aa)
       RichTextBox5.Text = jsonResulttodict.Item("member_count")
يجب تنصيب Newtonsoft.Json

كلك يمين على المشروع واختار :
Manage Nuget Packages ثم تبويب Browse

وابحث عن المكتبة وقم بتنصيبها .
يجب تنصيب Newtonsoft.Json

كلك يمين على المشروع واختار :
Manage Nuget Packages ثم تبويب Browse

وابحث عن المكتبة وقم بتنصيبها .

RE: محتاج مساعدتكم في كود بسيط - اليوم السابع - 22-11-19

(22-11-19, 09:50 AM)حريف برمجة كتب :
(22-11-19, 08:17 AM)اليوم السابع كتب : كيف يمكنني التعديل علي الكود ده بحيث انه يجلب الرقم الي امام كلمه member_count
كود :
   RichTextBox5.Text = System.Text.RegularExpressions.Regex.Match(aa, "member_count"":""()""").Groups.Item(1).Value

جرب ذا الكود بحيث نص json موجود في aa

كود :
Dim jsonResulttodict = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Dictionary(Of String, Object))(aa)
       RichTextBox5.Text = jsonResulttodict.Item("member_count")
يجب تنصيب Newtonsoft.Json

كلك يمين على المشروع واختار :
Manage Nuget Packages ثم تبويب Browse

وابحث عن المكتبة وقم بتنصيبها .
يجب تنصيب Newtonsoft.Json

كلك يمين على المشروع واختار :
Manage Nuget Packages ثم تبويب Browse

وابحث عن المكتبة وقم بتنصيبها .

لا يوجد عندي Browse في Manage Nuget Packages

RE: محتاج مساعدتكم في كود بسيط - اليوم السابع - 23-11-19

(22-11-19, 09:50 AM)حريف برمجة كتب :
(22-11-19, 08:17 AM)اليوم السابع كتب : كيف يمكنني التعديل علي الكود ده بحيث انه يجلب الرقم الي امام كلمه member_count
كود :
   RichTextBox5.Text = System.Text.RegularExpressions.Regex.Match(aa, "member_count"":""()""").Groups.Item(1).Value

جرب ذا الكود بحيث نص json موجود في aa

كود :
Dim jsonResulttodict = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Dictionary(Of String, Object))(aa)
       RichTextBox5.Text = jsonResulttodict.Item("member_count")
يجب تنصيب Newtonsoft.Json

كلك يمين على المشروع واختار :
Manage Nuget Packages ثم تبويب Browse

وابحث عن المكتبة وقم بتنصيبها .
يجب تنصيب Newtonsoft.Json

كلك يمين على المشروع واختار :
Manage Nuget Packages ثم تبويب Browse

وابحث عن المكتبة وقم بتنصيبها .

؟؟؟؟؟؟؟؟؟؟؟

RE: محتاج مساعدتكم في كود بسيط - حريف برمجة - 23-11-19

انظر للصورة :

[attachment=23513]