تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] محتاج مساعدتكم في كود بسيط
#1
كيف يمكنني التعديل علي الكود ده بحيث انه يجلب الرقم الي امام كلمه member_count
كود :
   RichTextBox5.Text = System.Text.RegularExpressions.Regex.Match(aa, "member_count"":""()""").Groups.Item(1).Value


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
(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

وابحث عن المكتبة وقم بتنصيبها .
يا رحمن الدنيا والآخرة ورحيمهما
الرد
#3
(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
الرد
تم الشكر بواسطة:
#4
(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

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

؟؟؟؟؟؟؟؟؟؟؟
الرد
تم الشكر بواسطة:
#5
انظر للصورة :

   
يا رحمن الدنيا والآخرة ورحيمهما
الرد
تم الشكر بواسطة: asemshahen5 , ابو روضة , عبدالله الدوسري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج كود لفترة صور داخل ليست فيور عن طريق ليست فيو أخرى بالضغط على الصورة mohamedgadain61 2 106 21-01-20, 03:22 AM
آخر رد: mohamedgadain61
  محتاج كود بسيط في الليست بوكس اليوم السابع 5 133 20-01-20, 05:11 PM
آخر رد: اليوم السابع
  [VB.NET] محتاج مساعدة في اضافة حقل جديدة من نوع صورة محمدالزند 0 64 17-01-20, 03:28 PM
آخر رد: محمدالزند
  استفسار بسيط جدا اليوم السابع 1 95 16-01-20, 02:13 PM
آخر رد: SnTnt
  محتاج كود اخفاء واظهار الزر من فظلكم sofiane-phy 5 257 15-01-20, 01:29 PM
آخر رد: mohammed drem
  استفسار ان شاء الله يكون بسيط اليوم السابع 3 151 08-01-20, 01:46 AM
آخر رد: اليوم السابع
  استفسار ان شاء الله يكون بسيط اليوم السابع 1 74 07-01-20, 07:16 PM
آخر رد: sendbad100
  سؤال بسيط في التكست bakriano30@yahoo.com 2 124 06-01-20, 08:01 AM
آخر رد: bakriano30@yahoo.com
  محتاج برنامج جاهز او كود تغير ال الاي بي كل ثانيه اتوماتيك ahmedhhh2 9 309 28-12-19, 02:32 AM
آخر رد: ahmedhhh2
  سؤال بسيط بخصوص القص اليوم السابع 3 134 24-12-19, 09:32 PM
آخر رد: اليوم السابع

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


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