منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] تعديل بسيط في كود بحث - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تعديل بسيط في كود بحث (/showthread.php?tid=27935)

تعديل بسيط في كود بحث - trakktour - 17-12-18

السلام عليكم احبابي في الله
ممكن مساعدة في التعديل على هذا الكود
اريد اظهار كل النتائج عند البحث و ليس فقط اول 10 نتائج

كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Using X As New Net.WebClient
           X.Encoding = Encoding.UTF8
           AddHandler X.DownloadDataCompleted, AddressOf search
           X.DownloadDataAsync(New Uri("https://www.bing.com/search?q=site:pastebin.com+" & TextBox1.Text))
       End Using
   End Sub
 
   Private Sub search(sender As Object, e As DownloadDataCompletedEventArgs)
       Dim RS As String = (New UTF8Encoding).GetString(e.Result)
       Dim M As MatchCollection = Regex.Matches(RS, "(https:\/\/pastebin.com\/\w+)")
       Label1.Text = "founded Links : " & M.Count
       For i = 0 To M.Count - 1
           ListBox1.Items.Add(M(i).Value & vbNewLine)
       Next
   End Sub


RE: تعديل بسيط في كود بحث - elgokr - 17-12-18

لتبسيط الامور فكرياً

عليك عمل كود يقوم بجلب عدد الصحات لنتائج البحث
ليقوم بجلب اخر رقم من 
PHP كود :
< 1 2 3 4 5 6 ... 50 > 

بحيث ليكون يتم عمل For بعدد تلك الارقام
حتى يتم استخدام الرابط بالكود على هذا الشكل
PHP كود :
"https://www.bing.com/search?q=site:pastebin.com+" & TextBox1.Text & "&first=" & ii - 1 & "1" 

حيث ان ii المقصود هنا بالكود الموجود فى For كمثال
كود :
For ii As Integer = 1 To 50

بكده ستتمكن من جلب جميع نتائج البحث
من تم اضافته بالرابط هو 
PHP كود :
&first=1 

ويعنى البداء من 1 وتعنى الصفحة الاولى
وعندما تكون  من 11 وهنا تعنى من الصحة الثانية
ومن 21 تعنى الصفحة الثالثة

اتمنى ان الصورة اصبحت واضحة وكاملة لديك
وان الامور اصبح مبسط لديك كلياً

احببت اجعل ردى كا شرح بدلاً من الكود
لتقوم انت بعل ذلك وتتعلم من كيفيت وصول لما تريده

تحياتى لك
وتمنياتى لك التوفيق


RE: تعديل بسيط في كود بحث - trakktour - 17-12-18

(17-12-18, 09:42 PM)elgokr كتب :
لتبسيط الامور فكرياً

عليك عمل كود يقوم بجلب عدد الصحات لنتائج البحث
ليقوم بجلب اخر رقم من 
PHP كود :
< 1 2 3 4 5 6 ... 50 > 

بحيث ليكون يتم عمل For بعدد تلك الارقام
حتى يتم استخدام الرابط بالكود على هذا الشكل
PHP كود :
"https://www.bing.com/search?q=site:pastebin.com+" & TextBox1.Text & "&first=" & ii - 1 & "1" 

حيث ان ii المقصود هنا بالكود الموجود فى For كمثال
كود :
For ii As Integer = 1 To 50

بكده ستتمكن من جلب جميع نتائج البحث
من تم اضافته بالرابط هو 
PHP كود :
&first=1 

ويعنى البداء من 1 وتعنى الصفحة الاولى
وعندما تكون  من 11 وهنا تعنى من الصحة الثانية
ومن 21 تعنى الصفحة الثالثة

اتمنى ان الصورة اصبحت واضحة وكاملة لديك
وان الامور اصبح مبسط لديك كلياً

احببت اجعل ردى كا شرح بدلاً من الكود
لتقوم انت بعل ذلك وتتعلم من كيفيت وصول لما تريده

تحياتى لك
وتمنياتى لك التوفيق

شكرا يا غالي الله يحفظك 
هكذا الكود ؟؟
كود :
               For ii As Integer = 1 To 50
                   X.DownloadDataAsync(New Uri("https://www.bing.com/search?q=site:pastebin.com+" & txt1.Text & "&first=" & ii - 1))
               Next


RE: تعديل بسيط في كود بحث - elgokr - 18-12-18

الكود سيكون عبارة عن 3 مراحل

الاول جلب عدد الصفحات فى البحث
حتى تستبدل من 50 الى القيمة التى تم جلبها

ثانياً الكود الخاص ك التالى
كود :
      Using X As New Net.WebClient
          X.Encoding = Encoding.UTF8
          AddHandler X.DownloadDataCompleted, AddressOf search
          X.DownloadDataAsync(New Uri("https://www.bing.com/search?q=site:pastebin.com+" & TextBox1.Text))
      End Using

باكمله سيكون بداخل لـ For الذى تم عمله من ناتج الخطوة الاولى

ثالثاً ترحيل القيم من النتائج فى المرحلة الثانية
ليتم عرضها لديك فى البرنامج

وبكده تكون انهيت ما تريد فعله كلياً
اتمنى ان تكون الامور ليس معقدة وانا متاكد انت ستصل لها بالتركيز فى الشرح
ويعتمد ذلك اذا كنت انت من انشاء الكود فى الموضوع من البداية

تحياتى لك
وتمنياتى لك التوفيق


RE: تعديل بسيط في كود بحث - trakktour - 18-12-18

(18-12-18, 03:22 AM)elgokr كتب :
الكود سيكون عبارة عن 3 مراحل

الاول جلب عدد الصفحات فى البحث
حتى تستبدل من 50 الى القيمة التى تم جلبها

ثانياً الكود الخاص ك التالى
كود :
      Using X As New Net.WebClient
          X.Encoding = Encoding.UTF8
          AddHandler X.DownloadDataCompleted, AddressOf search
          X.DownloadDataAsync(New Uri("https://www.bing.com/search?q=site:pastebin.com+" & TextBox1.Text))
      End Using

باكمله سيكون بداخل لـ For الذى تم عمله من ناتج الخطوة الاولى

ثالثاً ترحيل القيم من النتائج فى المرحلة الثانية
ليتم عرضها لديك فى البرنامج

وبكده تكون انهيت ما تريد فعله كلياً
اتمنى ان تكون الامور ليس معقدة وانا متاكد انت ستصل لها بالتركيز فى الشرح
ويعتمد ذلك اذا كنت انت من انشاء الكود فى الموضوع من البداية

تحياتى لك
وتمنياتى لك التوفيق

شكرا حبيبي تم حل المشكل ربي يحفظك
شرحك اكثر من رائع

RE: تعديل بسيط في كود بحث - elgokr - 19-12-18

الشكر لله والحمد لله
والحمد لله على كل حال

احسنت اخى الفاضل وهذا ثقتى بك بانك ستتمكن من ذلك

تحياتى لك
وتمنياتى لك التوفيق