[العبادي 2]

(23-01-21, 11:22 AM)fghj كتب :

(22-01-21, 11:39 PM)العبادي 2 كتب : السلام عليكم ورحمة الله وبركاته

ارجو من الاخوة الكرام مساعدتي في عمل كود يقوم بما يلي

اولا: حذف كل الحروف المكررة من الجملة

ثانيا: كود يحذف حروف معينة يحددها المستخدم

يوجد مرفق ارجو ادراج الكود به

كود :

Private Sub Command1_Click()
   Dim s As String
   If Me.Option1.Value = True Then
       Dim i As Integer, c1 As String, c2 As String
       s = Mid$(Text1, 1, 1)
       For i = 2 To Len(Text1)
           c1 = Mid$(Text1, i - 1, 1)
           c2 = Mid$(Text1, i, 1)
           If c1 <> c2 Then s = s & c2
       Next i
       Text2 = s
   ElseIf Me.Option2.Value = True Then
       s = Text1
       s = Replace(s, "ا", "")
       s = Replace(s, "س", "")
       Text2 = s
   End If
End Sub

مشكور اخي الكريم
بارك الله فيك
لكن الكود لم يحقق الاختيار رقم 1 حيث بقيت الحروف المكررة موجودة في الجملة ولعل الصورة المرفقة توضح ذلك
الكود الثاني حقق الاختيار الثاني
لكن نفرض ان المستخدم يريد حذف حروف معينة هو يختارها بنفسه
كيف يمكن ذلك