حذف کردن

[hr0694]

سلام

کدی رو میخام که عدد آخر تکست1 بهمراه علامت "|" رو حذف کنه

مثال
تکست1: 12|5|6|8
تکست1: 12|5|6
یا
تکست1: 15|8|9|25
تکست1: 15|8|9

[محسن واژدی]

سلام
کد زیر را ببینید:

Private Sub Command1_Click()
Text1 = Left(Text1, InStrRev(Text1, "|") - 1)
End Sub


موفق باشید