حذف چند کلمه بعد از پیدا کردن نقطه در textbox

سلام
من می خواستم یک برنامه بنویسیم که یک سری اطلاعات توشpast بشه و وقتی یک دکمه رو میزنم یک سری اطلاعات که بعد از علامت نقطه هست حذف بشه یعنی

this is magic.this is my name
بعد از رسیدن به نقطه this is my name رو حذف کنه

طول رشته متغییر است
و تنها راه شناسایی رسیدن به علامت نقطه است
متشکر

از Split استفاده کنید.Delimiter رو هم نقطه انتخاب کنید.

Private Sub Command1_Click()

Dim TestArray() As String

TestArray() = Split(Text1, ".")

MsgBox TestArray(0)

End Sub

سلام

Text1 = Mid$(Text1, Instr(Text1, ".") + 1)

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

s = Text1.SelText

Text1.Text = s

End Sub(

نقل قول:

---

نوشته شده توسط nader.golab

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

s = Text1.SelText

Text1.Text = s

End Sub(

---

مطمئنی دوست عزیز ؟!!!!

نقل قول:

---

نوشته شده توسط dr.pantagon

سلام
من می خواستم یک برنامه بنویسیم که یک سری اطلاعات توشpast بشه و وقتی یک دکمه رو میزنم یک سری اطلاعات که بعد از علامت نقطه هست حذف بشه یعنی

this is magic.this is my name
بعد از رسیدن به نقطه this is my name رو حذف کنه

طول رشته متغییر است
و تنها راه شناسایی رسیدن به علامت نقطه است
متشکر

---

با اجازه از شما می خواستم سوالم رو اینجا بپرسم
چطور میشه یک کلمه را در یک متن چندین سطری جستجو کرد.
منتظرم

نقل قول:

---

نوشته شده توسط relax_cp

با اجازه از شما می خواستم سوالم رو اینجا بپرسم
چطور میشه یک کلمه را در یک متن چندین سطری جستجو کرد.
منتظرم

---

با همون تابع Instr كه بالاتر هم نوشته شده.