MSHTML: CreateDocumentFromString au lieu de CreateDocumentFromUrl

Question

Je voudrais utiliser la bibliothèque MSHTML pour analyser du code HTML que j'ai dans une variable de chaîne. Cependant, je ne peux pas comprendre comment faire cela. Je peux facilement analyser le contenu d'une page Web avec une URL connue, mais pas directement avec le code source HTML. Est-ce possible? Si c'est le cas, comment?

Public Sub ParseHTML(sHTML As String) 
Dim oHTML As New HTMLDocument, oDoc As HTMLDocument 

    'This works:' 
    Set oDoc = oHTML.createDocumentFromUrl("http://www.google.com", "") 

    'I would like to do the following but no such method actually exists:' 
    Set oDoc = oHTML.createDocumentFromString(sHTML) 

    .... 
    'Parse the HTML using the oDoc variable' 
    .... 

Answer 1

Vous pouvez;

Dim odoc As Object 

Set odoc = CreateObject("htmlfile") '// late binding 

'// or: 
'// Set odoc = New HTMLDocument 
'// for early binding 

odoc.open 
odoc.write "<p> In his house at R'lyeh, dead <b>Cthulhu</b> waits dreaming</p>" 
odoc.Close 
MsgBox odoc.body.outerHTML 

Answer 2

Ceci est un bien meilleur exemple. Vous ne recevrez pas d'exception nulle, ni de liaison tardive.

(Et si vous utilisez WPF, il suffit d'ajouter System.Windows.Forms dans votre référence.)

Dim a As Object 
     a = New mshtml.HTMLDocument 

     a.open() 
     a.writeln(code) 
     a.close() 

     Do Until a.readyState = "complete" 
      System.Windows.Forms.Application.DoEvents() 
     Loop 


     Dim doc As mshtml.HTMLDocument = a 



     Dim b As mshtml.HTMLSelectElement = doc.getElementsByTagName("Select").item("lang", 0) 

Answer 3

Pour le code HTML directement comme Access-Rich-Text ce fait il:

Dim HTMLDoc As New HTMLDocument 

HTMLDoc.Body.innerHTML = strHTMLText