View Full Version : سوال: امتزاج حروف
Hassan2500
یک شنبه 07 خرداد 1391, 20:24 عصر
سلام
دوتا کد میخوام
1- کدی میخوام که دوتا دوتا حروف را با هم امتزاج دهد
مثال
تکست1: ا ب ج د ه
تکست2: و ز ح ط ی
بشود
تکست3: ا ب و ز ج د ح ط ه ی
یا
تکست1: ا ب ج د
تکست2: ه و ز ح
تکست3: ا ب ه و ج د ز ح
2- کدی میخوام که حروف را چهارتا یکی با هم امتزاج دهد
مثال
تکست1: ا ب ج د ه و ز ح ط ی
تکست2: ک ل م ن
بشود
تکست3: ا ب ج د ک ه و ز ح ل ط ی م ن
یا
تکست1: ا ب ج د ه و ز ح
تکست2: ط ی
تکست3: ا ب ج د ط ه و ز ح ی
Veteran
یک شنبه 07 خرداد 1391, 20:53 عصر
شما همش سرو کارت با ایناس که !
Hassan2500
یک شنبه 07 خرداد 1391, 20:57 عصر
من برنامه های جفر رو مینویسم و بخاطر همین اینگونه سؤالات رو زیاد میپرسم
just4froum
یک شنبه 07 خرداد 1391, 21:04 عصر
ببین اینو میگم ولی از دستم ناراحت نشو .
بهتر نیست شما به جای این که این چیزای سادرو بپرسی بری و 2ساعت وقت بگذاری و کلشو یاد بگیری ؟:عصبانی++::عصبانی++:
Hassan2500
یک شنبه 07 خرداد 1391, 21:07 عصر
من کارم برنامه نویسی نیست و اصلاً هیچ وقتشم ندارم تا برم یاد بگیرم
Hassan2500
یک شنبه 07 خرداد 1391, 23:58 عصر
کسی نیست پاسخ بده
محسن واژدی
دوشنبه 08 خرداد 1391, 12:48 عصر
سلام علیکم
تابع زیر را در مادول کد یا فرم کپی کنید:
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
دوشنبه 08 خرداد 1391, 20:18 عصر
آقای واژدی هر کاری کردم کد کار نمیکنه فکر کنم تکست3 رو نگذاشتید که جواب توش نشون داده بشه
محسن واژدی
دوشنبه 08 خرداد 1391, 20:41 عصر
آقای واژدی هر کاری کردم کد کار نمیکنه فکر کنم تکست3 رو نگذاشتید که جواب توش نشون داده بشه
با عرض پوزش، دوباره پست قبلی بررسی کنید
موفق باشید
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.