Parser du texte HTML avec mshtml

Signaler
Messages postés
17
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
1 mars 2007
-
Messages postés
30
Date d'inscription
dimanche 10 décembre 2006
Statut
Membre
Dernière intervention
15 avril 2008
-
Tout est dans le sujet.

Quelqu'un peut t'il me proposer en quelques lignes un bout de code pour parser du HTML avec la classe MSHTML.

Merci d'avance.

2 réponses

Messages postés
1447
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
23 septembre 2007
2
Ca ne veut rien dire ! Explique toi mieux !

Redman
Messages postés
30
Date d'inscription
dimanche 10 décembre 2006
Statut
Membre
Dernière intervention
15 avril 2008

désolé One Hacker c'est toi qui comprend rien.... -_-'

utilise
HTMLDocument
IHTMLDocument2
IHTMLDocument4

voila un exemple

    Dim documentMSHTML As New mshtml.HTMLDocument
    Dim Document2 As mshtml.IHTMLDocument2 = documentMSHTML
    Dim Document4 As mshtml.IHTMLDocument4 = documentMSHTML

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     
        Document2.writeln("<html></html>")
        Document2.close()

        Document2 = Document4.createDocumentFromUrl(txtURL.Text, vbNullString)

        'le temps que sa charge
        'While Document2.readyState <> "complete"        While Document2.readyState "loading" Or Document2.readyState "interactive"
            System.Windows.Forms.Application.DoEvents()
        End While

            'Chope le code source de la page
        'txtSource.Text = Document2.documentElement.outerHTML

        Dim i As Integer

    'chope les links
        For i = 0 To Document2.links.length - 1
             lstLinks.Items.Add(Document2.links.item(i).href.ToString)
       System.Windows.Forms.Application.DoEvents()
        'Next
'chope les urls des images embedded
        For i = 0 To Document2.images.length - 1
            ListBox1.Items.Add(Document2.images.item(i).href.ToString)
        Next

        lbl_Status.Text = "Done"

    End Sub