Discussion :

[pierrotm777]

Bonjour,
J'essai de convertir un fichier texte ANSI en UNICODE:
J'ai donc essayé ce code mais sans succés, le fichier restant toujours codé ANSI.

Code :

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

1
2
3
4
5
6
7
    Public Shared Sub EncodeInUnicode(ByVal Path As String, ByVal Text As String)
        ' read with the **local** system default ANSI page
        Text = File.ReadAllText(Path, Encoding.Default)
        ' write as Unicode (if you want to do this)
        File.WriteAllText(Path, Text, Encoding.Unicode)
 
    End Sub

et j'utilise la fonction ainsi:

Code :

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

EncodeInUnicode("c:\temp", "RRGoogleMapsTools.txt")

J'ai aussi testé les 2 codes suivants:

Code :

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

1
2
3
4
5
6
7
8
9
10
    Public Shared Sub EncodeInUnicode(ByVal WFic As String)
        ' 1 : Lire et écrire le fichier texte en spécifiant le codage
        'Dim MonFichier As String = IO.File.ReadAllText(WFic, System.Text.Encoding.ASCII)
        'IO.File.WriteAllText(WFic, MonFichier, System.Text.Encoding.Unicode)
 
        ' 2 : Lire le contenu du fichier (en bytes), faire la conversion, réécrire les données dans le fichier
        Dim Bytes() As Byte = IO.File.ReadAllBytes(WFic)
        System.Text.Encoding.Convert(System.Text.Encoding.ASCII, System.Text.Encoding.Unicode, Bytes)
        IO.File.WriteAllBytes(WFic, Bytes)
    End Sub

Merci de votre aide

[Invité]

Tu utilises mal la fonction WriteAllText(string path, string contents,Encoding encoding)

Cette méthode peut prendre 3 arguments qui sont:

path
Type : System.String
Fichier dans lequel écrire.

contents
Type : System.String
Chaîne à écrire dans le fichier.

encoding
Type : System.Text.Encoding
Encodage à appliquer à la chaîne.


Tu dois l'utiliser comme ça par exemple:

Code :

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

1
2
string createText = "Hello and Welcome" + Environment.NewLine;
File.WriteAllText(path, createText, Encoding.UTF8);

Dans ton cas voila ce que cela doit donner pour la méthode qui appelle ta méthode:

Code :

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

EncodeInUnicode("c:\temp\RRGoogleMapsTools.txt", "Texte à écrire dans le fichier")

[pierrotm777]

Ha ok,
J'ai donc modifié mon code ainsi et effectivement ça fonctionne super bien!

Code :

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

EncodeInUnicode("c:\temp\RRGoogleMapsTools.txt", "c:\temp\RRGoogleMapsTools.txt")