تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كود برنامج string يبحث و يحذف
#1
Lightbulb 
مساء الخير ..
طلباتي في المنتدى لن تنتهي الى ما احترف الفيجوال بإذن الله خلال هذه السنه لتجهيز نفسي لمشروع في الجامعة للتخرج .. Angel

السؤال : 

 Write a program that read this string "welcome to my world" then remove any character chosen by the user.
هذه صورة للفورم المطلوب : 




انا بداية جربت هذا الكود : 


كود :
Private Sub resultButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resultButton1.Click
       stringLabel1.Text = " "
       Dim a, b, c, d As String
       c = "welcome to my world"
       stringLabel1.Text = c
       a = characterTextBox1.Text
       b = InStr(c, a)
       d = c.Substring(b)
       resultLabel1.Text = d

   End Sub


لكن الخطأ فيه اني مثلا دخلت ال o يروح يبحث عن اول o فقط ويحذف ماقبلها  Huh
انا اللي ابغاه كيف يحذف لي الحرف اللي اطلبه من كل الجمله  Huh Huh
يارب فهمتوا علي  Sad
الرد }}}
تم الشكر بواسطة:
#2
جربي هذا الكود
كود :
Private Sub resultButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resultButton1.Click
        stringLabel1.Text = " "
        Dim a, b(), c, d As String
        c = "welcome to my world"
        stringLabel1.Text = c
        a = characterTextBox1.Text
        b = c.Split(a)
        d = String.Join(Nothing, b)
        resultLabel1.Text = d
    End Sub
الرد }}}
تم الشكر بواسطة: a_abdullah , myalsailamy
#3
(07-11-16, 10:51 PM)ممدوح كتب : جربي هذا الكود
كود :
   Private Sub resultButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resultButton1.Click
       stringLabel1.Text = " "
       Dim a, b(), c, d As String
       c = "welcome to my world"
       stringLabel1.Text = c
       a = characterTextBox1.Text
       b = c.Split(a)
       d = String.Join(Nothing, b)
       resultLabel1.Text = d
   End Sub
مشى معاي الكود بالتمام ماشاء الله عليك    

بس ياليت تشرح لي ليش استخدمت فانكشون التفريق والتجميع ؟ 

لازم افهم كل خطوة عشان يثبت برأسي كل شي  
الرد }}}
تم الشكر بواسطة: ممدوح
#4
اعتذر لعدم الشرح، كنت على عجالة

جعلت b مصفوفة لأنها ستحتوي ناتج امر التفريق Split والذي سيكون مصفوفة، ومن أثار الأمر Split أنه لن يحتوي على الفاصل الذي استخدم في التقطيع،

وبطبيعة الحالة لابد من تجميع المصفوفة الناتجة، فتم استخدام امر التجميع String.Join

طبعا توجد أساليب أخرى ولكنها متقدمة ولم أشأ استخدامها لألى تشوش عليك حالياً

لا أدري هل نصحي لك في مكانه لو قلت بأن تستخدمي مسميات ذات معنى للمتغيرات بدلا من الأحرف التي تسبب التوهات لو طال الكود
الرد }}}
تم الشكر بواسطة: a_abdullah
#5
ممكن تستخدم replace ، و استبدال الحرف المطلوب بلاشيء "" .
اسم معرفي : محمد يحيى
الرد }}}
تم الشكر بواسطة: a_abdullah , ممدوح
#6
(07-11-16, 11:14 PM)ممدوح كتب : اعتذر لعدم الشرح، كنت على عجالة

جعلت b مصفوفة لأنها ستحتوي ناتج امر التفريق Split والذي سيكون مصفوفة، ومن أثار الأمر Split أنه لن يحتوي على الفاصل الذي استخدم في التقطيع،

وبطبيعة الحالة لابد من تجميع المصفوفة الناتجة، فتم استخدام امر التجميع String.Join

طبعا توجد أساليب أخرى ولكنها متقدمة ولم أشأ استخدامها لألى تشوش عليك حالياً

لا أدري هل نصحي لك في مكانه لو قلت بأن تستخدمي مسميات ذات معنى للمتغيرات بدلا من الأحرف التي تسبب التوهات لو طال الكود

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

(07-11-16, 11:26 PM)myalsailamy كتب : ممكن  تستخدم  replace  ، و استبدال الحرف المطلوب بلاشيء  ""  .

وهذه احدى طرق الحل سأجربها ان شاء الله شككرا لك
الرد }}}
تم الشكر بواسطة: ممدوح
#7
أهلا بك أخي محمد
وهذا الكود باستخدام Replace الذي أشار إليه أخي محمد
كود :
Private Sub resultButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resultButton1.Click
        stringLabel1.Text = " "
        Dim a, c, d As String
        c = "welcome to my world"
        stringLabel1.Text = c
        a = characterTextBox1.Text
        d = c.Replace(a, Nothing)
        resultLabel1.Text = d
    End Sub

بالنسبة للأخت الكريمة تعمدت أن أضع لها حلولا بناء على ما أراه من الكود لاعتقادي أن المطلوب يعتمد على الأوامر المتعلقة بالوحدة الحالية من المنهج الدراسي،
الرد }}}
تم الشكر بواسطة: a_abdullah
#8
(07-11-16, 11:34 PM)ممدوح كتب : أهلا بك أخي محمد
وهذا الكود باستخدام Replace الذي أشار إليه أخي محمد
كود :
   Private Sub resultButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resultButton1.Click
       stringLabel1.Text = " "
       Dim a, c, d As String
       c = "welcome to my world"
       stringLabel1.Text = c
       a = characterTextBox1.Text
       d = c.Replace(a, Nothing)
       resultLabel1.Text = d
   End Sub

هل يوجد شي اكبر من الشكر لاقدمه لك استاذي العزيز ؟ 
ونعم الرجل شكككرا من الاعممماق وشكرا لاتوفي حقك ): ❤️❤️❤️
الرد }}}
تم الشكر بواسطة: ممدوح
#9
أشكرك أختي الكريمة،

وتكفي الدعوات الطيبة وخصوصاً للقائمين على هذا المنتدى المجاني وبدون مقابل رجاء الثواب من عند الله،

وفي انتظار أسئلة أخرى، ولا يوجد حرج من كثرتها، فجميع الاعضاء هنا يسعدون بتقديم المعلومة والحلول.
الرد }}}
تم الشكر بواسطة: a_abdullah
#10
(07-11-16, 11:48 PM)ممدوح كتب : أشكرك أختي الكريمة،

وتكفي الدعوات الطيبة وخصوصاً للقائمين على هذا المنتدى المجاني وبدون مقابل رجاء الثواب من عند الله،

وفي انتظار أسئلة أخرى، ولا يوجد حرج من كثرتها، فجميع الاعضاء هنا يسعدون بتقديم المعلومة والحلول.

تستاهل من يدعي لك في كل قيام ليل 
ولا ننسى اكيد من فتح لنا هذا المجال لتزيد خبراتنا 
لان اتردد في سؤالي مرة اخرى عن اي شي استصعبه 
بإذن الله ..
الرد }}}
تم الشكر بواسطة: ممدوح


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 598 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  [VB.NET] كيف يمكنني استظافة سوفت وير برنامج ادارة جهاز السي بي سي في المختبر الى برنامجي الحزين اليماني 2 282 15-01-24, 10:39 PM
آخر رد: الحزين اليماني
  برنامج لحفظ اكوادي samsunggears 2 385 05-01-24, 12:57 AM
آخر رد: HALIM ELEULMA
  انشاء واجهات برنامج شؤون الموظفين والرواتب شمسـ لا تغيب 5 12,845 27-09-23, 10:05 PM
آخر رد: melad2002
  مطلوب برنامج لحوافظ المالية الاسطورة1 2 432 27-09-23, 09:12 PM
آخر رد: melad2002
  تشغيل برنامج خارجي ضمن شاشة برنامجي strongriseman 1 341 13-09-23, 10:14 PM
آخر رد: anes
  طلب برنامج Active report v1.1 ali_dark 2 436 19-07-23, 01:33 AM
آخر رد: مصمم هاوي
  [نقاش] مساعدة برنامج جمعية خيرية mgsmm 0 457 30-06-23, 01:03 AM
آخر رد: mgsmm
  [VB.NET] سوال حول convert bytes to string dubai.eig 13 1,191 26-06-23, 04:49 PM
آخر رد: joly
  برنامج الصادر والوارد vb.net crazykinko 3 909 23-06-23, 04:19 AM
آخر رد: kebboud

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


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