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

[dr.pantagon]

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

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

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

[Babak.Hassanpour]

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


Private Sub Command1_Click()
Dim TestArray() As String
TestArray() = Split(Text1, ".")
MsgBox TestArray(0)
End Sub

[vbhamed]

سلام


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

[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(

[Babak.Hassanpour]

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
s = Text1.SelText
Text1.Text = s
End Sub(

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

[relax_cp]

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

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

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


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

[xxxxx_xxxxx]

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