حذف تعدای کاراکتر

[saeedzx]

با سلام من می خوام چند کارکتر رو حذف کنم

مثلا

salam,khobi

وقتی دکمه حذف می زنم 4 کارکتر از آخر حذف بشه

salam,k

بشه مثل متن بالا

[hamalous]

ازتابع left استفاده کن این دستور از سمت چپ به تعداد دلخواه کاراکتر رو در برمیگیره مثلا :
left("salam,khobi",7) = salam,k
البته با توجه به پروفایل شما فکر نمی کنم منظورتون این باشه اگه منظورتون این نیست لطفا بیشتر توضیح بدین

[saeedzx]

مثال دقیق می زنم ...

text1.text
داخل تکس یک متن هست
از تکس یک مثال 4 کارکتر اون هم از آخر به اول کم کنه بعد بریزه داخل
text2.text

[niksalehi]

اینطوری که من فهمیدم :


Text2 = Right(Text1, 4)

[hamalous]

مثال دقیق می زنم ...

text1.text
داخل تکس یک متن هست
از تکس یک مثال 4 کارکتر اون هم از آخر به اول کم کنه بعد بریزه داخل
text2.text
بفرمائید
Private Sub Command1_Click()
Text2.Text = Replace(Text1.Text, Right(Text1.Text, 4), "")
End Sub
دستور پست 4 ،4 کاراکتر آخر رو نگه میداره و بقیه رو حذف میکنه درست برعکس چیزی که دوستمون خواسته بودند

[vbhamed]

بفرمائید
Private Sub Command1_Click()
Text2.Text = Replace(Text1.Text, Right(Text1.Text, 4), "")
End Sub
دستور پست 4 ،4 کاراکتر آخر رو نگه میداره و بقیه رو حذف میکنه درست برعکس چیزی که دوستمون خواسته بودند

سلام
كد بالا مشكل داره، چون اگر اول يا وسط متن شما دقيقا مشابه 4 كاراكتر آخر وجود داشته باشه با كد شما اونها هم حذف ميشن كه اشتباهه
text2 = Left$(text1, Len(text1) - 4)