امتیاز موضوع:
  • 1 رأی - میانگین امتیازات: 2
  • 1
  • 2
  • 3
  • 4
  • 5
پيدا كردن تصاوير در يك صفحه اينترنتي
نویسنده پیام
CRazYFULL غایب
مدیر بازنشسته
*****

ارسال‌ها: 792
موضوع‌ها: 27
تاریخ عضویت: تير ۱۳۸۵

تشکرها : 1546
( 2836 تشکر در 593 ارسال )
ارسال: #2
RE: پيدا كردن تصاوير در يك صفحه اينترنتي
نوشتنش از توضيح دادنش کمتر نياز به تايپ داشت

کد:
Private Sub Command1_Click()
Dim strLinks() As String, I As Long
Call LinKSpliter(HDMLData, strLinks)

For I = 1 To UBound(strLinks)
List1.AddItem strLinks(I)
Next

End Sub

Public Function LinKSpliter(ByVal DATA As String, ByRef strList() As String)
Dim Link As String, I As Integer, AvalLnk As String, AkharLnk As String
AvalLink = "<a target=1 href="""
Akhar = """"

    Do While InStr(DATA, AvalLink) > 0
        Link = "http://irimo.ir" & Split(Split(DATA, AvalLink)(1), Akhar)(0)
        I = I + 1
        ReDim Preserve strList(I)
        strList(I) = Link
        'List.AddItem Link
        '=========
        DATA = Right(DATA, Len(DATA) - InStr(DATA, AvalLink))
      DoEvents
    Loop
End Function
۰۹-مرداد-۱۳۸۹, ۱۷:۲۲:۲۳
ارسال‌ها
پاسخ
تشکر شده توسط : saeedvir, hamed_Arfaee, civilmans


پیام‌های داخل این موضوع
پيدا كردن تصاوير در يك صفحه اينترنتي - توسط saeedvir - ۰۹-مرداد-۱۳۸۹, ۱۵:۳۳:۰۰,
RE: پيدا كردن تصاوير در يك صفحه اينترنتي - توسط CRazYFULL - ۰۹-مرداد-۱۳۸۹, ۱۷:۲۲:۲۳
RE: پيدا كردن تصاوير در يك صفحه اينترنتي - توسط saeedvir - ۰۹-مرداد-۱۳۸۹, ۱۷:۳۲:۱۵,
RE: پيدا كردن تصاوير در يك صفحه اينترنتي - توسط CRazYFULL - ۰۹-مرداد-۱۳۸۹, ۲۱:۴۷:۴۳,

موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  كپي كردن فايل toopdanlod 6 7,412 ۰۸-آبان-۱۳۹۵, ۱۱:۱۲:۴۵
آخرین ارسال: za215487
  معادل کلید Enter صفحه کلید sepahbod 2 2,926 ۲۴-اسفند-۱۳۹۲, ۱۰:۲۵:۳۲
آخرین ارسال: tiktak990
Question دستور حذف كردن فايل ها در وبي ΛΛ Θ l-l $ Σ Ω 14 11,340 ۱۱-خرداد-۱۳۹۲, ۲۳:۳۱:۳۷
آخرین ارسال: ترانسپورتر
  مشکل در رجيستر كردن كامپوننت aleas 0 2,236 ۲۵-فروردین-۱۳۹۲, ۰۰:۴۷:۳۷
آخرین ارسال: aleas
Question سوال درباره چگونگي سرچ كردن در ديتابيس PRO 17 11,943 ۰۸-شهریور-۱۳۹۱, ۱۹:۵۲:۲۷
آخرین ارسال: PRO
  برنامه ضبط صفحه کلید(جاسوس) RAMA2009 3 4,653 ۳۱-مرداد-۱۳۹۱, ۰۵:۱۵:۵۴
آخرین ارسال: raha290
  تشخیص وضعیت زبان جاری صفحه کلید RAMA2009 7 6,910 ۰۲-بهمن-۱۳۹۰, ۱۳:۱۱:۱۴
آخرین ارسال: RAMA2009
  نمایش سایز صفحه نمایش بر حسب اینچ aleas 0 2,299 ۱۶-آذر-۱۳۹۰, ۰۰:۰۲:۰۳
آخرین ارسال: aleas
Question [سوال] ضميمه كردن فونت با برنامه Hamidreza95 1 3,038 ۰۲-مهر-۱۳۹۰, ۲۰:۱۱:۱۱
آخرین ارسال: Di Di
Question [سوال] امكان auto number كردن يك فيلد در ديتابيس هاي vb6 hamed_Arfaee 3 5,613 ۰۲-مهر-۱۳۹۰, ۱۲:۴۲:۱۹
آخرین ارسال: hamed_Arfaee

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 1 مهمان

صفحه‌ی تماس | IranVig | بازگشت به بالا | | بایگانی | پیوند سایتی RSS