Discussion :

[nicleco]

(Re) Bonjour,

Je suis en train de développer un module qui ouvre un fichier CSV, qui réarange les informations présentes et les réengistre dans un autre fichier CSV.

Dans le fichier original, par de problème avec les é à ç ..... mais dans mon fichier final j'ai des caractères bizarres ....

J'ai passé "System.Text.UnicodeEncoding.Unicode" en paramètre de mon fichier mais rien y fait ...

Code :

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

1
2
 
Dim fichierexport As New StreamWriter("c:\" + TextBox2.Text + "260Export.csv", System.Text.UnicodeEncoding.Unicode)

Merci

[Faladin]

Récupère le encoding du fichier ouvert et utilises le même pour le fichier que tu vas écrire

Sinon, si tu restes local sur des PC français, utilise .Default au lieu de .Unicode, ça devrait fonctionner

[Faladin]

Code :

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

System.Text.Encoding.Default

Pour être plus clair...

[nicleco]

Voila mon source :

Code :

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

1
2
3
4
5
 
Dim fichierexport As New StreamWriter("c:\" + TextBox2.Text + "260Colorisfacade.csv")
 
If My.Computer.FileSystem.FileExists(chemin) Then 'test si le fichier existe
Dim fichier As New StreamReader(chemin)

--> Avec ce code j'ai des problèmes avec les é à ç .....

Avec la solution de Faladin, j'ai ce message d'erreur :

Erreur 1 La résolution de surcharge a échoué, car aucun 'New' accessible ne peut être appelé avec ces arguments :
'Public Sub New(path As String, append As Boolean)': Une valeur de type 'System.Text.Encoding' ne peut pas être convertie en 'Boolean'.
'Public Sub New(stream As System.IO.Stream, encoding As System.Text.Encoding)': Une valeur de type 'String' ne peut pas être convertie en 'System.IO.Stream'.

Une idée ?

[Skalp]

Erreur 1 La résolution de surcharge a échoué, car aucun 'New' accessible ne peut être appelé avec ces arguments :
'Public Sub New(path As String, append As Boolean)': Une valeur de type 'System.Text.Encoding' ne peut pas être convertie en 'Boolean'.
'Public Sub New(stream As System.IO.Stream, encoding As System.Text.Encoding)': Une valeur de type 'String' ne peut pas être convertie en 'System.IO.Stream'.

Oui, une idée, oui. Le message me semble pourtant assez clair :
Lorsque tu instancies ton StreamWriter, tu n'a pas de constructeur possible avec en paramètre 1 le chemin du fichier en string et en paramètre 2 l'encodage.
Tu dois utiliser une autre surcharge de ce constructeur. Celle-ci devrait te convenir :
StreamWriter(string path, bool append, Encoding encoding)
(où "append" indique d'ajouter le texte dans le fichier ou pas)

D'ailleurs, je ne pense pas que cette ligne de code que tu nous as montré compile :

Code :

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

Dim fichierexport As New StreamWriter("c:\" + TextBox2.Text + "260Export.csv", System.Text.UnicodeEncoding.Unicode)

[nicleco]

Parfait !!

Merci

Code :

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

1
2
3
4
5
 
Dim fichierexport As New StreamWriter("c:\" + TextBox2.Text + "260Colorisfacade.csv", False, System.Text.Encoding.Default)
 
        If My.Computer.FileSystem.FileExists(chemin) Then 'test si le fichier existe
            Dim fichier As New StreamReader(chemin, System.Text.Encoding.Default)