مشکل در حذف ایتم های لینک باکس

[ma300d]

با سلام و خسته نباشید به دوستان عزیزو گرامی


من در لیست باکسم یه سری سایت رو از گوگل سرچ میکنم و دریافت میکنم

و حالا کاری که میخوام بکنم اینه »

یه سری سایت فقط توی لیست باکسم اضافه بشه

یعنی لیست باکسم تحت فرمت به نوع سایت باشه

مثلا http://www.user.yahoo.com (http://www.user.yahoo.com/)

عبارت یوزر ممکنه هر چیزی باشه اما yahoo.com. ثابته

http://www.user.yahoo.com (http://www.user.yahoo.com/)
http://www.ali.yahoo.com (http://www.ali.yahoo.com/)
http://www.reza.yahoo.com (http://www.reza.yahoo.com/)

فقط اینجور سایت ها رو اضافه کنه

واگر غیر این فرمت بود از لیست پاکش کنه

پس منظورم اینه که میخوام سایت هایی اضافه بشه که با این فرمت هست
http://www.xxx.yahoo.com (http://www.xxx.yahoo.com/)

و xxx هم ممکنه هر اسمی باشه ودیگه هییچ گونه سایت دیگه ای رو اضافه نکنه فقط با این فرمت

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

بعد ایتم های دیگه هم که مثلا اینجوری بود اضافه نشه
http://www.yahoo.com/19980 (http://www.xxx.yahoo.com/)
http://www.yahoo.com (http://www.xxx.yahoo.com/)
http://www.yahoo.com/asdfrew (http://www.xxx.yahoo.com/)
-------------------------------------

خلاصه بگم فقط ساب دامین ها باشن بقیه از لیست پاک شن

لطفا راهنمایی کنید خیلی کارم گیره ممنون میشم مثال بزنید تشکر

[modirmasool]

میتونین به صورت زیر از left و right استفاده کنین.

If Right("http://www.xxx.yahoo.com", 10) = ".yahoo.com" And Left("http://www.xxx.yahoo.com", 11) = "http://www." Then
دستورات لازم...

End If

[ma300d]

میتونین به صورت زیر از left و right استفاده کنین.

If Right("http://www.xxx.yahoo.com", 10) = ".yahoo.com" And Left("http://www.xxx.yahoo.com", 11) = "http://www." Then
دستورات لازم...

End If

ممنون اما نشد!

[parselearn]

ممنون اما نشد!
كد درسته!؟



s = LCase("http://www.xxx.yahoo.com")
If Right(s, 10) = ".yahoo.com" And Left(s, 11) = "http://www." Then
MsgBox "OK"
End If

s = LCase("http://www.yahoo.com/19980")
If Right(s, 10) = ".yahoo.com" And Left(s, 11) = "http://www." Then
MsgBox "OK"
End If

[ma300d]

من که نمیدونم بعد
yahoo.com چی نوشته اون نمونه بود میتونست هر عدد دیگه باشه

[parselearn]

شما بايد ليست بخونيد و مقايسه كنيد!!!


For i = 0 To List1.ListCount - 1
s = LCase(List1.List(i))
If Right(s, 10) = ".yahoo.com" And Left(s, 11) = "http://www." Then
List2.AddItem List1.List(i)
Else

End If
Next i

[modirmasool]

من که نمیدونم بعد
yahoo.com چی نوشته اون نمونه بود میتونست هر عدد دیگه باشه

متوجه نمیشم منظورتون چیه؟
راستی چیزی که جناب parselearn نوشتن کامله کامله چون دیگه مشکلی با بزرگ و کوچیکی حروف پیش نمیاد.