TextBox et RichTextBox dans le même fichier

Version imprimable

27/07/2013, 16h45
zest

TextBox et RichTextBox dans le même fichier

Bonjour,

Voilà quelques jours que j'ai débuté sous VB.net et je cale devant un problème:
J'ai une Form avec une Textbox et une RichTextBox...jusque là tout va bien.

J'aimerais qu'à la fermeture de l'application par la croix ou par un "quitter" le contenu de la TextBox et de la RichTextBox soit enregistré dans un fichier texte.

À la réouverture de l'application, la TextBox et la RichTectBox sont remplies avec l'enregistrement qui se trouve dans le fichier texte créé précédemment.

J'ai trouvé comment copier le contenu de la TextBox, mais les deux en même temps je ne trouve pas....

Merci

Comme ceci pour une Richtextbox par exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Imports System.IO
Public Class Form1
 
    Private TxtFile As String = My.Application.Info.DirectoryPath & "\Saving.txt"
 
    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If Not Me.RichTextBox1.Text Is Nothing Then
            System.IO.File.WriteAllText(TxtFile, Me.RichTextBox1.Text)
        End If
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        If File.Exists(TxtFile) Then
            Me.RichTextBox1.AppendText(System.IO.File.ReadAllText(TxtFile))
        End If
    End Sub
End Class

27/07/2013, 18h38
zest

ok, merci.

J'ai trouvé pour le faire individuellement pour une TextBox ou RichTextBox, mais le faire pour toutes les deux en même temps, ça ne marche pas.

La mise en forme de la RichTextBox n'est pas gardé....

Bonjour,

Pour le richtextbox, il vaut mieux utilisser les méthodes de celui-ci (SaveFile et LoadFile)
La sauvegarde de la mise en forme est ainsi effectuée.

Maintenant si vous souhaitez aussi intégrer le texte du textBox, (textBox simple ligne, une seule, donc pas multiligne) il suffit
A la sauvegarde : de rajouter ce texte sur une ligne supplémentaire à la fin du richTextBox avant de sauvegarder avec RichTextBox1.SaveFile,
A la lecture du fichier rtf : apès lecture du fichier rtf (RichTextBox1.LoadFile) de remettre cette dernière ligne dans le textBox puis de la supprimer du richtextBox.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing RichTextBox1.AppendText(Environment.NewLine & TextBox1.Text) RichTextBox1.SaveFile("d:\data\rtb.rtf") End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load RichTextBox1.LoadFile("d:\data\rtb.rtf") TextBox1.Text = RichTextBox1.Lines(RichTextBox1.Lines.Length - 1) RichTextBox1.SelectionStart = (RichTextBox1.Text.Length - TextBox1.Text.Length) - 1 RichTextBox1.SelectionLength = TextBox1.Text.Length + 1 RichTextBox1.SelectedText = "" End Sub

28/07/2013, 00h04
zest

Le code m'a l'air très intéressant, mais j'ai une erreur "L'index se trouve en dehors des limites du tableau."

la ligne:

Code:

