Spécifier le format d'encodage d'un fichier de sortie

Version imprimable

Bonjour,

Mes compétences en VBScript sont pour l'instant très limité, et j'ai toutes les difficultés du monde à trouver comment spécifier que je souhaite qu'un fichier soit créé en étant encodé en UTF-8.

Voilà le code (qu'on m'a fourni, mais je n'y comprends rien) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 'Pour pouvoir créer un fichier texte sub CreerTexte(filePath, fileText) dim fileSystem, fileHandle set fileSystem = Createobject("Scripting.FileSystemObject") set fileHandle = fileSystem.createTextFile(filePath, true, 0) fileHandle.write fileText fileHandle.close set fileHandle = nothing set fileSystem = nothing end sub 'Création du fichier XML final CreerTexte (Chemin & "pouetpouet.xml"), DocFinal
Le fichier pouetpouet.xml est systématiquement codé en ANSI et j'ai besoin qu'il le soit en UTF-8.

Merci beaucoup pour toute l'aide que vous pourrez m'apporter (je me doute que c'est tout bête mais les ressources concernant le VBScript sont rares).

29/12/2006, 10h58
omen999

bonjour,
remplacer

Code:

set fileHandle = fileSystem.createTextFile(filePath, true, 0)

par

Code:

set fileHandle = fileSystem.createTextFile(filePath, true, true)

Citation:

les ressources concernant le VBScript sont rares

la doc indispensable de référence est dispo sur le net sous la forme d'un fichier dénommé scd56fr.exe
donc rtfm :mrgreen:
29/12/2006, 11h33
strat0

Bien tenté mais le fichier est enregistré en Unicode, alors que moi j'ai besoin spécifiquement d'UTF-8.

Et si j'en crois la doc que tu m'as conseillé je n'ai le choix qu'entre ASCII ou Unicode par le biais de "true" ou "false" dans CreateTextFile...
29/12/2006, 12h04
omen999

:oops: effectivement createfiletext sort de l'unicode et non pas son encodage utf-8.
j'ai trouvé ici: http://www.codetoad.com/asp_utf8.asp
un exemple d'encodage/décodage utf-8 en vbscript

sinon la vraie solution de geek, c'est d'appeler la fonction WideCharToMultiByte du kernel32
tu trouveras dans les contributions vb6 un exemple de script pour lire le presse-papiers qui utilise la fonction inverse MultiByteToWideChar :mrgreen:

En C# ça m'a pris deux lignes...;)

Code:

1
2
String Contenu = File.ReadAllText(monFichier, Encoding.Default);
File.WriteAllText(monFichier, Contenu, Encoding.UTF8);

29/12/2006, 15h50
omen999

Citation:

En C# ça m'a pris deux lignes...

oui mais c'est tricher :lol: