امتزاج حروف

[Hassan2500]

سلام
دوتا کد میخوام
1- کدی میخوام که دوتا دوتا حروف را با هم امتزاج دهد
مثال
تکست1: ا ب ج د ه
تکست2: و ز ح ط ی
بشود
تکست3: ا ب و ز ج د ح ط ه ی
یا
تکست1: ا ب ج د
تکست2: ه و ز ح
تکست3: ا ب ه و ج د ز ح

2- کدی میخوام که حروف را چهارتا یکی با هم امتزاج دهد
مثال
تکست1: ا ب ج د ه و ز ح ط ی
تکست2: ک ل م ن
بشود
تکست3: ا ب ج د ک ه و ز ح ل ط ی م ن
یا
تکست1: ا ب ج د ه و ز ح
تکست2: ط ی
تکست3: ا ب ج د ط ه و ز ح ی

[Veteran]

شما همش سرو کارت با ایناس که !

[Hassan2500]

من برنامه های جفر رو مینویسم و بخاطر همین اینگونه سؤالات رو زیاد میپرسم

[just4froum]

ببین اینو میگم ولی از دستم ناراحت نشو .

بهتر نیست شما به جای این که این چیزای سادرو بپرسی بری و 2ساعت وقت بگذاری و کلشو یاد بگیری ؟:عصبانی++::عصبانی++:

[Hassan2500]

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

[Hassan2500]

کسی نیست پاسخ بده

[محسن واژدی]

سلام علیکم
تابع زیر را در مادول کد یا فرم کپی کنید:
Function JoinT(tText1 As TextBox, tText2 As TextBox, iNumChrsFromText1%, iNumChrsFromText2%)
On Error Resume Next
Dim i
Dim iLT2%
Dim sT1$, sT2$
Dim sR$
iLT2% = 1
sT1$ = Replace(tText1, " ", "")
sT2$ = Replace(tText2, " ", "")

For i = 1 To Len(sT1$) Step iNumChrsFromText1%
sR$ = sR$ & Mid(sT1$, i, iNumChrsFromText1%) & Mid(sT2$, IIf(iLT2% = 0, 1, iLT2%), iNumChrsFromText2%)
iLT2% = iLT2% + iNumChrsFromText2%
Next

If iLT2% <= Len(sT2$) Then sR$ = sR$ & Mid(sT2$, iLT2%)

For i = 1 To Len(sR$)
JoinT = JoinT & Mid(sR$, i, 1) & " "
Next
JoinT = Trim(JoinT)
End Function


1- کدی میخوام که دوتا دوتا حروف را با هم امتزاج دهدPrivate Sub Command1_Click()
Text3 = JoinT(Text1, Text2, 2, 2)
End Sub



2- کدی میخوام که حروف را چهارتا یکی با هم امتزاج دهدPrivate Sub Command1_Click()
Text3 = JoinT(Text1, Text2, 4, 1)
End Sub


موفق باشید

[Hassan2500]

آقای واژدی هر کاری کردم کد کار نمیکنه فکر کنم تکست3 رو نگذاشتید که جواب توش نشون داده بشه

[محسن واژدی]

آقای واژدی هر کاری کردم کد کار نمیکنه فکر کنم تکست3 رو نگذاشتید که جواب توش نشون داده بشه
با عرض پوزش، دوباره پست قبلی بررسی کنید

موفق باشید