منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] حذف حرف من textbox - نسخة قابلة للطباعة

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

حذف حرف من textbox - farfour - 04-12-19

السلام عليكم
عندي استفسار يا اصدقاء 
عندي textbox فيه مجموعة حروف و ارقام
كود :
45678f7qqqe
اريد حذف الرقم او الحرف 5 الي هو 8

و شكرا لكم

RE: حذف حرف من textbox - علي بنيان - 04-12-19

وعليكم السلام

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

PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim str As String = TextBox1.Text
        Dim str2 = ""
        For i = 1 To Len(str)
            If i <> 5 Then
                str2 &= Mid(str, i, 1)
            End If
        Next
        TextBox1.Text = str2
    End Sub 


ومن خلال تغير الرقم في الكوندشن رح يحذف موقع الرقم الي تحدده

RE: حذف حرف من textbox - 3booody - 04-12-19

الحرف الخامس بالتكست يعني الرابع بالكود لان الاول هوا الصفر

كود :
TextBox1.Text = TextBox1.Text.Remove(4, 1)

4 هوا موقع الحرف : و ال 1 هو عدد الحروف المراد حذفها

كود الاخ علي بنيان جدآ رائع عاشت ايدك اخي

RE: حذف حرف من textbox - farfour - 04-12-19

(04-12-19, 06:15 AM)علي بنيان كتب : وعليكم السلام

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

PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim str As String = TextBox1.Text
        Dim str2 = ""
        For i = 1 To Len(str)
            If i <> 5 Then
                str2 &= Mid(str, i, 1)
            End If
        Next
        TextBox1.Text = str2
    End Sub 


ومن خلال تغير الرقم في الكوندشن رح يحذف موقع الرقم الي تحدده

(04-12-19, 11:16 AM)3booody كتب : الحرف الخامس بالتكست يعني الرابع بالكود لان الاول هوا الصفر

كود :
TextBox1.Text = TextBox1.Text.Remove(4, 1)

4 هوا موقع الحرف : و ال 1 هو عدد الحروف المراد حذفها

كود الاخ علي بنيان جدآ رائع عاشت ايدك اخي

اشكركم كثيرا اخوتي الكرام  Heart ربي يجعلها في ميزان حسناتكم
ممكن سؤال اخر
لو عندي 2 textbox فيهم حروف و ارقام 
كود :
e07583o2fbbae70552
كود :
e075C3o2fbbae70552
فقط حرف واحد مختلف عن الاثنين 
كيف احذفه


RE: حذف حرف من textbox - 3booody - 04-12-19

تحتاج تقارن حرف حرف

كود :
On Error Resume Next
       For i As Integer = 0 To TextBox1.Text.Length - 1
           If TextBox1.Text.Chars(i) <> TextBox2.Text.Chars(i) Then
               TextBox1.Text = TextBox1.Text.Remove(i, 1)
               TextBox2.Text = TextBox2.Text.Remove(i, 1)
           End If
       Next


RE: حذف حرف من textbox - علي بنيان - 04-12-19

(04-12-19, 11:16 AM)3booody كتب : الحرف الخامس بالتكست يعني الرابع بالكود لان الاول هوا الصفر

كود :
TextBox1.Text = TextBox1.Text.Remove(4, 1)

4 هوا موقع الحرف : و ال 1 هو عدد الحروف المراد حذفها

كود الاخ علي بنيان جدآ رائع عاشت ايدك اخي


عاشت ايدك اخي على هذه الطريقة المختصرة , حقيقة ما كنت اعرفها

RE: حذف حرف من textbox - 3booody - 05-12-19

(04-12-19, 09:56 PM)علي بنيان كتب : عاشت ايدك اخي على هذه الطريقة المختصرة , حقيقة ما كنت اعرفها

ربي يسلمك اخي الغالي وان شاء الله دائمآ نرى ابداعك بمساعدة الاخرين