اصلاح کد

[Hassan2500]

سلام

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


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

مثال

تکست1: برنامهنویسی
تکست2: ابجد
تکست3: ب..ا.......

[Hassan2500]

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

[مهرداد صفا]

سلام

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


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

مثال

تکست1: برنامهنویسی
تکست2: ابجد
تکست3: ب..ا.......
با سلام
به این صورت بنویسید:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim t$, i
Text3 = ""
For i = 1 To Len(Text1)
If InStr(1, Text2, Mid(Text1, i, 1)) > 0 Then
Text3 = Text3 & Mid(Text1, i, 1)
Else
Text3 = Text3 + "."
End If
Next

موفق باشید.