[VBScript] Gros probleme avec XMLhttp
Gros probleme avec XMLhttp [VBScript] - ASP - Programmation
Sujets relatifs:
- problème de comptage avec mysql... (résolu)
- [C++] Killer un thread, mais pas comme un gros cochon :o
- Problème de construction de projet sous Delphi 6 Ent
- problème de boucle avec update.........(résolu)
- problème avec WHERE pour récup de données... (résolu)
- Probleme Php&Mysql
- Evenements VBScript
- Probleme Session ASP
- Probleme d'installation d'easyphp
- [php]Probleme de script
Marsh Posté le 09-08-2002 à 09:56:36
je veux faire un petit script vbs qui récupère le code source d'une page html et qui la sauvegarde dans un fichier.
Pour recuperer le code source j'utilise l'objet XMLhttp.
Le probleme survient quand il y a des accents dans le code source:ca sort des caracteres non imprimable (pourtant quand je fais un asc(charAccentué) ca me sort 63 soit ? )
je vous donne le code:
Function writefile()
GetURL = "http://fr.weather.com/weather/local/FRXX0071"
Dim Http
Set Http = CreateObject("Microsoft.XMLhttp" )
Http.Open "GET",GetURL,False
Http.Send
HtmlResult = Http.ResponseText
Set Http = Nothing
set fs=CreateObject("Scripting.FileSystemObject" )
set f=fs.CreateTextFile("weather.txt",true)
'j'extrait juste une ligne a probleme
tab=split(HtmlResult,vbcrlf)
HtmlResult=tab(14)
msgbox(HtmlResult)
f.write(HtmlResult)
f.close
set f=nothing
set fs=nothing
writefile = "Tempfile written"
End Function