جدا شدن حروف از هم هنگام پیست شدن

[hr0694]

سلام

کد برنامه ای رو میخام که هر وقت داخل تکست1 پیست کردم حروفی را که به هم چسبیده اند جدا شوند از هم و یک فاصله میانشان گذاشته شود
مثال
تکست1: البن
تکست1: ا ل ب ن

یا

تکست1: ال بن
تکست1: ا ل ب ن

[MMR_1344]

دوست عزیز
کار رو شروع کن و هر کجا خواستی کمک بگیر نه اینکه منتظر برنامه باشی
برای این کار هم میتونی در یک Text اطلاعات رو وارد کنی و با Text_Change کار مورد نظر رو انجام بدی

[hr0694]

اگه میشه کدشو واسم بنویسید

[quiet_programmer]

باسلام.


اگه میشه کدشو واسم بنویسید راهنمایی از این بیشتر نمیشه که تو ایوند تکست چنج متن رو بخونی و با دستور len کاراکتر به کاراکتر جداشون کنی و در صورتی که کاراکتر اسپیس نبود و کاراکتر بعدی که قراره جدا بشه هم اسپیس نبود بعد الحاق کاراکتر جداشده یه اسپیس هم اضافه کنی در غیر این صورت کاراکتر جدا شده را مستقیما و بدون کاراکتر اسپیس به رشته موقتی کانکت کنی.

یا حق.
موفق باشید/

[hr0694]

من اصلا کارم برنامه نویسی نیست این کدها رو واسه چیزه دیگه ای میخام اگه میشه کد این برنامه رو خودتون واسم بنویسید

[mr-adler]

کد ها رو واسه چی میخوای؟:لبخند:
اگه میخوای یاد بگیری کپی کردن کد هیچ فایده ای نداره ...

[vbhamed]

سلام

Private Sub Text1_Change()

Static Run As Integer

If Run Then Exit Sub
Run = 1

Dim i%, s$, c$
s = Text1
For i = 1 To Len(s)
c = c & " " & Mid$(s, i, 1)
c = Replace(c, " ", " ")
Next
Text1 = Trim$(c)

Run = 0

End Sub