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

[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 هم هست؟
خیلی لازم دارم