منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

كيف يمكنني التعديل علي الكود ده بحيث انه يجلب الرقم الي امام كلمه member_count

كود :

   RichTextBox5.Text = System.Text.RegularExpressions.Regex.Match(aa, "member_count"":""()""").Groups.Item(1).Value

(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

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

(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

(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

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

؟؟؟؟؟؟؟؟؟؟؟

انظر للصورة :

[attachment=23513]