فاصله بین حروف

[hr0694]

سلام
کدی را میخواهم که اگر بین حروف (بین هر حرف با حرف دیگر) در Text1 دو تا فاصله یا سه تا فاصله یا چهارتا فاصله یا بیشتر افتاد در Text2 به یک فاصله تبدیل شوند (علامت - نشانه فاصله است)

مثال
تکست1= ا--ل---ب-----ن
تکست2= ا ل ب ن

[butterfly8528]

سلام دوست عزیز .
از کد زیر استفاده کنید :

Private Sub Text1_Change()

Text2.Text = Replace(Text1.Text, "-", " ")

Do While InStr(1, Text2.Text, " ") > 0
Text2.Text = Replace(Text2.Text, " ", " ")
Loop

End Sub
موفق باشید :لبخندساده:.