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

[alishademan]

با سلام به دوستان سوالی داشتم من دو تالیست باکس دارم که در لیست اولی ایمیل ها و لیست دومی خالی است
فرض می گیریم در لیست اول

ali@gmail.com
meysam@yahoo.com
ali@live.com
shademan@gmail.com

حال می خواهیم ایتم هایی که دارای حرف gmail.com@ هست از لیست اول به لیست دوم انتقال پیدا کنند

[parselearn]

از تابع instr استفاده كنيد
http://barnamenevis.org/showthread.php?269116-%D8%AC%D8%B3%D8%AA%D8%AC%D9%88-%D8%AF%D8%B1-%D9%84%DB%8C%D8%B3%D8%AA-%D8%B9%D9%86%D9%88%D8%A7%D9%86%D9%87%D8%A7%DB%8C-%DB%8C%DA%A9-%D9%84%DB%8C%D8%B3%D8%AA-%D8%A8%D8%A7%DA%A9%D8%B3

[alishademan]

دوست عزیز یکم بیشتر توضیح می دید این تاپیک شما معرف کردید هیچ ربطی نداشت یا من فهمیدم لطفا یکم بیشتر توضیح بدید
ممنون می شم
اگر اماکنش هست سورس بزارید

[parselearn]

محتواي شرط رو تغيير بديد ربط پيدا ميكنه


List2.add (List1.list(i))

[alishademan]

دوست عزیز من کلا نفهمیدم و با این که شما گفتید ربطی نداشت حداقا سورس بزارید نمی خواد پروژه بزارید تو همین صفحه سورسش رو قرار بدید کار سختی نیست دوست عزیز
فکر کنم با این اوضاع باید قید این سوال رو بزنم

[parselearn]

For i = 0 To List1.ListCount
If (InStr(1, List1.List(i), Text1.Text)) Then
List2.add (List1.list(i))
End If
Next i

[محسن واژدی]

سلام علیکم
با استفاده از دستور Like میتوانید عمل مقایسه را انجام دهید
نمونه سورس زیر را ببینین

موفق باشید

[alishademan]

داداش دستت درد نکنه ممنونم mohsenvj