Ecrire à caractères chinois un fichier texte à l'aide vbscript

Question

Je suis en train d'écrire des caractères chinois dans un fichier texte à l'aide

Set myFSO = CreateObject("Scripting.FileSystemObject") 
Set outputFile = myFSO.OpenTextFile(getOutputName(Argument, getMsiFileName(Wscript.Arguments)), forWriting, True) 
outputFile.WriteLine(s) 

La s variable contient un caractère chinois que je lis de l'autre fichier. Je fais écho s valeur et je peux voir le s correctement sur l'écran. Toutefois, pour une raison quelconque, le script s'arrête après outputFile.WriteLine(s) sans renvoyer de message d'erreur.

Ai-je raté quelque chose?

Answer 1

Peut-être que cela a quelque chose à voir avec l'encodage de caractères. Essayez d'indiquer directement le format Unicode pour le fichier dans le dernier paramètre de la méthode OpenTextFile:

Const Unicode = -1 
Set outputFile = myFSO.OpenTextFile(getOutputName(Argument, getMsiFileName(Wscript.Arguments)), forWriting, True, Unicode) 

, vous devez également fermer le fichier après avoir écrit lui:

outputFile.Close 

Si cela ne aide, essayez la gestion des erreurs comme AnthonyWJones suggested.

Answer 2

Essayez ceci: -

MsgBox "Writing Line" 
On Error Resume Next 
outputFile.WriteLine s '' # Removed () that shouldn't be there. 
MsgBox "Err " & Err.Number & ": " & Err.Description 
On Error GoTo 0 

Qu'est-ce que vous obtenez?

Answer 3

Les choses avaient changé le long des versions gagnantes. Cela fonctionne sur Win10:

Set outputfile = myFSO.CreateTextFile(filename,True,True) 

Le 3 arg est bool true/false pour unicode/ascii 2. Étonnamment, lors de l'utilisation myFSO.OpenTextFile l'arg est int avec 1 (pas -1) pour unicode 1.

Documentation:

https://msdn.microsoft.com/en-us/library/aa265018(v=vs.60).aspx

https://msdn.microsoft.com/en-us/library/aa265347(v=vs.60).aspx