enregistrer le code html d'une page webRésolu

Question

Salut,
mon problème c'est que je veux enregister le code html  d'une page web dans un repertoir par exemple(d:\production\)(ce code html est récupéré dans une variable src),le programme ci dessous montre cette récupération et il me manque cet enregistrement sous une extension (page1.html):

Function SavePageHtml(url As String, chemin As String, ext As String) As String 'ext :c'est 


    HTMLFileIn = url
    WebBrowser1.Navigate HTMLFileIn
    DoEvents
    src = WebBrowser1.Document.documentElement.outerHTML
    DoEvents
    
End Function

Merci d'avance.

cs_casy · Accepted Answer

numfile =  FreeFile
Open"d:\production\page1.html" For  Output As #numfile
Put #numfile, , src
Close #numfile





---- Sevyc64  (alias Casy) ----<hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

cs_casy · Answer

Oupps désolé, en mode Output, il faut utiliser l'instruction Print

Remplace "Put #numfile, , src" par "Print #numfile, src"

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

PCPT · Answer

salut,
c'est pas tout de naviguer, encore faut-il attendre le chargement complet de la page, ce qui n'est pas le cas avec juste 2 doevents
il faut écrire dans l'évènement DocumentComplete (ou qqc du genre)

++
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp

Enregistrer le code html d'une page web

3 réponses

Votre réponse