TextBox1.Text = RichTextBox1.Lines(RichTextBox1.Lines.Length - 1

pose problème.

Je pense que c'est le fichier de départ qui pose souci...

La RichTextBox rajoute un saut de ligne à l'enregistrement.

J'avais juste mis le code pour le principe de fonctionnement.
Dans le cas ou le fichier est vide au départ, il n'y a pas de ligne, (on se retrouve donc avec un indice à -1, ce qui est en dehors des limites du tableau) il faut donc faire un test. (ceci n'est utile que la pemière fois, ensuite, même si le TextBox et le RichTextBox sont vides il existera quand même une ligne (pour le TextBox, et l'indice sera 0).
Code:

1 2 3 4 5 6 7 RichTextBox1.LoadFile("d:\data\rtb.rtf") If Not (RichTextBox1.Lines.Length = 0) Then TextBox1.Text = RichTextBox1.Lines(RichTextBox1.Lines.Length - 1) RichTextBox1.SelectionStart = (RichTextBox1.Text.Length - TextBox1.Text.Length) - 1 RichTextBox1.SelectionLength = TextBox1.Text.Length + 1 RichTextBox1.SelectedText = "" End If

28/07/2013, 14h46
zest

Merci rv26t, le code fonctionne parfaitement...maintenant je vais faire la même chose avec 4 TextBox et 2 RichTextBox, ce qui était le but au départ...

Je regarde ça cet après-midi...

En creusant sur Google_mon_ami j'ai trouvé ça:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Function ConcatRTF(RTF1 As String, RTF2 As String) As String
 
    ConcatRTF = Left(RTF1, InStrRev(RTF1, "}") - 1) & Mid(RTF2, 2)
 
End Function
 
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
      With Me.RichTextBox1
            .TextRTF = ConcatRTF(.TextRTF, Me.RichTextBox2.TextRTF)
            .Refresh()
     End With
End Sub

mais aussi ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub copyText()
            Dim rtbTmp As New RichTextBox ' Temporary Rich Text Box
            Dim datobj As New System.Windows.Forms.DataObject
 
            ' Copy RichTextBox1 into rtbTmp
            rtbTmp.Rtf = RichTextBox1.Rtf
            ' Add Line Feed (if you want one)
            rtbTmp.AppendText(vbCrLf)  
            ' Copy RichTextBox2 to the Clipboard
            datobj.SetData(DataFormats.Rtf, RichTextBox2.Rtf) 
            Clipboard.SetDataObject(datobj)
            ' Paste RichTextBox2's copied text to the end of Temporary Rich Text Box
            rtbTmp.SelectionStart = rtbTmp.TextLength
            rtbTmp.Paste()
            ' Copy combined contents of Temporary Rich Text Box to the clipboard
            datobj.SetData(DataFormats.Rtf, rtbTmp.Rtf)
            Clipboard.SetDataObject(datobj)
    End Sub

Mais dans VB.net 2010 ça ne passe pas...c'est du VB 2003

Citation:

Envoyé par zest

En creusant sur Google_mon_ami j'ai trouvé ça:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Function ConcatRTF(RTF1 As String, RTF2 As String) As String
 
    ConcatRTF = Left(RTF1, InStrRev(RTF1, "}") - 1) & Mid(RTF2, 2)
 
End Function
 
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
      With Me.RichTextBox1
            .TextRTF = ConcatRTF(.TextRTF, Me.RichTextBox2.TextRTF)
            .Refresh()
     End With
End Sub

C'est du vb6

Cela fusionne les 2 rtf en un seul.
Left(RTF1, InStrRev(RTF1, "}") - 1) : renvoie tout le contenu du rtf sauf le dernier caractère de fin.
Mid(RTF2, 2) : renvoie tout le contenu du rtf a partir du deuxième caractère (donc sans le caratère de début).

Une solution avec un séparateur. (Voir s'il n'y a pas mieux comme solution)

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
25
26
27
28
    Private TxtFile As String = "d:\data\rtbbis.rtf"
    Dim carsep As Char = Chr(0)
 
    Private Sub btnSauvegarde_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSauvegarde.Click
        Dim sb As StringBuilder = New StringBuilder
        sb.Append(RichTextBox1.Rtf)
        sb.Append(carsep)
        sb.Append(TextBox1.Text)
        sb.Append(carsep)
        sb.Append(TextBox2.Text)
        sb.Append(carsep)
        sb.Append(RichTextBox2.Rtf)
        sb.Append(carsep)
        sb.Append(TextBox3.Text)
        sb.Append(carsep)
        sb.Append(TextBox4.Text)
        System.IO.File.WriteAllText(TxtFile, sb.ToString)
    End Sub
 
    Private Sub btnLecture_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLecture.Click
        Dim LesTextes() As String = System.IO.File.ReadAllText(TxtFile).Split(carsep)
        RichTextBox1.Rtf = LesTextes(0)
        TextBox1.Text = LesTextes(1)
        TextBox2.Text = LesTextes(2)
        RichTextBox2.Rtf = LesTextes(3)
        TextBox3.Text = LesTextes(4)
        TextBox4.Text = LesTextes(5)
    End Sub

29/07/2013, 14h48
zest

Concaténer deux RichTextBox dans un fichier rtf

Nickel et merci!

Effectivement cela fonctionne très bien.

Je n'avais pas pensé à

Code:

Imports System.Text

et à

Code:

StringBuilder

.

Bien joué, j'ai encore du chemin! ;-)

Par contre je reste surpris d'être obligé d’implémenter autant de code pour si peu...