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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  [VB.NET] محتاج كود حساب الفرق بين تاريخين بالايام moustafakamel95 3 449 29-01-24, 04:05 PM
آخر رد: مصطفى مصطفى
  سؤال بسيط يا احبتى فى الله خالد كامل1 4 314 07-01-24, 12:55 AM
آخر رد: Mujahef
Tongue استفسار بسيط عن كريستال ريبورت waataanys 1 311 30-11-23, 04:44 PM
آخر رد: Taha Okla
  [VB.NET] محتاج مساعدة تعديل على كود ZEEN4ZEEN 4 416 08-10-23, 09:11 PM
آخر رد: ZEEN4ZEEN
  محتاج تعديل على سورس كود - حفظ البيانات بدون قاعدة بيانات new_programer 5 628 30-08-23, 12:21 AM
آخر رد: atefkhalf2004
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 349 05-08-23, 02:29 PM
آخر رد: moh61
  اريد ارسال pdf عبر واتساب عن طريق ال API محتاج تعديل على الكود moh61 0 517 03-08-23, 03:41 PM
آخر رد: moh61
  رسالة خطأ ،، احتاج مساعدتكم assuhimi 2 473 21-05-23, 02:47 PM
آخر رد: assuhimi

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


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