منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET لدي مشكله مش عارف هي في الداتا جريد فيو ام في الريتش بوكس
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
لدي مشكله مش عارف هي في الداتا جريد فيو ام في الريتش بوكس
اليوم السابع غير متصل
عضو نشيط
*
المشاركات : 567
المواضيع 206
الإنتساب : Jul 2019
السمعة : 14
الشكر: 371
تم شكره 559 مرات في 319 مشاركات
#1
23-11-19, 01:50 AM (آخر تعديل لهذه المشاركة : 23-11-19, 01:54 AM {2} بواسطة اليوم السابع.)
لدي علي الفورم 2 ريتش بوكس و داتا جريد فيو و زر 
واستخدم هذا الكود في جلب محتوي هذه الصفحه ولكن يجلب اول نتيجه فقط انا اريد ان يجلب جميع نتايج الصفحه كما هو موضح علي الفورم ملحوظه الحروف العربي تظهر رموز 
علشان كده في الكود عامل ربليس للرموز علشان احولها عربي ملحوظه الريتش بوكس 1 يأخذ الاكسيس توكن والتكست بوكس يأخذ كلمه البحث كماهو هو موضح في الكود وعلي الفورم
كود :
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
       Dim ii As Integer = DataGridView1.Rows.Count - 1
       Dim aa As String = webClient.DownloadString("https://graph.facebook.com/v2.9/pages/search?&q=" + TextBox4.Text + "&fields=id,category,name&limit=1000&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(ii).Cells(0).Value = RichTextBox3.Text
       DataGridView1.Rows(ii).Cells(1).Value = RichTextBox2.Text

   End Sub
(23-11-19, 01:50 AM)اليوم السابع كتب : لدي علي الفورم 2 ريتش بوكس و داتا جريد فيو و زر 
واستخدم هذا الكود في جلب محتوي هذه الصفحه ولكن يجلب اول نتيجه فقط انا اريد ان يجلب جميع نتايج الصفحه كما هو موضح علي الفورم ملحوظه الحروف العربي تظهر رموز 
علشان كده في الكود عامل ربليس للرموز علشان احولها عربي ملحوظه الريتش بوكس 1 يأخذ الاكسيس توكن والتكست بوكس يأخذ كلمه البحث كماهو هو موضح في الكود وعلي الفورم
كود :
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
       Dim ii As Integer = DataGridView1.Rows.Count - 1
       Dim aa As String = webClient.DownloadString("https://graph.facebook.com/v2.9/pages/search?&q=" + TextBox4.Text + "&fields=id,category,name&limit=1000&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(ii).Cells(0).Value = RichTextBox3.Text
       DataGridView1.Rows(ii).Cells(1).Value = RichTextBox2.Text

   End Sub


الملفات المرفقة صورة/صور
       
البحث
الرد }}}
تم الشكر بواسطة:
ابو روضة غير متصل
الكاتب والمؤلف / سامي ابوسريع
*
المشاركات : 1,472
المواضيع 354
الإنتساب : Apr 2016
السمعة : 334
الشكر: 3441
تم شكره 2460 مرات في 1124 مشاركات
#2
23-11-19, 07:00 AM
حبيب قلبى ممكن ترفق رابط الصفحة وتصور بالضبط ما تريده منها بالتحديد وبعون الله محلولة
البحث
الرد }}}
تم الشكر بواسطة: اليوم السابع , حريف برمجة , asemshahen5 , asemshahen5
اليوم السابع غير متصل
عضو نشيط
*
المشاركات : 567
المواضيع 206
الإنتساب : Jul 2019
السمعة : 14
الشكر: 371
تم شكره 559 مرات في 319 مشاركات
#3
23-11-19, 09:30 AM
(23-11-19, 07:00 AM)ابو روضة كتب :
حبيب قلبى ممكن ترفق رابط الصفحة وتصور بالضبط ما تريده منها بالتحديد وبعون الله محلولة
الرابط ده للبحث في صفحات الفيس بوك ده الرابط تكست بوكس 4 بياخد الكلمه اللي بعمل عليها بحث انا كنت بعمل بحث بكلمه خليل علشان كده طلعت رموز وانا بحول الرموز عادي والريتش بوكس 1 بياخد الاكسيس توكن الخاص بحسابي علي الفيس بوك والصوره تانيه عندي داتا جريد فيو فيها عمودين عامود اسمه اي دي وعامود اسمه نيم 
والصفحه زاي ما هو واضح كده فيها نتايج بحث كتير بها كلمه اي دي وامامها اي دي الصفحه وكلمه نيم فيها اسم الصفحه 
المطلوب ان اجلب البيانات دي كلها اللي في الصفحه في الريتش بوكس والريتش بوكس يعطي للداتا جريد فيو ملحوظه انا اجلب البيانات في الريتش بوكس الاول علشان احول الرموز الي حروف
وطبعا في الداتا جريد فيو عاوز كل نتيجه في صف لوحده في الصوره التانيه واضح انه جلب اول نتيجه فقط الي هي خليل الجيل في الرتش بوكس وبعدين عرضها في الداتا جريد فيو وماجلبش اي نتايج تانيه 
وبعون الله عارف انه محلوله علي ايدك يا هندسه 
https://graph.facebook.com/v2.9/pages/search?&q=" + TextBox4.Text + "&fields=id,category,name&limit=1000&access_token=" + RichTextBox1.Text + 


الملفات المرفقة صورة/صور
   
