تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الجمل التكرارية من يساعدنا على فهمها؟
#1
السلام عليكم ورحمة الله وبركاته
اخواني اخواتي عندي استفسار بخصوص عمل loop سواء كان عن طريق For او For Each او بقية الدوال التكرارية
انا قاعد اتعلم عليها واحاول اتقنها وافهمها اكثر واكثر واتعمق فيها والهدف من هذا الموضوع تعليمي بالدرجة الاولى
عموما انا عملت تطبيق بسيط والهدف من التطبيق هو تجربة الجمل التكرارية مثل هذا
كود :
Imports System.Net
Imports System.IO
Public Class Form1

   Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Try
           Dim Keyword As String = RichTextBox1.Text
           Dim rep As String
           For Each Keywords In Keyword
               Dim req As HttpWebRequest = HttpWebRequest.Create("https://www.google.com.sa/search?q=" & Keywords & ")
               Dim res As HttpWebResponse = req.GetResponse
               Dim reader As Stream = res.GetResponseStream
               Dim readtoend As New StreamReader(reader)
               rep = readtoend.ReadToEnd()
           Next

       Catch ex As Exception

       End Try



   End Sub


End Class
طبعا الكود هذا وظيفته: يقوم بأرسال الجمل التي تكتبها داخل صندوق richtextbox
ويقوم بإرسالها الى محرك البحث قوقل فقط لكن عندي مشكلة واستفسار
بالنسبة للمشكلة عندما اضع مثلا 4 جمل تحت بعض في الصندوق
مثل
vb4arb tut
vb4arb C#
vb4arb Codes
يتم ارسال البيانات بشكل غريب جداً فيقوم بتقسيم الكلمة الى حرف حرف ويقوم بإرسالها مع العلم انها في صندوق richtextbox الجمل تحت بعض!
هكذا
https://www.google.com.sa/search?q=v
https://www.google.com.sa/search?q=b
https://www.google.com.sa/search?q=4
https://www.google.com.sa/search?q=a
https://www.google.com.sa/search?q=r
https://www.google.com.sa/search?q=b
كيف احل هذه المشكلة؟

وبالنسبة للاستفسار
اتمنى من يملك خبرة ان يضع لنا اكثر من طريقة لتنفيذ هذا الكود بالجمل التكرارية مثلا مرة ينفذ ارسال الجمل For, While,for each,Until حتى افهمها أكثر لأن هذا هو هدفي الحقيقي من كتابة الموضوع

على كل حال ان متبديء ولم اكمل حتى اسبوعين في برمجة الفيجوال بيسك والكود اللي فوق هو محاولة مني واعتذر على الإطاله

وشكراً لكم
الرد }}}
تم الشكر بواسطة:
#2
حل مشكلة التقسيم حرف حرف كالتالي:

كود :
for each keyword in keywords.split(vbnewline)

الاكواد

next

لي اقتراح لطريقة التعلم.....ان تتعلم بعيدا عن الاتصال بالانترنت تخشى ان قوقل تقوم بحظر جهازك.
مثلا اكتب كود باستخدام For  يتحقق من قيمة مدخلة عن طريق المستخدم فان وصلت القيمة عدد معين يخرج من For والا يواصل حتى تضع شرط اضافي
الرد }}}
تم الشكر بواسطة: silverlord
#3
(27-10-14, 10:29 PM)سعود كتب : حل مشكلة التقسيم حرف حرف كالتالي:



كود :
for each keyword in keywords.split(vbnewline)

الاكواد

next

لي اقتراح لطريقة التعلم.....ان تتعلم بعيدا عن الاتصال بالانترنت تخشى ان قوقل تقوم بحظر جهازك.
مثلا اكتب كود باستخدام For  يتحقق من قيمة مدخلة عن طريق المستخدم فان وصلت القيمة عدد معين يخرج من For والا يواصل حتى تضع شرط اضافي
اخي سعود عندما وضعت
كود :
keywords.split(vbnewline)
اصبح البرنامج يرسل جميع الجمل الموجوده في richtextbox دفعة واحد

هكذا يكون شكل الرابط عند ارسال البيانات
كود :
https://www.google.com.sa/search?q=vb4arb tut vb4arb c vb4arb Codes
طبعا انا ابغاه ياخذ الجملة الموجودة في السطر الاول
ثم الجملة الموجودة في السطر الثاني وهكذا
مثال
كود :
https://www.google.com.sa/search?q=vb4arb tut
ثم
كود :
https://www.google.com.sa/search?q=vb4arb c
ثم
كود :
https://www.google.com.sa/search?q=vb4arb Codes

على كل حال اخي سعود شكراً لك
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله

جرب السطر
PHP كود :
For Each Keyword In RichTextBox1.Text.Split(vbLf

لأن RichTextBox1 نستخدم معها vbLf وليس vbNewLine مثل TextBox
الرد }}}
تم الشكر بواسطة: silverlord
#5
الله يعطيك العافية اخوي سعود

بعد البحث في قوقل عن .split(vbnewline) ظهرت لي كثير من النتائج ووجدت الحل

كود :
For Each Keywords As String In Keyword.Split(vbLf)
شكرا لك

(28-10-14, 11:04 PM)الوليد ☺ كتب : السلام عليكم ورحمة الله

جرب السطر
For Each Keyword In RichTextBox1.Text.Split(vbLf)

لأن RichTextBox1 نستخدم معها vbLf وليس vbNewLine مثل TextBox

الظاهر كتبنا الرد مع بعض
شكرا لك اخي الوليد
الرد }}}
تم الشكر بواسطة: الوليد ☺
#6
السلام عليكم ورحمة الله

فيه طريقة أسهل
PHP كود :
Dim rep As String
For Each Keyword In RichTextBox1.Text.Split(vbLf)
    
rep = New Net.WebClient().DownloadString("https://www.google.com.sa/search?q=" Keyword)
Next 
الرد }}}
تم الشكر بواسطة: silverlord
#7
(28-10-14, 11:29 PM)الوليد ☺ كتب : السلام عليكم ورحمة الله

فيه طريقة أسهل
Dim rep As String
For Each Keyword In RichTextBox1.Text.Split(vbLf)
rep = New Net.WebClient().DownloadString("https://www.google.com.sa/search?q=" & Keyword)
Next

الله يعطيك الف عافية اخوي الوليد طريقتك روعة جداً واختصرت الكود اللي فوق بسطر واحد

rep = New Net.WebClient().DownloadString("https://www.google.com.sa/search?q=" & Keyword)
الرد }}}
تم الشكر بواسطة: الوليد ☺



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


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