جلوگیری از تکرار در تکست ها [بایگانی]

xrezax

چهارشنبه 21 تیر 1391, 17:18 عصر

دوستان من یک text1 دارم و یک text2 .

می خوام طوری باشه که اگر کاربر یک نوشته ای در تکست اول نوشت به text2 منتقل بشه و اگر کلمه تکراری نوشت که قبلاً در text2 بود منتقل نشه. ( در صورتی نوشته جا بجا بشه که نوشته جدید باشه. ) این کار را واسه جلوگیری از تکرار می خوام استفاده کنم

the king

چهارشنبه 21 تیر 1391, 17:34 عصر

دوستان من یک text1 دارم و یک text2 .

می خوام طوری باشه که اگر کاربر یک نوشته ای در تکست اول نوشت به text2 منتقل بشه و اگر کلمه تکراری نوشت که قبلاً در text2 بود منتقل نشه. ( در صورتی نوشته جا بجا بشه که نوشته جدید باشه. ) این کار را واسه جلوگیری از تکرار می خوام استفاده کنم

Private Sub Command1_Click()
If InStr(Text2.Text, Text1.Text) = 0 Then
Text2.Text = Text2.Text & " " & Text1.Text
End If
End Sub

ho3ein.3ven

چهارشنبه 21 تیر 1391, 17:34 عصر

سلام . امیدوارم همونجوری باشه که می خوای

89547

xrezax

چهارشنبه 21 تیر 1391, 22:11 عصر

توی تعداد بالا هنگ می کنه

ho3ein.3ven

چهارشنبه 21 تیر 1391, 22:19 عصر

ببینید بازم اروور میده

89561

xrezax

چهارشنبه 21 تیر 1391, 22:29 عصر

کار نمی کنه. قبلی بهتر بود

ho3ein.3ven

چهارشنبه 21 تیر 1391, 22:42 عصر

من که امتحانش کردم هیچ مشکلی نداشت