البحث
الرد }}}
تم الشكر بواسطة:
اليوم السابع غير متصل
عضو نشيط
*
المشاركات : 567
المواضيع 206
الإنتساب : Jul 2019
السمعة : 14
الشكر: 371
تم شكره 559 مرات في 319 مشاركات
#4
23-11-19, 02:13 PM
(23-11-19, 07:00 AM)ابو روضة كتب :
حبيب قلبى ممكن ترفق رابط الصفحة وتصور بالضبط ما تريده منها بالتحديد وبعون الله محلولة

؟؟
البحث
الرد }}}
تم الشكر بواسطة:
ابو روضة غير متصل
الكاتب والمؤلف / سامي ابوسريع
*
المشاركات : 1,472
المواضيع 354
الإنتساب : Apr 2016
السمعة : 334
الشكر: 3441
تم شكره 2460 مرات في 1124 مشاركات
#5
23-11-19, 07:12 PM
بصراحة لم أفهم بالتحديد ماذا تريد لآن الكتابة داخله ببعضها وما فهمته فقط أنك تريد جلب
كل النتائج ليس نتيجة واحدة على ما أظن فرأيت الكود أنه ليس به حلقة تكرارية فجرب هذا 



كود :
For i As Integer = 0 To DataGridView1.Rows.Count - 1
           Dim aa As String = WebClient.DownloadString("https://graph.facebook.com/v2.9/pages/search?&q=" + TextBox4.Text + "&fields=id,category,name&limit=1000&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
البحث
الرد }}}
تم الشكر بواسطة: حريف برمجة , asemshahen5 , asemshahen5 , اليوم السابع
اليوم السابع غير متصل
عضو نشيط
*
المشاركات : 567
المواضيع 206
الإنتساب : Jul 2019
السمعة : 14
الشكر: 371
تم شكره 559 مرات في 319 مشاركات
#6
24-11-19, 01:04 AM
(23-11-19, 07:12 PM)ابو روضة كتب :
بصراحة لم أفهم بالتحديد ماذا تريد لآن الكتابة داخله ببعضها وما فهمته فقط أنك تريد جلب
كل النتائج ليس نتيجة واحدة على ما أظن فرأيت الكود أنه ليس به حلقة تكرارية فجرب هذا 



كود :
For i As Integer = 0 To DataGridView1.Rows.Count - 1
           Dim aa As String = WebClient.DownloadString("https://graph.facebook.com/v2.9/pages/search?&q=" + TextBox4.Text + "&fields=id,category,name&limit=1000&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
الف شكر يا هندسه بس ما زالت المشكله انا هرفق لحضرتك مشروع صغير موضوح فيه كل شئ 
ومرفق معه الصوره و ده الموقع اللي بستخرج منه الاكسيس توكن 
https://qlizz.com/?loginmethod=v2


الملفات المرفقة
.rar   WindowsApplication2.rar (الحجم : 119.14 ك ب / التحميلات : 10)
البحث
الرد }}}
تم الشكر بواسطة:
ابو روضة غير متصل
الكاتب والمؤلف / سامي ابوسريع
*
المشاركات : 1,472
المواضيع 354
الإنتساب : Apr 2016
السمعة : 334
الشكر: 3441
تم شكره 2460 مرات في 1124 مشاركات
#7
24-11-19, 01:25 AM
حاول تجرب بهذا الكود أخى لآنى والله ما فتحتش الفيس الى الان للتجربة


كود :
 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
البحث
الرد }}}
تم الشكر بواسطة:
اليوم السابع غير متصل
عضو نشيط
*
المشاركات : 567
المواضيع 206
الإنتساب : Jul 2019
السمعة : 14
الشكر: 371
تم شكره 559 مرات في 319 مشاركات
#8
24-11-19, 02:56 AM
(24-11-19, 01:25 AM)ابو روضة كتب : حاول تجرب بهذا الكود أخى لآنى والله ما فتحتش الفيس الى الان للتجربة


كود :
 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
البحث
الرد }}}
تم الشكر بواسطة:
ابو روضة غير متصل
الكاتب والمؤلف / سامي ابوسريع
*
المشاركات : 1,472
المواضيع 354
الإنتساب : Apr 2016
السمعة : 334
الشكر: 3441
تم شكره 2460 مرات في 1124 مشاركات
#9
24-11-19, 03:23 AM
(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]


والله يا اخى أنا حاولت معاه لانى أول مرة أتعامل مع هذه الخاصية تبع البحث.
لو عرفت أعملها أكيد سأخبرك لا تقلق وإن شاء الله يأتى الأفضل منى وكلكم أفضل  ويعملها لك فلا تتعجل
البحث
الرد }}}
تم الشكر بواسطة: اليوم السابع
اليوم السابع غير متصل
عضو نشيط
*
المشاركات : 567
المواضيع 206
الإنتساب : Jul 2019
السمعة : 14
الشكر: 371
تم شكره 559 مرات في 319 مشاركات
#10
24-11-19, 03:30 AM
(24-11-19, 03:23 AM)ابو روضة كتب :
(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]
انا عارف والله اني تعبتكم جميعا وانت يا هندسه مخصوص انا قاعد افكر يعني توصلت لي شئ
ان الصفحه فيها 
id:55555555555
name:aaaaaaaaaaa

id:6666666666
name:bbbbbbbbbb
الكود بيجلب اول نتيجه في الصفحه فقط اللي هو الid و الname 
وبيتجاهل نتائج البحث الاخير ايه الكود الللي يجلب اول نتيجه وثاني نتيجه الي اخره انا والله مشتت وببحث كتير حتي لو تلاحظ اني بنتظر الرد مش بنام والله :Sad(
البحث
الرد }}}
تم الشكر بواسطة:


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

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


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