حدف مورد های موجود در تکست از لیست باکس

[javadt]

سلام
من یک لیست باکس دارم که توش یک تعداد آدرس سایت هست به این صورت

http://site.com/
یک فایل تکست دارم که آدرساش به این صورت هست

http://site.com/page2
حالا من باید با لود کردن فایل تکست آدرس ها رو از لیست باکس چک کنم که اگر وجود داشت حذفش کنه
من خودم این کد رو نوشت ولی دوتا مشکل داره
1- خط به خط فایل تکست رو چک نمی کنه
For i = 0 To List1.ListIndex - 1
List1.ListIndex = i
sr = InStr(1, List1.Text, Text1.Text, 1)
If sr > 0 Then List1.RemoveItem i
i = 0
Next i
با تشکر

[parselearn]

http://barnamenevis.org/forum/showthread.php?t=188052



For i = 0 To List1.ListCount - 1
List1.ListIndex = i
sr = InStr(1, List1.Text, Text1.Text, 1)
If sr > 0 Then List1.RemoveItem i
i = 0
Next i