پیدا کردن لینک دانلود از طریق سورس سایت؟

[niksalehi]

سلام به همه دوستان و برنامه نویسان گل!
یه سوال داشتم، من سورس سایت رو از طریق inet به دست اوردم، حالا میخوام تمام لینک های دانلود رو که اینطوری هستن رو بزارم توی یه لیستباکس.
چطوری میشه اینکارو کرد؟ میخوام تمام لینک ها برن توی لیستباکس

<div style="float:left;"><a href="DOWNLOAD LINK" rel="nofollow" target="_blank" style="color:green;">Download</a></div>

[محسن واژدی]

سلام علیکم
تابع زیر را در ماژول کد یا فرم قرار بدهید:
Public Sub SourceLinksGunner(sContents$, CResult As Collection)
On Error Resume Next
Dim sHRef$, lQutePos&
Dim lLPos&
'Const sLINK$ = "<a href="""
Const sLINK$ = "href="""
Set CResult = New Collection
Do
lLPos& = InStr(lLPos& + 1, sContents$, sLINK$, vbTextCompare)

If lLPos& > 0 Then
lLPos& = lLPos& + Len(sLINK$)
lQutePos& = InStr(lLPos& + 1, sContents$, """")
sHRef$ = Mid(sContents$, lLPos&, lQutePos& - lLPos&)
If sHRef$ > "" Then
CResult.Add sHRef$
End If
End If
Loop Until lLPos& = 0
End Sub


برای مثال:
Private Sub Command1_Click()
Dim res As New Collection
Dim i
Call SourceLinksGunner(Text1, res)

List1.Clear
For i = 1 To res.Count
List1.AddItem res(i)
Next 'i
End Sub

موفق باشید

[niksalehi]

سلام دوباره خدمت استاد ولژدی
ممنون از ماژولتون، یه سوال دیگه در همین رابطه داشتم.

<a rel="external" href="LINK" target="_blank">
<b> NAME </b>

اگه تو این سورس من بخوام همه ی LINK ها و NAME هارو پیدا کنم چطوری باید انجام بدم؟
کلا اگه یه توضیحی بدین یا یه منبعی یا تاپیکی معرفی کنین ممنون میشم

[محسن واژدی]

سلام علیکم

اگه تو این سورس من بخوام همه ی LINK ها و NAME هارو پیدا کنم چطوری باید انجام بدم؟اگر:
Const sLINK$ = "<a href="""
را با:
Const sLINK$ = "href="""
جایگزین کنیم احتمالا" مشکل برطرف شود، دوباره کد پست دو را بررسی کنین
در مورد نام ها، اگه منظورتان متنی هست که در پست 3 نشان دادین، این تنها یک متن paragraph هست که id/nameیی برای آن تعریف نشده و برای جداسازی پاراگراف ها هم میتوانیم ابتدا تگهای p را یافته سپس رشته مابین تگ شروع و پایان p را جدا کنیم

موفق باشید

[علیرضا.ا]

همچین کدی برای VB.Net هم هست؟
خیلی لازم دارم:افسرده: