[سؤال] مقارنة - نسخة قابلة للطباعة

[سؤال] مقارنة - نسخة قابلة للطباعة

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

مقارنة - a.alhudar - 20-06-14

السلام عليكم.....................
أنا محتاج مساعدتكم
عندي في البرنامج
TEXTBOX1 AND TEXTBOX2 AND BUTTON
عند الضغط على زر1 و تنفيذ هذه الكود

كود :

Dim s As String = TextBox1.Text

If InStr(1, TextBox1.Text, "hi") Then

            TextBox2.Text = (Replace(s, "hi", "welcome"))

        ElseIf InStr(1, TextBox1.Text, "hello") Then

            TextBox2.Text = (Replace(s, "hello", "welcome2"))

End If

عند أدخال hi hello man في textbox1 يكون الناتج welcome hello man
مع انه المفروض يكون welcome welcome2 man
أتمنى مساعدتي في فهم الكود الاعلى أكثر .
و طبعا أريد أضافه كلمات أخرى

RE: مقارنة - a_almisery - 20-06-14

PHP كود :

'Dim s As String = TextBox1.Text
'      If InStr(1, s, "hi") Then
'        TextBox2.Text = (Replace(s, "hi", "welcome"))
'     End If
'     If InStr(1, TextBox1.Text, "hello") Then
'      TextBox2.Text = (Replace(s, "hello", "welcome2"))
'
'    End If 

RE: مقارنة - a.alhudar - 20-06-14

(20-06-14, 03:43 PM)a_almisery كتب :

PHP كود :

'Dim s As String = TextBox1.Text ' If InStr(1, s, "hi") Then ' TextBox2.Text = (Replace(s, "hi", "welcome")) ' End If ' If InStr(1, TextBox1.Text, "hello") Then ' TextBox2.Text = (Replace(s, "hello", "welcome2")) ' ' End If

شاكر لك مساعدتك و لكن نفس المشكلة
hi welcome2
هو ناتج الكود

RE: مقارنة - a.alhudar - 20-06-14

أحتاج الى كود يعمل الاتي
الكود يحلل الجمل الي في textbox1 و يحول أي كلمات مثل ( hi الى welcome) و (hello الى welcome2) و (people الى man) و .......
مثال
أكتب في textbox1 الاتي:-
hi people, how are you all ? hello to my world
الناتج المفروض في textbox2 هو :-
welcome man, how are you all? welcome2 to my world

الجواب عن (الاستبدال) - محمود اكرم - 02-07-14

السلام عليكم
لاحظ انك اخ a.alhudar
أولا: لا داعي للجمل الشرطية
ثانيا: التغيير يجب ان يكون بالترتيب وليس يحذف ما قبله
ثالثا تفضل الكود

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim s As String = TextBox1.Text
        s = Replace(s, "hi", "welcome", 1)
        s = Replace(s, "hello", "welcome2", 1)
        TextBox2.Text = s
    End Sub 

أي استفسار جاهز