حروف مشترک

[hr0694]

سلام
برنامه ای را میخواهم که 3تا تکست روی فرم داریم بدون هیچ دکمه کامندی و میخواهم اگر حروف داخل تکست1 در داخل تکست2 موجود بودند آن حروفی که موجود هستند در داخل تکست3 نوشته شوند

مثال
تکست1: ا ج ت ن ج
تکست2: د ا ل ج
تکست3: ا ج ج

[محسن واژدی]

سلام علیکم
از تابع Instr برای بررسی موجودیت کاراکترها موجود در TextBoxها استفاده کنید
در صورتیکه یکی از کاراکترهای در textbox دیگری وجود داشت آن را به textbox3 بیافزائید

موفق باشید

[hr0694]

دوست عزیز من در برنامه نویسی مبتدی هستم اگر میشود سورس این برنامه را که خواسته ام برام قرار دهید ممنون میشوم

[محسن واژدی]

سه تا textbox با نام های Text1,Text2,Text3 را بر روی فرم قرار داده سپس دستور زیر را در فرم کپی کنید:

Private Sub Text1_Change()
Dim t$, i
Text3 = ""
For i = 1 To Len(Text1)
If InStr(1, Text2, Mid(Text1, i, 1)) > 0 And InStr(1, Text3, Mid(Text1, i, 1)) = 0 Then
Text3 = Text3 & Mid(Text1, i, 1)
End If
Next i
End Sub



موفق باشید

[hr0694]

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

مثلا در تکست3 دوبار حرف ج نوشته شده چون دوبار در تکست1 آمده

[محسن واژدی]

برای اینکار تابع "InStr(1, Text3, Mid(Text1, i, 1))" را از شرط خارج کنید

[hr0694]

دستتان درد نکند مشکلم با پاک کردن آن قسمت که گفتید حل شد