Récupérer le code Html dans une variable texte ?

Question

bonjour,

Je cherche &#224; r&#233;cup&#233;rer le code html d'une pa ge web dans une variable texte pour pouvoir l'exploiter ensuite.
voici mon code l'erreur apparait &#224; la derni&#232;re ligne ????

Sub RecupHtml()


'code pour r&#233;cup&#233;rer le code Html d'un page web dans une variable texte
            Dim CodeHtml As String
            Dim i As Integer
            Dim IE As InternetExplorer
            Dim PageHtml As HTMLDocument
            Dim Helem As IHTMLElementCollection


Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True   'rend la page visible


IE.navigate "http://fr.search.yahoo.com"
Do Until IE.readyState = READYSTATE_COMPLETE
    DoEvents
Loop 'attend la fin du chargement
            
'recupere le code html de la page  dans codehtml
Set PageHtml = IE.document
CodeHtml = PageHtml.scripts


End Sub

voilhes · Answer

Utiliser un composant Microsoft Internet Transfer que l'on appelera Inet1
Le code HTML est r&#233;cup&#233;r&#233; dans la variable txt

    Dim txt As String
    Dim b() As Byte
    
    On Error GoTo ErrorHandler
    
    
    Command1.Enabled = False
    
    ' This opens the file specified in the URL text box
    b() = Inet1.OpenURL(URL.Text, 1)
    
    txt = ""
    
    For t = 0 To UBound(b) - 1
        txt = txt + Chr(b(t))
    Next
    
    
    
    Exit Sub
    
ErrorHandler:


    MsgBox "The document you requested could not be found.", vbCritical


    Exit Sub

-Francis-

econs · Answer

ou bien comme ceci :





Un contr&#244;le Webbrowser, un contr&#244;le TextBox, un contr&#244;le CommandButton, et voil&#224; :



======================================


Dim docHTML As HTMLDocument 'R&#233;f&#233;rence &#224; charger : Microsoft HTML Object Library





Private Sub Command1_Click()


    Set docHTML = WebBrowser1.Document

    Text1.Text = docHTML.documentElement.innerHTML


End Sub



Private Sub Form_Load()

    WebBrowser1.Navigate2 "
http://fr.search.yahoo.com
" ' Composant &#224; charger : Microsoft Internet Controls

End Sub



========================



Et n'oublie pas de charger le composant et la r&#233;f&#233;rence indiqu&#233;s !!


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

thethor · Answer

merci Manu, je me suis inspir&#233; de ton code . Le probl&#232;me c'est que le code Html ne correspond pas &#224; la page affich&#233;e !? (je l'ai ouverte avec Dreamweaver simultan&#233;ment !!) Sais-tu d'ou cela peut venir ?

Sub test()
        Dim docHTML As HTMLDocument
        Dim IE As InternetExplorer
        Dim PageHtml As String
        
        Set IE = CreateObject("InternetExplorer.Application")
        IE.Visible = True
        IE.navigate "http://www.dvdfr.com/search/search.php?multiname=didier&x=8&y=7"
        Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
        Loop 'attend la fin du chargement
    Set docHTML = IE.document
   PageHtml = docHTML.documentElement.innerHTML


End Sub

thethor · Answer

Pr&#233;cision......

Je viens de parcourir le code Html de cette page. En fait ce n'est que la fin du code que je r&#233;cup&#232;re ! C'est donc la bonne page (pardon pour l'erreur). Y a-t-il une limite au contenue d'une variable text dans VB6 ?
Comment r&#233;soudre se probl&#232;me ?

Récupérer le code Html dans une variable texte ?

4 réponses

Discussions similaires