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

السلام عليكم
عندي استفسار يا اصدقاء
عندي textbox فيه مجموعة حروف و ارقام

كود :
45678f7qqqe

اريد حذف الرقم او الحرف 5 الي هو 8
[صورة مرفقة: cNZIK3G.jpg]

و شكرا لكم

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

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

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 

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

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

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

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

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

(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

فقط حرف واحد مختلف عن الاثنين
كيف احذفه
[صورة مرفقة: uXvC9Jk.jpg]

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

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

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

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

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

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

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

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

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

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

farfour

علي بنيان

3booody

farfour

3booody

علي بنيان

3booody