PDA

View Full Version : سوال: بدست اوردن لینک های یک div


علیرضا.ا
دوشنبه 11 شهریور 1392, 00:01 صبح
سلام

چجوری میتونم لینک های یکdiv خاص رو بدیت بیارم؟!-مشخص شده با class
mmssoft
دوشنبه 11 شهریور 1392, 02:29 صبح
می تونید از ترکیب توابع for و mid و len استفاده کنید... البته از instr هم میشه استفاده کرد...
علیرضا.ا
دوشنبه 11 شهریور 1392, 13:04 عصر
خب این به شرطی هست که اول و اخر اون لینک رو بدونیم

ولی لینک ها همه به یه صورت هستن-اول و اخر مشابهی دارن
مهرداد صفا
دوشنبه 11 شهریور 1392, 22:13 عصر
با سلام.
از متود GetElementsByTagName استفاده کنید.
علیرضا.ا
سه شنبه 12 شهریور 1392, 00:14 صبح
اون وقت اگه توی صفحه چند تا تگ مثلا 4-5 تا UL داشتیم چی؟:متفکر:
مهرداد صفا
سه شنبه 12 شهریور 1392, 08:25 صبح
اون وقت اگه توی صفحه چند تا تگ مثلا 4-5 تا UL داشتیم چی؟:متفکر:

براحتی هرجا تگ خاصی را با ID خواستید از GetElementsByID استفاده کنید و هر جا خواستید همه مثلا لینکها را بگیری از GetElementsByTagName استفاده کنید و با اندیس آیتم مورد نظر، به آن دسترسی داشته باشید.
تقریبا به این صورت:

'....
...
'برای گرفتن ششمین لینک موجود در دومین div
MyLink=WebBrowser.Document.GetElementsByTagName("div")(2).GetElementByTagName("a")(6)
SlowCode
سه شنبه 12 شهریور 1392, 09:24 صبح
روش بدست آوردن لینک ها اینه:

For Each a In WebBrowser1.Document.links
List1.AddItem a.href
Next

حالا شما واسه پیدا کردن لینکهای داخل یه دیو باید اول اونو با getElementsbyClassName پیدا کنی و بعد یه متغیر از نوع Object درست میکنی و به اون نسبت میدی، بعد خط اول رو به اینصورت بنویسی:
For Each a In div
علیرضا.ا
سه شنبه 12 شهریور 1392, 21:01 عصر
هر دو روش رو رفتم
روش دوم رو با این کد رفتم:

Dim div As Object
Dim a As Variant
Private Sub Command1_Click()
WebBrowser1.Navigate ("http://rozblog.com/")
div = WebBrowser1.Document.getElementsbyClassName("update")
For Each a In div
List1.AddItem a.href
Next
End Sub

روش اول و روش دوم هر دو در این قسمت ارور میدن:
WebBrowser1.Document.getElementsbyClassName("update")