DOM - доступ к нестандартным тэгам

[Alexanbar]

Предположим, есть тэг ххх с поараметрами:

<xxx y="abc" z="ddd" >

Нужно определить параметры y и z. Пока мне известен способ, не связанный с DOM, а связанный с использованием ф-ций обрабтки строк.

[GSerg]

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

Option Explicit

Private Sub Form_Load()
  Dim c As HTMLDocument, d As IHTMLDocument2
 
  Set c = New HTMLDocument
  Set d = c.createDocumentFromUrl("c:\1.htm", "null")
 
  Do Until StrComp(d.readyState, "complete", vbTextCompare) = 0
    DoEvents
  Loop
 
  With d.All.tags("xxx")(0)
    MsgBox .getAttribute("y")
    MsgBox .getAttribute("z")
  End With
End Sub

[Alexanbar]

Понял свою ошибку. Нужно писать

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

DHTMLEdit1.DOM.All.tags("card")(0).Title

вместо

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

DHTMLEdit1.DOM.All.tags("card").Title

[GSerg]

Да, если речь о первом тэге card.
tags возвращает коллекцию.