Enregistrer Richtextbox VB 2005

Bonjour,

Je cherche à enregistrer le contenu d'une richtextbox (en gardant le formatage) dans un fichier .rtf existant, pour cela j'utilise Richtextbox.savefile(nom_fichier). Le probleme, c'est que cette méthode écrase le fichier à chaque fois que le programme écrit dans le fichier.rtf. Je voudrais que le programme ajoute le contenu de la richtextbox dans le fichier.rtf
Si quelqu'un a une idée...
J'ai bien pensé enregistrer le contenu de la richtextbox dans un fichier temporaire puis concaténer les 2 fichiers .rtf, mais là je suis encore plus largué...
Merci d'avance...
Aurel

PS: je suis sur VB Express 2005

Si tu veux garder le formatage de ta rtb, tu seras obligé de te contenter de la methode savefile. Sinon utilises les classes "streamreader" et "streamwriter" pour ajouter tes données nouvelles à ton fichier.

Peut etre que ta méthode de concatener les deux fichiers rtf est bonne mais je crains que tu va perdre le formatage lors de l'ajout.

Bonjour.

A mon avis, faut :
- ouvrir ton fichier
- récupérer via un dataobject le contenu rtf
- le placer dans un string A
- dans A virer la balise de fin \par}
- récupérer le .rtf de ton RTB dans un string B
- dans B supprimer les balises de début {\rtf1\ansi\...
- concatener A + B
- ouvrir un stream en append sur ton fichier
- déclarer un nouveau RTB
- mettre A + B dans le rtf de ce RTB
- écrire via savefile dans le stream de fichier

C'est quand même assez lourdingue comme technique mais ça se creuse :lol: !!!

Cdt.

Bonjour et merci pour vos réponses,

En partant de vos réponses, j'ai en partie résolu mon pb avec le code suivant :

Code:

---

1 2 3 4 5

Dim RTB1 As New RichTextBox() RTB1.LoadFile(Fichier_Save) RTB1.AppendText(RTB2.Text) RTB1.SaveFile(Fichier_Save)

---

Le probleme c'est que je perds le formatage du texte. Y a t'il une possibilité de copy et coller le contenu d'une Richtextbox dans une autre en gardant le formatage (police, taille, ...)? Je me suis bien penché sur streamreader et streamwriter mais je n'y comprends absolument rien (si quelqu'un avait un exemple très simple...). Et cette méthode permet-elle de conserver le format? Et comment dois-je faire pour récupérer le contenu de la RTB avec un Dataobject?

Merci.

Aurel

Citation:

---

Le probleme c'est que je perds le formatage du texte

---

Et oui c'est bien ce que je t'avais dis... tu ne pourras pas garder le formatage du texte précédemment enregistré dans ton fichier quelque soit la méthode. Ou alors avec des balises RTF (que je ne connais pas) tu pourras sans doute retranscrire la police et la couleur du texte.

StreamReader et StreamWriter sont deux classes très simples pour la gestion des fichiers. VOici une exemple : Ecriture et lecture dans un fichier

PS: N'oublit pas de mettre ton code dans les balises "code" prévues à cet effet. Ton code sera ainsi plus visible et tu auras sans doute plus de réponses !

Bonjour,

Suite à vos réponse, j'ai pu finalement aboutir à une solution qui me convient.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Dim RTBtemp As New RichTextBox() Dim A, B As String Dim IndexDebut As Integer RTBtemp.LoadFile(Fichier_Save) A = RTBtemp.Rtf B = RichTextBox1.Rtf ' Suppression balise de fin de A. A = A.Remove(A.Length - 5, 5) ' suppression balise début de B. IndexDebut = B.IndexOf("DEBUT DU TEXTE") B = B.Remove(0, IndexDebut - 9) ' Concatenation. A = String.Concat(A, B) Using sw As StreamWriter = File.CreateText("C:FichierTemp") sw.Write(A) sw.Close() End Using RTBtemp.LoadFile("C:FichierTemp", RichTextBoxStreamType.RichText) RTBtemp.SaveFile(Fichier_Save, RichTextBoxStreamType.RichText) My.Computer.FileSystem.DeleteFile("C:FichierTemp")

---

En ce qui concerne les balises de debut et de fin du fichier RTF, j'ai d'adord crée le fichier .rtf final que je souhaitais obtenir via wordpad. Je l'ai ensuite insérer à une richtextbox RTB_Final. Puis j'ai comparé RTB_Final.rtf et A (issu de la concatenation A = String.Concat(A, B); j'en ai déduit ce que je devais supprimer en début et en fin (d'où le -9 et -5). c'est pas joli mais ça marche.

NOTA : chaque texte inséré doit commencer par la même chaine de caractere (ici, DEBUT DU TEXTE), mon objectif étant d'ajouter des paragraphes qui commencent tous par le meme mot, cela me convient.

Aurel

j'ai volu utiliser cette methode avec c# pour concatener le contenu de 2 rtb sans changer le contenu mais le problème c que la deuxièmme partie du rtb s'invere de couleur!!!!
je sai pas comment resoudre sa
:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

string a = ""; String b = ""; String c = "le texte ajouté"; int ind = rtx1.SelectionStart; rtx1.Select(ind, 5); String f = rtx1.SelectedText.ToString(); rtx1.Select(0, ind); a = rtx1.SelectedRtf; rtx1.Select(ind, rtx1.Text.Length); b = rtx1.SelectedRtf; rtx1.Text = ""; rtx1.Rtf = a; rtx1.AppendText(c); rtx1.Select(ind, c.Length); rtx1.SelectionColor = Color.Red; rtx1.AppendText(" "); a = rtx1.Rtf; u.Rtf = b; a = a.Remove(a.Length - 5, 5); int IndexDebut = b.IndexOf(f); b = b.Remove(0, IndexDebut - 9); a = String.Concat(a, b); rtx1.Rtf =a;

---

en fin de compte dans mon rtb 2 qui est u je recupère le contenue 2(c'est le texte du rtb1 à partir de la position du curseur)
et quand je concatène je trouve que les couleurs de la deuxièmme parties changes!!!:(
merci de m'aider

bon j'ai trouvé la solution :
http://www.codeproject.com/cs/miscct...ichtextbox.asp
il contient un controle qui s'appelle ExRichTextBox qui permet de concatener deux rtb merci pour AP qui m'a aidé pour trouver cette solution:yaisse2:

Pourrais-tu expliquer comment concaténer deux exRichTextBox en faisant en sorte que chacune garde sa mise en forme.
Dans mon projet j'ai une "grosse rtb" et une temporaire.
Dans la temporaire j'efface certains caractère, je met le texte en forme (couleur, gras, ....).
Le but c'est de venir aditionner / concaténer la temporaire à la première "grosse".

Je sais que c'est pas clair !

Merci

Laurent

bon
c simple:

Code:

---

1 2 3 4 5 6 7

public ExRichTextBox grossertb= new Khendys.Controls.ExRichTextBox();; public RichTextBox temporaire=new RichTextBox(); //il faut terminer le reste(ajout du ExRichTextBox et RichTextBox) //n'oublie pas le using Khendys.Controls; puis dans un bouton tu fait: grossertb.AppendRtf(temporaire.Rtf);

---

et sa marche bien
:D

hum, alors mon problème ne viens pas de cela !
c'est déjà ce que je fais dans mon code.

Merci pour ta réponse

ton problème est résolus ou pas???
mais si c'est pas résolus fait attention des caractères que tu supprime dans ton rtb car tu peut supprimer la mise en forme donc fait attention et utilise selected rtb et quand tu modifie modifie dans une rtb pour ne pas toucher au mise en forme et en principe sa doit bien marché.:aie:

Je te remercie, mon problème est résolue, il était comme la majorité des cas qui pose problèmes tous bête en faites...

J'utilisé rtbTemp.Text += strBrut(i) au lieu de rtbTemp.SelectedText += strBrut(i)
Sa casse pas trois pâtes a un canard, mais du coup, ce qui était ajouté ne l'était pas avec la bonne mise en forme vu que ce n'était pas ajouté dans la sélection.


En tous cas merci.