جدا کردن کلمات مورد نیاز از لیست

[xrezax]

دوستان من یک لیست دارم که توی اون یک سری نوشته هست.
حالا می خوام لیست جستجو بشه و بعد تمام لیست پاک بشه و فقط کلمه هایی بمونن که توشون aseman به کار رفته بمونه.

لیست من اینه
aseman abi ast
reza amadsi
saljskdn
askasj aseman lsk;d
-asakjs-as-aseman
sdjskldjs

می خوام اینجور بشه
aseman abi ast
askasj aseman lsk;d
-asakjs-as-aseman

با تشکر

[SlowCode]

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

For i = 0 To List1.ListCount - 1
If InStr(1, List1.List(i), "mohsen", vbTextCompare) <> 0 Then List2.AddItem List1.List(i)
Next

اگه بخوای فقط از یه لیست استفاده کنی دو راه داری:
1- وقتی مورد ها رو میخونی اگه نتیجه جستجو صفر باشه یعنی اگه چیزی پیدا نشه اون مورد رو حذف کن.
2- تمام موردهای رو که کلمه مورد نظرت توش هست رو بریز توی یه آرایه بعد لیست رو خالی کن و بعد اعضای آرایه رو بریز توی لیست(همونی که خودت خواستی ولی طولانی تره.)

[xrezax]

اگه بخوام براش تعریف کنم که کلمه هایی که توشون mohsen یا reza هست را جدا کن چطور بنویسم کدو.
من اینجوری نوشتمش درسته ؟؟ یه جور جموجورتر هم میشه نوشت ؟؟



For i = 0 To List1.ListCount - 1
If InStr(1, List1.List(i), "1", vbTextCompare) <> 0 Or InStr(1, List1.List(i), "8", vbTextCompare) <> 0 Then List2.AddItem List1.List(i)
Next