مؤخر و صدر

[hr0694]

سلام
سورس برنامه ای میخواهم که حروف را مؤخر و صدر کند یعنی یک حرف از آخر و یک حرف از اول انتخاب کردن تا وقتی که حروف تمام شود (فقط دو تا Text روی Form قرار بگیرد و دکمه کامندی نباشد در اولی حروف نوشته شود در دومی مؤخر و صدر آن)

مثال1
(ا ی م ه ف د) میشود (د ا ف ی ه م)
مثال2
(ت م غ ی م) میشود (م ت ی م غ)

[hr0694]

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

[setroyd]

خیلی بد گفتی نمیفهمم منظورتو

[hr0694]

یعنی در Text1 مثلا حروف نوشته شده اند (ا ی م ه ف د) و باید در Text2 طبق تعریف مؤخر وصدر نوشته شود (د ا ف ی ه م)

[محسن واژدی]

سلام علیکم
کدزیر را امتحان کنید:

Public Function MkhSdr$(ByVal tText$)
Dim f%, l%, f_t$, l_t$, res$, intmid%
tText = Replace(tText, " ", Empty)
intmid = Len(tText$) / 2
For f% = 1 To IIf(intmid < Len(tText$) / 2, intmid + 1, intmid)
l_t$ = Mid(tText$, Len(tText$) - l%, 1)
If f% <> (Len(tText$) - l%) Then
f_t$ = Mid(tText$, f, 1)
Else
f_t$ = Empty
End If
res$ = res$ & l_t$ & " " & f_t$ & " "
l% = l% + 1
Next f%
MkhSdr$ = Trim(res$)
End Function

Private Sub Text1_Change()
Text2 = MkhSdr$(Text1)
End Sub


برای استفاده دو تا TextBox بنام های Text1, Text2 بر روی فرم قرار بدین سپس متن مورد نظر را در Text1 تایپ کنین

موفق باشید

[hr0694]

دوست عزیز یه کاری کنید بین هر حرف حروف مؤخر صدر شده یعنی Text2 یک فاصله باشد یعنی حروف Text1 چه چسبیده باشند چه جدا در Text2 بین هر حرف یک فاصله باشد

[محسن واژدی]

کد ویرایش شده جایگزین پست 5 شد
موفق باشید

[hr0694]

من منظورم اینه که اگر در تکست1 نوشتم مثلاً (ایران) یا (ا ی ر ا ن) تکست2 در هر صورت بین هر حرف یک فاصله باشد فقط یک فاصله باشد و قبل حرف اول هم فاصله نباشد یعنی کلاً اینطوری دربیاد
تکست1: ایران
تکست2: ن ا ا ی ر
یا
تکست1: ا ی ر ا ن
تکست 2: ن ا ا ی ر

الآن من این کدی که شما برام گذاشتید اجرا میکنم اینطوری میشه
در حالت اول که حروف چسبده اند خوب کار میکند اما وقتی بین حروف یک فاصله هست مثل پائین فاصله هایش اشتباه میشه یعنی اینطوری میشه
تکست1: ا ی ر ا ن
تکست2 میشود: ن ا(بجای یکی چند تا فاصله افتاده)ا ي(بجای یکی چند تا فاصله افتاده)ر

اگر میشه این مشکل را برام برطرف کنید

[محسن واژدی]

سلام علیکم
تغییرات جایگزین پست 5 شد

موفق باشید

[hr0694]

دستت درست گلی به جمالت کارت بیسته