تقييم الموضوع :
  • 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 , ابو روضة , عبدالله الدوسري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] مشروع لاضافة رسم بيانى محتاج التدخل لاصلاحه dr.programming 0 214 09-11-25, 01:48 AM
آخر رد: dr.programming
  [VB.NET] محتاج اربط DataGridView بزر بحث bakrycold 1 549 28-02-25, 12:11 AM
آخر رد: bakrycold
  محتاج تعديل على كود الحذف new_programer 2 652 17-02-25, 06:50 PM
آخر رد: new_programer
  محتاج كود انتقال خالد كامل1 2 436 22-01-25, 11:38 AM
آخر رد: قناص المدينة
  محتاج عمل التقارير pdf خالد كامل1 3 482 20-01-25, 01:06 AM
آخر رد: خالد كامل1
  وجدت كود بسيط للصلاحيات وعدلته ليناسب مشروعي ولكن ظهرت بعض الأخطاء F.H.M 1 268 17-09-24, 09:34 PM
آخر رد: F.H.M
  [سؤال] مشكلة محتاج تفسير dr.programming 0 304 28-08-24, 02:43 PM
آخر رد: dr.programming
  محتاج الكود بحث عن اخر فاتورة مبيعات (مستعجل يا اخواني) Hamza8484 2 477 21-08-24, 12:00 AM
آخر رد: ba2e44ca9a
  السلام عليكم - محتاج كود لوحة الارقام في شاشة paid cash Hamza8484 1 397 13-08-24, 10:23 AM
آخر رد: تركي الحلواني
  محتاج مساعدة تعديل اعدادات التقرير في الكريستال ريبورت فاتورة (8) C Hamza8484 2 493 23-07-24, 05:03 AM
آخر رد: Hamza8484

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


يقوم بقرائة الموضوع: