امتزاج حروف

[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 رو نگذاشتید که جواب توش نشون داده بشه

با عرض پوزش، دوباره پست قبلی بررسی کنید

موفق باشید