[اليوم السابع]

(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

طلع خطاء معايا

والله يا اخى أنا حاولت معاه لانى أول مرة أتعامل مع هذه الخاصية تبع البحث.

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

[/quote]
انا عارف والله اني تعبتكم جميعا وانت يا هندسه مخصوص انا قاعد افكر يعني توصلت لي شئ
ان الصفحه فيها 
id:55555555555
name:aaaaaaaaaaa

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