Enregistrement UNICODE

Question

Bonjour, a tous

J'utilise ce script pour écrire des fichier texte dans mon programme VB .NET:

FileWriter = My.Computer.FileSystem.OpenTextFileWriter(ChemFileOpenBl, False) 'TRUE: Ajoute, FALSE: Remplace
FileWriter.WriteLine(VBL001)  'numero bl
FileWriter.WriteLine(VBL002)  'non document
FileWriter.WriteLine(VBL003)  'chemin acces bl
FileWriter.WriteLine(VBL004)  'etat bl
FileWriter.Close()
 
Ce code enregistre le fichier en format par défaut UTF-8, comment modifie mon code pour qu'il enregistre en format UNICODE, pour récupéré les caractères avec accents dans un programme VB OFFICE 2013 ?

Merci bien 


--

cs_Le Pivert · Answer

Bonjour,

Voici pour une ligne, a adapter:

Imports System.Text
Imports System.IO
Public Class Form1
'ecriture
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim file As System.IO.StreamWriter
        file = My.Computer.FileSystem.OpenTextFileWriter("C:\Users\....\Documents	exte.txt", True)
        file.WriteLine("éèàç&ù")
        file.Close()
    End Sub
'lecture
 Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim reader As String
        Dim monStreamReader As StreamReader = New System.IO.StreamReader("C:\Users\....\Documents	exte.txt", Encoding.Default) 'Stream pour la lecture avec caractères accentués du fichier
        reader = monStreamReader.ReadLine
        MsgBox(reader)
    End Sub
End Class

Enregistrement UNICODE

1 réponse

Discussions similaires