web sorgusu "rel" değeri

[acar6783]

Kolay gelsin,

Web sayfasında id,inertext,classname bilgileri alabilmeme rağmen,
ekte görünen "rel" değeri ile ilgili bir bilgi çekemiyorum. Kodlara ne eklemem gerekir bu konuda?

Ek olarak span değeri?

For Each b In IE.document.getElementsByclassName("csc-rospan")
'b.Click
ss = ss + 1
Cells(ss, "G") = b.innertext
Cells(ss, "H") = b.ID
Cells(ss, "I") = b.rel
  Next

 

[Asri]

Tüm sayfa kodunu göremedim ancak, aşağıdaki fonksiyon ile metni parçalayıp alabilirsiniz.

Sub metnial()
veri = oHTML.body.innerHTML
reldegeri=  bilgial(veri,"rel=",">")
End Sub

Function bilgial(veristr, arananstr, sonkarakterstr) As String
    basla = InStr(veristr, arananstr)
    If basla > 0 Then
       veristr = Mid(veristr, basla + Len(arananstr), Len(veristr))
       bilgial = Mid(veristr, 1, InStr(veristr, sonkarakterstr) - 1)
    End If
End Function

 

[acar6783]

Teşekkürler sayın @asri ,
Bu şekilde sanırım koşul vermesi biraz zor olacak.
For Each b In IE.document.getElementsByclassName("csc-rospan")

buradan sonra koşul vermeyi planlıyordum. eğer rel değeri şu ise vs.
yani döngü içerisindeki verilerden rel değeri x olan verinin innertextine ihtiyacım var.

Farklı bir yöntem kullanarak çözdüm şimdilik fakat rel değeri üzerinden daha iyi olur diye düşünüyorum