none
Coder en ANSI RRS feed

  • Question

  • Je reprends la question, car elle est mal disposée, je ne sais trop pourquoi ! Et je n'ai pas réussi à la modifier ! Désolé … Bonjour, Je crée un fichier avec ce code : (FichierPropre est le nom complet du fichier, Ligne1 l'information à écrire) Using sw As StreamWriter = File.AppendText(wFicPropre) sw.WriteLine(Me.Ligne1, Encoding.Default) sw.Close() End Using J'utilise ENCODING.DEFAULT, mais je n'arrive pas à coder en ANSI ! Quand je reprends ce fichier, les caractères accentués ne sont pas correctement interprétés (Je ne suis maitre du programme de reprise) J'utilise alors un contournement, en ouvrant ce fichier sous Bloc-Notes, et en utilisant le menu EREGISTRER SOUS pour demander une sortie en ANSI Quand je reprends le fichier, les caractères accentués sont correctement interprétés Question : Comment faire pour écrire directement ce fichier en ANSI ? Cordialement Sauveur CONSALVI Windows 7 Edition Intégrale Version 6.1 n° 7601 Service Pack 1 Microsoft Visual Studio 2008 Version 9.0.21022.8 RTM
    Cordialement Sauveur CONSALVI
    mercredi 7 décembre 2011 19:24

Réponses

  • Bonjour,

    J'ai résolu le problème, du moins en l'état actuel de mes tests

    Au lieu d'utiliser :

     

    Using sw As StreamWriter = File.AppendText(wFicPropre)

           sw.WriteLine("Info", Encoding.Default)

    ou

           sw.WriteLine("Info", Encoding.(1252))

           sw.Close()

    End Using

     

    J'utilise

     

    Dim fic_dest As New StreamWriter(wFicPropre, True, System.Text.Encoding.Default)

           fic_dest.WriteLine("Info")

    fic_dest.Close()

     

    wFicPropre est le nom complet du fichier en sortie

     

    À vrai dire, je ne sais pourquoi cela marche …

    Merci à tous ceux qui ont répondus

    Cordialement

    Sauveur CONSALVI


    Cordialement Sauveur CONSALVI
    samedi 17 décembre 2011 17:17

Toutes les réponses