فیلتر کردن یک عبارت خاص در لیست باکس

[hackershz]

با سلام وخسته نباشید به شما دوستان عزیز
دوستان من یه لیست باکس دارم ویه دکمه وقتی روی دکمه کلیک میکنم
یه سری سایت توی لیست باکس نمایش داده میشه
من میخوام لینک هایی که توی لینک باکس به این صورت هستند حذف شوند
http://www.xxx.com/
a و لینک هایی که به این صورت هستند حذف نشوند
http://xxx.com/

خوب حالا اگه کسی میدوه راهنمایی کنه لطفا :ناراحت:a

[hastyar]

سلام دوست عزیز الان نمی تونم دقیقاٌ کد رو برات بفرستم ولی راهنماییت می کنم
ما می تونیم از کاراکتر ؟بجای یک کاراکتر مجهول و از * به جای بی نهایت کاراکتر مجهول استفاده کنیم فکر کنم باید اینجوری بنویسیhttp://www.؟؟؟.com/ (http://www.؟؟؟.com/) که این پاک بشه و این http://؟؟؟.com/ (http://؟؟؟.com/) و این بمونن در اولین فرصت کدشو برات می فرستم می تونی از تابع like هم استفاده کنی

[parselearn]

در صورتي كه قالب شما ثابت هست مي توني از روش زير استفاده كني



For i = 0 To List1.ListCount - 1
s = Left(List1.List(i), 10) 'MsgBox s
If s = "http://www" Then
List1.RemoveItem (i)
End If
Next i

[hackershz]

در صورتي كه قالب شما ثابت هست مي توني از روش زير استفاده كني
For i = 0 To List1.ListCount - 1 s = Left(List1.List(i), 10) 'MsgBox s If s = "http://www" Then List1.RemoveItem (i) End If Next


منظروتون از s چی هست ؟ چون به به تابع ی s ایراد میگیره

[vbhamed]

سلام



Dim i%, s$

i = 0

Do While i < List1.ListCount

s = LCase$(List1.List(i))

If InStr(s, "http://www") Then
List1.RemoveItem i

Else
i = i + 1

End If

Loop