<a>

[skord]

Как в WebBrowser'е вытащить текст ссылки(между тегами <a> - </a>)?

[Konst_One]

см коллекцию объектов твое загруженного документа
web1.document.body.all
и у тех, что имя тега A выводи куда тебе надо

[skord]

Расскажи подробнее плз, а то я с DOM не умею работать(где про это почитать на русском)

[marvan]

Код: Выделить всё

'References: Microsoft HTML Object Library
'Controls: Microsoft Internet Controls
'добавить на форму WebBrowser с именем Web1

Private Sub Form_Load()
    Dim d As New MSHTML.HTMLDocument
    Dim s As String
    Dim l As Long
    Dim i As Long
   
    Web1.Navigate "www.ya.ru"
    Do
        DoEvents
    Loop While Web1.ReadyState <> READYSTATE_COMPLETE

    Set d = Web1.Document
    l = d.All.length
    For i = 0 To l - 1
        If d.All(i).tagName = "A" Then
            s = s & d.All(i).href & vbCrLf
        End If
    Next
    MsgBox s
End Sub

[Konst_One]

спасибо marvan, а то мне влом было писать - работы навалило и так

[skord]

Это я умею, мне нужно вытащить ТЕКСТ между тегами <a>...</a>, а не URL!

[FaKk2]

skord
http://msdn.microsoft.com/library/defau ... erhtml.asp

[marvan]

попробуй вместо

Код: Выделить всё

s = s & d.All(i).href & vbCrLf

это

Код: Выделить всё

s = s & d.All(i).outerHTML & vbCrLf

или это

Код: Выделить всё

s = s & d.All(i).outerText & vbCrLf

[skord]

2 FAKK2 - Спасибо!
Кто-нить знает какой-нить РУССКО-язычный ресурс по DOM(ибо с English'ом не дружу), а то в последнее время я про него много вопросов задавал...

[skord]

2 marvan
сенкс! я уже разобрался...