حذف حروف تکراری

[hr0694]

سلام
سورس برنامه ای را میخواهم که حروف و اعداد تکراری را حذف کند (فقط 2 تا Text روی Form داریم بدون دکمه کامند)

مثال
Text1 = م ا ب ب ن س ن ر م ب
Text2 = م ا ب ن س ر

[farboodj1375]

سلام.
میشه بگین کاربرد این چی هست؟
ممنون.

[ramzdar]

احتمالاً ایشون اینا رو برای حروف ابجد میخوان

جناب hr0694،شما 2 تا تسکت باکس روی فرم بذار و بعد این کدها رو توی قسمت کد نویسی کپی کن.
وقتی متن توی تکست 1 رو نوشتی، دکمه Enter رو بزن تا حروف تکراری حذف بشن و متن باقی مونده توی تکست 2 نشون داده بشه

Dim Text1TXT As String

Private Function RemoveDuplicate()
Dim a As String
For i = 1 To Len(Text1) - 1
a = Mid(Text1, i, 1)
For j = i + 1 To Len(Text1)
If a = " " Then Exit For
b = InStr(j, Text1, a)
If b <> 0 Then
Text1 = Trim(Mid(Text1, 1, b - 1)) & " " & Trim(Mid(Text1, b + 1))
End If
Next
Next
Text2 = Trim(Text1)
End Function

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1TXT = Text1
Call RemoveDuplicate
Text1 = Text1TXT
Text1.SelStart = Len(Text1)
End If
End Sub

[setroyd]

خب شما باید تعیین کنی از مثلا 100 a کدومش حذف بشه اولیش ؟اخریش ؟ وسطی و.......... !!!