منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - اريد حذف جزء من متغير بالتيكست بوكس

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

mazen 2013

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

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

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

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

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

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

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

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

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

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

احمد جيد

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

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

كود :

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

mazen55

Abdullah0991

mazen55

3booody

mazen55