[العبادي 2]

(24-01-21, 11:37 AM)fghj2 كتب :

كود :

Private Sub Command1_Click()
   Dim i As Integer, s As String, c As String, r As String
   If Me.Option1.Value = True Then
       s = Text1
       For i = 1 To Len(s)
           c = Mid$(s, i, 1)
           If InStr(1, r, c) = 0 Or c = " " Then r = r & c
       Next
       r = Replace(r, "  ", " ")
       Text2 = r
   ElseIf Me.Option2.Value = True Then
       r = Replace(Text3, " ", "")
       r = Replace(r, ",", "")
       s = Text1
       For i = 1 To Len(r)
           s = Replace(s, Mid$(r, i, 1), "")
       Next
       Text2 = s
   End If
End Sub

للاسف لم ينجح الكود