تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لدي مشكله مش عارف هي في الداتا جريد فيو ام في الريتش بوكس
#9
(24-11-19, 02:56 AM)اليوم السابع كتب : [quote pid='152364' dateline='1574544341']
كود :
 For i As Integer = 0 To DataGridView1.Rows.Count - 1
           Dim aa As String = ""
           Dim web As New System.Net.WebClient
           web.UploadString("https://graph.facebook.com/v2.9/pages/search?&q=" + TextBox1.Text + "&fields=id,category,name&limit=1000", Nothing, "&access_token=" + RichTextBox1.Text)
           RichTextBox2.Text = System.Text.RegularExpressions.Regex.Match(aa, "name"":""(.+?)""").Groups.Item(1).Value
           RichTextBox3.Text = System.Text.RegularExpressions.Regex.Match(aa, "id"":""(.+?)""").Groups.Item(1).Value
           RichTextBox2.Text = RichTextBox2.Text.Replace("\u0040", "@").Replace("\u0630", "ذ").Replace("\u0636", "ض").Replace("\u0635", "ص").Replace("\u062b", "ث").Replace("\u0642", "ق").Replace("\u0641", "ف").Replace("\u063a", "غ").Replace("\u0639", "ع").Replace("\u0647", "ه").Replace("\u062e", "خ").Replace("\u062d", "ح").Replace("\u062c", "ج").Replace("\u062f", "د").Replace("\u0634", "ش").Replace("\u0633", "س").Replace("\u064a", "ي").Replace("\u0628", "ب").Replace("\u0644", "ل").Replace("\u0627", "ا").Replace("\u062a", "ت").Replace("\u0646", "ن").Replace("\u0645", "م").Replace("\u0643", "ك").Replace("\u0637", "ط").Replace("\u0626", "ئ").Replace("\u0621", "ء").Replace("\u0624", "ؤ").Replace("\u0631", "ر").Replace("\u0644\u0627", "لا").Replace("\u0649", "ى").Replace("\u0629", "ة").Replace("\u0648", "و").Replace("\u0632", "ز").Replace("\u0638", "ظ").Replace("\u002f", " ").Replace("\u005f", "_").Replace("\u002d", "-").Replace("\u002e", ".")
           RichTextBox3.Text = RichTextBox3.Text.Replace("\u0040", "@").Replace("\u0630", "ذ").Replace("\u0636", "ض").Replace("\u0635", "ص").Replace("\u062b", "ث").Replace("\u0642", "ق").Replace("\u0641", "ف").Replace("\u063a", "غ").Replace("\u0639", "ع").Replace("\u0647", "ه").Replace("\u062e", "خ").Replace("\u062d", "ح").Replace("\u062c", "ج").Replace("\u062f", "د").Replace("\u0634", "ش").Replace("\u0633", "س").Replace("\u064a", "ي").Replace("\u0628", "ب").Replace("\u0644", "ل").Replace("\u0627", "ا").Replace("\u062a", "ت").Replace("\u0646", "ن").Replace("\u0645", "م").Replace("\u0643", "ك").Replace("\u0637", "ط").Replace("\u0626", "ئ").Replace("\u0621", "ء").Replace("\u0624", "ؤ").Replace("\u0631", "ر").Replace("\u0644\u0627", "لا").Replace("\u0649", "ى").Replace("\u0629", "ة").Replace("\u0648", "و").Replace("\u0632", "ز").Replace("\u0638", "ظ").Replace("\u002f", " ").Replace("\u005f", "_").Replace("\u002d", "-").Replace("\u002e", ".")
           DataGridView1.Rows(i).Cells(0).Value = RichTextBox3.Text
           DataGridView1.Rows(i).Cells(1).Value = RichTextBox2.Text
       Next
طلع خطاء معايا Sad
[/quote]


والله يا اخى أنا حاولت معاه لانى أول مرة أتعامل مع هذه الخاصية تبع البحث.
لو عرفت أعملها أكيد سأخبرك لا تقلق وإن شاء الله يأتى الأفضل منى وكلكم أفضل  ويعملها لك فلا تتعجل
الرد }}}
تم الشكر بواسطة: اليوم السابع


الردود في هذا الموضوع
RE: لدي مشكله مش عارف هي في الداتا جريد فيو ام في الريتش بوكس - بواسطة ابو روضة - 24-11-19, 03:23 AM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تكست بوكس EMADW 3 453 09-05-25, 05:09 PM
آخر رد: princelovelorn
  كود لتغير لون الخط فى التكست بوكس خالد كامل1 1 340 31-01-25, 06:22 PM
آخر رد: أبو خالد الشكري
  [كود] كود تغيير حجم النص في التكست بوكس hassan 8 8,796 30-01-25, 02:33 AM
آخر رد: خالد كامل1
  مساعدة في استيراد البيانات من الليست بوكس fireswored1 4 478 22-01-25, 08:43 PM
آخر رد: fireswored1
  [VB.NET] تعبئة كومبو بوكس بقواعد البيانات الموجوده علي السيرفر Mustafa Shaker 6 4,112 23-12-24, 03:59 PM
آخر رد: aljzazy
  ابغي ارجع قيمة الداتا قراد فيو من جديد عندي مشكله khalidalwdi 3 636 05-12-24, 02:21 AM
آخر رد: aljzazy
  [VB.NET] جيك بوكس muaamar 3 390 23-11-24, 09:00 PM
آخر رد: rdxdz
  اريد جلب عدد محدد من السجلات من قاعدة بيانات اكسس الى الداتا قراد فيو يوجد مثال khalidalwdi 2 667 12-11-24, 12:19 PM
آخر رد: khalidalwdi
  [سؤال] مشكله في تطبيق في زامارين سي شارب حسن الجلب 0 300 07-11-24, 11:36 PM
آخر رد: حسن الجلب
  كتابه عدد معين من الارقام داخل تيكست بوكس modymody300894 3 559 07-11-24, 09:15 PM
آخر رد: modymody300894

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


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