منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > لدي مشكله مش عارف هي في الداتا جريد فيو ام في الريتش بوكس
نسخة كاملة : لدي مشكله مش عارف هي في الداتا جريد فيو ام في الريتش بوكس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2

اليوم السابع

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
(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

ابو روضة

23-11-19, 07:00 AM
حبيب قلبى ممكن ترفق رابط الصفحة وتصور بالضبط ما تريده منها بالتحديد وبعون الله محلولة

اليوم السابع

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 + 

اليوم السابع

23-11-19, 02:13 PM
(23-11-19, 07:00 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

اليوم السابع

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

ابو روضة

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

اليوم السابع

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

ابو روضة

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]


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

اليوم السابع

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(
الصفحات : 1 2
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > لدي مشكله مش عارف هي في الداتا جريد فيو ام في الريتش بوكس