Je dois réaliser une appli qui télécharge à distance des pages en jap, anglais, hébreu, russe dans des charset donc très divers et enregistrer le résultat de ces pages sur le disque de mon serveur en UTF-8.
J'ai cherché un peu sur le web et on parle de la méthode adodb.stream qui permet de changer l'encodage.
Code :
- <%@ language=vbscript enablesessionstate=false
- CodePage=65001%>
- <%
- sFile = server.mappath("canon.htm" )
- sFile2 = server.mappath("canon2.htm" )
- sURL = "http://www.canon.ru/"
- 'Récupération de la page
- Set objXMLHTTP = server.CreateObject("MSXML2.serverXMLHTTP" )
- objXMLHTTP.Open "GET", sURL, False
- objXMLHTTP.Send
- 'Ecriture du fichier 1 en binaire sans modif qui reste en cyrillique
- set fichier1 = server.CreateObject("ADODB.Stream" )
- fichier1.type = 1
- fichier1.open
- fichier1.write objXMLHTTP.responseBody
- fichier1.savetofile sFile, 2
- fichier1.close
- set fichier1 = nothing
- 'Ecriture du fichier 2 mais en précisant le charset UTF-8
- Set fichier2 = server.CreateObject("ADODB.Stream" )
- fichier2.Open
- fichier2.LoadFromFile sfile
- fichier2.Charset = "UTF-8"
- fichier2.SaveToFile sFile2, 2
- fichier2.Close
- set fichier2 = nothing
- %>
|
Je pensais que celà allait traduire le fichier 2 en UTF-8 alors qu'à premiere vue, il n y a que les entetes qui sont modifié et celà reste un fichier cyrillique au lieu d etre un UTF-8
Message édité par InterSQL le 01-03-2004 à 00:10:33
