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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد حذف جزء من متغير بالتيكست بوكس (/showthread.php?tid=470)

اريد حذف جزء من متغير بالتيكست بوكس - mazen55 - 10-10-13

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

mazen 2013

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

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

RE: اريد حذف جزء من متغير بالتيكست بوكس - Abdullah0991 - 10-10-13

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

RE: اريد حذف جزء من متغير بالتيكست بوكس - mazen55 - 10-10-13

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

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

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

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

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

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

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

احمد جيد

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

RE: اريد حذف جزء من متغير بالتيكست بوكس - 3booody - 10-10-13

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

كود :
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


RE: اريد حذف جزء من متغير بالتيكست بوكس - mazen55 - 11-10-13

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