Discussion :

[strat0]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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).

[omen999]

bonjour,
remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[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...

[omen999]

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

[strat0]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[omen999]

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

oui mais c'est tricher