[mazen55]

لدي تيكست بة جملة

mazen 2013

باستخدم بعض الاكواد لتغير المحتوي

لو فارغ يكتب القيمة فارغة لو
والا يطبع القيمة 10 مرات من نفس التيكست كيف اضع ان يتم حذف مابعد 2013
يعني اريدكود ان القيمة بداخل التيكست لو 2013 موجود يمسح اي اضافة بعدها
ولو مش موجودة يضع 2013

[Abdullah0991]

ممكن تشرح بالعربي

[mazen55]

حذف اي جزء بعد الكلمة الموضوعة بالتيكست بوكس التي احددها كمتغير

النص هو الكلمة الموضوعة مثلا احمد وهناك متغير يضاف باسم جيد

اريد لو وضعت كلمة بعد المتغير جيد ان تحذف الاكواد لها علاقة بحلقة تكرارية

عند الضغط اكثر من مرة علي الزر يضيف نفس المتغير

احمد جيد
احمد جيد جيد

احمد جيد جيد جيد

كل ضغطة بتضيف المتغير مرة اخري اريد حتي لو وجد المتغير اكثر من مرة يحذف ويبقي مثل اول مرة

احمد جيد

لو في اي شيء مش مفهوم انا اسف جدا

[3booody]

على ما اظن هذا قصدك

كود :

On Error Resume Next
        Dim Rgx As New System.Text.RegularExpressions.Regex("Good$")
        If Rgx.IsMatch(TextBox1.Text) Then
            TextBox1.Text &= " Good"
        Else
            If TextBox1.Text.Contains("Good") Then
                TextBox1.Text = TextBox1.Text.Replace(Mid(TextBox1.Text, TextBox1.Text.IndexOf("Good") + 5, TextBox1.TextLength), "")
            End If
        End If

[mazen55]

تمام اخي 3boody تم حل المشكلة بالاكواد التي ذكرتها