SVP J'ai un urgent probleme

Question

Salut tt le monde 

SVP j'ai un probleme avec l'enregistrement d'un contenu d'un richbox dans un fichier *.txt 

le probleme est d'affiche des ling au debut et a la fine de fichier *.txt mais et voila le detail :

par expl : j'ai saisi dans un richbox  : Salut tt le monde 

et voila le code de la boutton Enregistrer
Private Sub enregistrer_Click()
bd.Filter = "Fichiers texte (*.txt)|*.txt"
bd.DialogTitle = "Enregistrementdu fichier (*.txt)" 
'************
bd.FileName = "BE_" & rsBe(3) & "_" & (Date) 
'************
bd.CancelError = False
bd.FilterIndex = 2
'************
bd.ShowSave
richbox1.SaveFile (bd.FileName)
End Sub

jusqu'a mnt tt va bien  mais lorsqu'on a ouvrir le fichier texte avec le bloc note on trouvra le contenu suivant  : 

{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 Palatino Linotype;}}
\viewkind4\uc1\pard\lang1036\b\f0\fs20 Salut tt le monde 
\par 
\par }

ce probleme just avec l'ouverture avec le bloc note mais si on ouvrira avec wordpad ou word on a aucun problem mais ma besoin de ce programe ma obliger d'ouvrir avec le bloc note 

SVP mes amis c'set tres urgent pour mois si vous avais une solition pouvez-vous m'envoyer a mon Email : [mailto:chakichoc@gmail.com chakichoc@gmail.com]   merci pour vous une autre fois

le cancre · Answer

le rtf c'est du rtf tout simplement ,il faut que tu garde l'extension rtf! et non .txt

le cancre · Answer

utilise une textbox

econs · Answer

Salut,

Ce que tu observes est tout à fait normal.
Un richTextBox enregistre des données au format RTF. C'est parfaitement lisible par WordPad et Word, mais tout autre logiciel de texte t'affichera le véritable code source.






richbox1.SaveFile enregistre le format RTF. Ca écrit donc richbox1.TextRTF dans un fichier.
Dans ton cas, il faut laisser tomber la méthode SaveFile et il faut que tu écrives richbox1.Text dans ton fichier texte.





Manu


--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.

econs · Answer

Et en VB6, çà donne ceci : Private Sub enregistrer_Click() bd.Filter = "Fichiers texte (*.txt)|*.txt" bd.DialogTitle = "Enregistrementdu fichier (*.txt)" '************ bd.FileName = "BE_" & rsBe(3) & "_" & (Date) '************ bd.CancelError = False bd.FilterIndex = 2 '************ bd.ShowSave ~~richbox1.SaveFile (bd.FileName)~~ Open bd.FileName For Output As #1 Print#1, richbox1.Text Close#1 End Sub Manu -------------------------------------------------------------------------------------------- Avant de poster un message, n'oubliez pas de consulter le reglement.

SVP J'ai un urgent probleme

4 réponses

Votre réponse