Voir toute la discussion dans une seule page
Ecrit par
Jacques93 le vendredi 16 mai 2008 dans le thème :
Visual Basic
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
Trouvé sur :
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.
Classé sous : rtf,
textrtf,
concatrtf,
end,
rtf1