چگونه میشه در vb6 حروف رو فیلتر کرد؟

[_behnam_]

دوستان خواستم بدونم چطور میتونم حرف هارو در ویژوال فیلتر کنم؟
مثلا اگه ما تو تکست باکس 1 بنویسیم ali اگر تکست باکس 2 یه چیزی تو این مایه ها باشه aalllllliiiiiiii تبدیل بشه به ali
اما اگر یک یا چند حرف زیاد داشت که جز تکست باکس 1 نباشه و یا حروف جا بجا باشن مثلا اینجوری بود : aallllliaiiiiiiii تبدیل انجام نشه.
کسی میتون راهنمایی کنه؟

[M.T.P]

Dim StrInput As String
Dim StrOutput As String
StrInput = "aaalllliii"
For i = 1 To Len(StrInput)
If Mid(StrInput, i, 1) <> Mid(StrInput, i + 1, 1) Then
StrOutput = StrOutput & Mid(StrInput, i, 1)
End If
Next i
MsgBox StrOutput

[mohsen_archi]

همون کد با کمی تغییر



Text1 = "ali"
Text2 = "aaalllliii"
Text3 = ""
For i = 1 To Len(Text2)
If Mid(Text2, i, 1) <> Mid(Text2, i + 1, 1) And InStr(Text1, Mid(Text2, i, 1)) > 0 Then
If Mid(Text2, i, 1) = Mid(Text2, i - 1, 1) Then Text3 = Text3 & Mid(Text2, i, 1)
End If
Next i
MsgBox Text3

[_behnam_]

دوستان از کمکتون ممنونم
اما من نمیخوام فقط حرفها به یک تبدبل بشن
تو این کدها مثلا اگه کلمه khooooooobi باشه . تبدیل میشه به khobi ,
من میخوام که اگه کلمه مورد نظر khoobi بود . khooooooooooooooobi به khoobi تبدیل بشه نه به khobi
یا اگه alii بود alllliiiiiiiiiiiiiii به alii تبدیل بشه اما اگه alllieiiiiii یا alllllallliii یا یک یا چند حرف اضافه داشت error بده مثل عکس زیر
http://up.iranblog.com/Files0/b3e8c4bbff8f4616a0ba.gif

[mpmsoft]

دوستان روش کار رو به شما آموزش دادن قرار نیست اینجا کسی برای شما برنامه بنویسه
چیزی که شما می خواهید در حد یک نرم افزار هوش مصنوعی هست پس از درخواست نوشتن برنامه توسط دیگران خودداری کنید در غیر اینصورت طبق قوانین تاپیک حذف می شود