Bonjour ,

Je vous explique mon problème , suite à une demande d'optimisation d'un site web je doit écrire un programme qui execute une page .asp (contenant des flux) et enregistrer le code HTML qui ressort de cette execution. Ce qui après me permettra d'appeler cette page HTML sans avoir à générer les flux à chaque demande.

J'ai un petit soucis dans mon programme je vous explique , j'ai récupéré un programme qui à partir d'une URL récupère le code source correspondant et l'affiche dans une text box.
Or je souhaiterai également enregistrer la source dans un fichier html je ne sais pas si cette opération est réalisable , si oui pourriez-vous m'aider ?

Merci.

salut,

ok tout çà pour dire : comment enregistrer ma textbox dans un fichier.html....

moteur?
http://www.codyx.org/recherche.aspx?r=fichier

---

Prenez un instant pour répondre à ce sondage svp

En effet au final tout ça pour dire "comment enregistrer ma textbox dans un fichier.html" ^^ , j'ai préféré en dire trop que pas assez .

Merci pour vos réponses rapides.

Salut,

Ne pas oublier le/les réponses si elle ont résolues ton problème...

A+
Exploreur

 Linux a un noyau, Windows un pépin

Bonjours ,

Avant tout merci pour votre aide , j'aurais une autre question .

Donc mon prgramme fonctionne correctement il récupère bien le code source d'une page web et le transfert dans un autre .html.

Or mon programme doit fonctionner sur une page local et là il y a un soucis. (pour être sur d'être compris voici un exemple , si je tape en URL [ Lien ] aucun soucis or si je tape C:\Test.html il ne me retourne aucune source .Voici le code que j'utilise .

Function takesource( ByVal URL As String ) As String

Dim hOpen As Integer

Dim hOpenUrl As Integer

Dim bDoLoop As Boolean

Dim bRet As Boolean

Dim sReadBuffer As New VB6.FixedLengthString(2048)

Dim lNumberOfBytesRead As Integer

Dim sBuffer As String

hOpen = InternetOpen(

"VB OpenUrl" , 0, vbNullString, vbNullString, 0)

hOpenUrl = InternetOpenUrl(hOpen, URL, vbNullString, 0, &H80000000, 0)

bDoLoop =

True

While bDoLoop

sReadBuffer.Value = vbNullString

bRet = InternetReadFile(hOpenUrl, sReadBuffer.Value, Len(sReadBuffer.Value), lNumberOfBytesRead)

sBuffer = sBuffer & VB.Left(sReadBuffer.Value, lNumberOfBytesRead)

If Not CBool (lNumberOfBytesRead) Then bDoLoop = False

End While

takesource = sBuffer

If hOpenUrl <> 0 Then InternetCloseHandle(hOpenUrl)

If hOpen <> 0 Then InternetCloseHandle(hOpen)

End Function

Merci , d'avance.