Discussion :

[mckilleron]

Bonjour,

Lorsque je veux sauvergarder le contenu d'une richTextBox avec SaveFile, j'ai la déformation de mon texte de la manière suivante :

Code :

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

1
2
3
4
5
6
{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 Microsoft Sans Serif;}}
\viewkind4\uc1\pard\lang1036\f0\fs17 D\'e9but du programme \'e0 : 29/05/2013 11:03:48\par
Erreur de validation dans le sch\'e9ma xml : L'\'e9l\'e9ment 'CstmrCdtTrfInitn' dans l'espace de noms 'urn:iso:std:iso:20022:tech:xsd:pain.001.001.03' a un \'e9l\'e9ment enfant non valide 'PmtInf' dans l'espace de noms 'urn:iso:std:iso:20022:tech:xsd:pain.001.001.03'. Liste d'\'e9l\'e9ments possibles attendue : 'GrpHdr' dans l'espace de noms 'urn:iso:std:iso:20022:tech:xsd:pain.001.001.03'.\par
\par
Ligne 5 : la chaine "INQGnYehk - %"contient des caract\'e8res interdits\par
\par

Voici le code source qui fait ma sauvegarde :

Code :

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

1
2
3
4
 
    Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
        ResultTextBox.SaveFile(Me.SaveFileDialog1.FileName, RichTextBoxStreamType.RichText)
    End Sub

Quelle modification je dois faire ?

Cordialement, mckilleron

[The_Big_Lebowski]

Le fichier est sauvegardé dans un format RTF (RichText Format)
Tu devrais essayer de changer de paramètre comme suit :

Code :

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

RTB.SaveFile(Me.SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)

[Franck.H]

Pour compléter la réponse précédente, lorsque tu enregistre en format RTF tu enregistre les données de mises en forme un peu comme si tu enregistre un document sous Word, lis le une fois avec Notepad et tu verras bien la gueule de ton texte

[hacker59]

bonjour,
pour faire une sauvegarde de RichTextBox1.text
voici la solution:

Code :

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

1
2
3
4
5
6
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            SaveFileDialog1.Filter = "Fichier Texte (*.txt)|*.txt| Tous Les Fichiers(*.*)|*.*"
            Dim fermer As New StreamWriter(SaveFileDialog1.FileName)
            fermer.Write(RichTextBox1.Text)
            fermer.Close()
        End If