جستجو در textbox

[shahramlotfi]

یه textbox دارم توش یه سری اسم هست
میخوام اسامی که آخرش reza داره برام جدا کنه
mohamdreza abbas mina alireza zahra amirreza akbar maryam mohamad

mohamadreza
alireza
amirreza

[SlowCode]

Dim strNames As String, Names() As String, Found() As String

strNames = "mohamdreza abbas mina alireza zahra amirreza akbar maryam mohamad"
Names = Split(strNames, " ")
Found = Filter(Names, "reza")

For i = 0 To UBound(Found)
MsgBox Found(i)
Next

Erase Names 'Baraye azad kardane hafeze


تو خط 5 از Filter استفاده کردم. این تابع میاد یه مقدار رو تو یه ارایه جستجو میکنه و آیتم های پیدا شده رو در قالب یه آرایه برگشت میده.
تو خط آخر هم واسه آزاد کردن حافظه مصرف شده توسط آرایه Names اونو خالی میکنیم. اگه نخواستی میتونی حذفش کنی.

کد رو به این صورت هم میشه نوشت:

Dim strNames As String, Found() As String

strNames = "mohamdreza abbas mina alireza zahra amirreza akbar maryam mohamad"
Found = Filter(Split(strNames, " "), "reza")

For i = 0 To UBound(Found)
MsgBox Found(i)
Next


البته همش رو میشه تو یه خط هم نوشت:لبخند::
Found = Filter(Split("mohamdreza abbas mina alireza zahra amirreza akbar maryam mohamad", " "), "reza")