Bonjour
Je cherche à concaténer 2 chaines RTF en une seule
Les textes ayant une mise en forme, on ne peut pas faire
Texte2 = Texte1 & Texte2
quelqu'un a-t-il créé une petite fonction pour faire cela ?
Merci de votre aide
Patrick
--
VIP Organisation
8, Rue du moulin a vents
78310 Coignieres
FRANCE
Tel: +33.1.30.49.08.68
Fax: +33.1.30.49.27.31
www.vip-organisation.com
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques93
Bonjour Patrick JONIEC, Patrick JONIEC a écrit :
Bonjour Je cherche à concaténer 2 chaines RTF en une seule Les textes ayant une mise en forme, on ne peut pas faire Texte2 = Texte1 & Texte2 quelqu'un a-t-il créé une petite fonction pour faire cela ?
Par exemple :
Private Sub Command1_Click() With Me.RichTextBox3 .TextRTF = ConcatRTF(Me.RichTextBox1.TextRTF, _ Me.RichTextBox2.TextRTF) End With End Sub
Private Function ConcatRTF(RTF1 As String, RTF2 As String) As String ConcatRTF = Left(RTF1, InStrRev(RTF1, "}") - 1) & Mid(RTF2, 2) End Function
l'idée étant de supprimer l'accolade fermante du permier RTF, et l'accolade ouvrante du second (sinon il y a écrasement).
--
Cordialement,
Jacques.
Bonjour Patrick JONIEC,
Patrick JONIEC a écrit :
Bonjour
Je cherche à concaténer 2 chaines RTF en une seule
Les textes ayant une mise en forme, on ne peut pas faire
Texte2 = Texte1 & Texte2
quelqu'un a-t-il créé une petite fonction pour faire cela ?
Par exemple :
Private Sub Command1_Click()
With Me.RichTextBox3
.TextRTF = ConcatRTF(Me.RichTextBox1.TextRTF, _
Me.RichTextBox2.TextRTF)
End With
End Sub
Private Function ConcatRTF(RTF1 As String, RTF2 As String) As String
ConcatRTF = Left(RTF1, InStrRev(RTF1, "}") - 1) & Mid(RTF2, 2)
End Function
Bonjour Je cherche à concaténer 2 chaines RTF en une seule Les textes ayant une mise en forme, on ne peut pas faire Texte2 = Texte1 & Texte2 quelqu'un a-t-il créé une petite fonction pour faire cela ?
Par exemple :
Private Sub Command1_Click() With Me.RichTextBox3 .TextRTF = ConcatRTF(Me.RichTextBox1.TextRTF, _ Me.RichTextBox2.TextRTF) End With End Sub
Private Function ConcatRTF(RTF1 As String, RTF2 As String) As String ConcatRTF = Left(RTF1, InStrRev(RTF1, "}") - 1) & Mid(RTF2, 2) End Function
l'idée étant de supprimer l'accolade fermante du permier RTF, et l'accolade ouvrante du second (sinon il y a écrasement).
--
Cordialement,
Jacques.
Patrick JONIEC
Merci A priori, ça fonctionne bien, et c'est tout simple.
"Jacques93" a écrit dans le message de news:%
Bonjour Patrick JONIEC, Patrick JONIEC a écrit :
Bonjour Je cherche à concaténer 2 chaines RTF en une seule Les textes ayant une mise en forme, on ne peut pas faire Texte2 = Texte1 & Texte2 quelqu'un a-t-il créé une petite fonction pour faire cela ?
Par exemple :
Private Sub Command1_Click() With Me.RichTextBox3 .TextRTF = ConcatRTF(Me.RichTextBox1.TextRTF, _ Me.RichTextBox2.TextRTF) End With End Sub
Private Function ConcatRTF(RTF1 As String, RTF2 As String) As String ConcatRTF = Left(RTF1, InStrRev(RTF1, "}") - 1) & Mid(RTF2, 2) End Function
l'idée étant de supprimer l'accolade fermante du permier RTF, et l'accolade ouvrante du second (sinon il y a écrasement).
--
Cordialement,
Jacques.
Merci
A priori, ça fonctionne bien, et c'est tout simple.
"Jacques93" <jacques@Nospam> a écrit dans le message de
news:%23p6PRS3tIHA.2188@TK2MSFTNGP04.phx.gbl...
Bonjour Patrick JONIEC,
Patrick JONIEC a écrit :
Bonjour
Je cherche à concaténer 2 chaines RTF en une seule
Les textes ayant une mise en forme, on ne peut pas faire
Texte2 = Texte1 & Texte2
quelqu'un a-t-il créé une petite fonction pour faire cela ?
Par exemple :
Private Sub Command1_Click()
With Me.RichTextBox3
.TextRTF = ConcatRTF(Me.RichTextBox1.TextRTF, _
Me.RichTextBox2.TextRTF)
End With
End Sub
Private Function ConcatRTF(RTF1 As String, RTF2 As String) As String
ConcatRTF = Left(RTF1, InStrRev(RTF1, "}") - 1) & Mid(RTF2, 2)
End Function
Merci A priori, ça fonctionne bien, et c'est tout simple.
"Jacques93" a écrit dans le message de news:%
Bonjour Patrick JONIEC, Patrick JONIEC a écrit :
Bonjour Je cherche à concaténer 2 chaines RTF en une seule Les textes ayant une mise en forme, on ne peut pas faire Texte2 = Texte1 & Texte2 quelqu'un a-t-il créé une petite fonction pour faire cela ?
Par exemple :
Private Sub Command1_Click() With Me.RichTextBox3 .TextRTF = ConcatRTF(Me.RichTextBox1.TextRTF, _ Me.RichTextBox2.TextRTF) End With End Sub
Private Function ConcatRTF(RTF1 As String, RTF2 As String) As String ConcatRTF = Left(RTF1, InStrRev(RTF1, "}") - 1) & Mid(RTF2, 2) End Function