L'écriture de texte vers le fichier UTF8

Je suis à l'aide de la fonction suivante pour enregistrer le texte dans un fichier (sur IE-8 w/ActiveX).

function saveFile(strFullPath, strContent)
{
    var fso = new ActiveXObject( "Scripting.FileSystemObject" );

    var flOutput = fso.CreateTextFile( strFullPath, true ); //true for overwrite
    flOutput.Write( strContent );
    flOutput.Close();
}

Le code fonctionne très bien si le texte est entièrement en Latin-9, mais lorsque le texte contient même un seul codé en UTF-8 du caractère, de l'écriture échoue.

L'ActiveX FileSystemObject ne supporte pas l'UTF-8, il me semble. J'ai essayé le codage UTF-16 d'abord le texte, mais le résultat a été déformé. Qu'est ce qu'une solution de contournement?

merci beaucoup les gars. a été en mesure de résoudre code.google.com/p/memonaut/issues/detail?id=6&can=7 avec votre aide.

OriginalL'auteur sonofdelphi | 2010-05-15

  1. 5

    Essayez ceci:

    function saveFile(strFullPath, strContent) {
 var fso = new ActiveXObject("Scripting.FileSystemObject");
 var utf8Enc = new ActiveXObject("Utf8Lib.Utf8Enc");
 var flOutput = fso.CreateTextFile(strFullPath, true); //true for overwrite
 flOutput.BinaryWrite(utf8Enc.UnicodeToUtf8(strContent));
 flOutput.Close();
}
    Utf8Lib hors de l'air mince? Il n'est pas installé dans notre société.
    Il n'y a pas de BinaryWrite méthode dans ITextStream objet retourné par la CreateTextFile méthode, et qu'est-ce que Utf8Lib.Utf8Enc?

    OriginalL'auteur Mathias Bynens

  2. 2

    Ajouter un troisième paramètre, true, dans votre appel à la CreateTextFile méthode. Voir cette page.

    il va enregistrer en UTF-16, et non UTF8

    OriginalL'auteur Salman A

  3. 1

    La CreateTextFile méthode a un troisième paramètre qui décide si le fichier sera écrit unicode ou pas. Vous pouvez faire comme:

    var flOutput = fso.CreateTextFile(strFullPath,true, true);

    Fait intéressant, le chemin du retour, j'avais créé ce petit script pour enregistrer les fichiers au format unicode:

    Set FSO=CreateObject("Scripting.FileSystemObject")
Value = InputBox ("Enter the path of the file you want to save in Unicode format.")

If Len(Trim(Value)) > 0 Then
    If FSO.FileExists(Value) Then
        Set iFile = FSO.OpenTextFile (Value)
        Data = iFile.ReadAll
        iFile.Close

        Set oFile = FSO.CreateTextFile (FSO.GetParentFolderName(Value) & "\Unicode" & GetExtention(Value),True,True)
        oFile.Write Data
        oFile.Close

        If FSO.FileExists (FSO.GetParentFolderName(Value) & "\Unicode" & GetExtention(Value)) Then
            MsgBox "File successfully saved to:" & vbCrLf & vbCrLf &  FSO.GetParentFolderName(Value) & "\Unicode" & GetExtention(Value),vbInformation
        Else
            MsgBox "Unknown error was encountered!",vbCritical
        End If
    Else
        MsgBox "Make sure that you have entered the correct file path.",vbExclamation
    End If
End If

Set iFile = Nothing
Set oFile= Nothing
Set FSO= Nothing

Function GetExtention (Path)
    GetExtention = Right(Path,4)
End Function

    Remarque: C'est le code VBScript, vous devez enregistrer le code dans un fichier, comme unicode.vbs, et une fois que vous double-cliquez sur ce fichier, il sera exécuté.

    Non, ne pas enregistrer en UTF-8.

    OriginalL'auteur Sarfraz

  4. -1
    function saveFile(strFullPath, strContent) {
    var fso = new ActiveXObject( "Scripting.FileSystemObject" );
    var flOutput = fso.CreateTextFile( strFullPath, true, true ); //true for overwrite //true for unicode
    flOutput.Write( strContent );
    flOutput.Close();
}

    object.CreateTextFile(filename[, overwrite[, unicode]])

    OriginalL'auteur Cleverson