ايران ويج

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

یک سوالی دارم که به جوابش نیاز فوری دارم ممنون میشم راهنمایی کنید.

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

با split همه http ها یا wwwها رو بگیر بریز تو یه array بعد جداشون کن تو به for بریز تو listbox.

اين همونيه كه ميخواين:
http://www.yrobo.gigfa.com/FINDME.txt

اينطوري استفادش كنين:

Dim aqw() As String
aqw = PatternFinder(SourceSite, chr(34) & "www.(*)" & chr(34))
For i = 0 To UBound(aqw)
If Not aqw(i) = "" Then
If i = 0 Then Text3 = aqw(i) Else Text3 = Text3 & vbCrLf & aqw(i)
Else
Exit For
End If
Next i

لينكها توي TEXT3 قرار ميگيرن!
درضمن هردو فانكشن هم تماما كار خودمه!(عجب افتخاري=)))