Rtf ---> html

Commenter

Contenu du snippet

Pour le moment il ne reconnait que les Bold, Underline,Italic mais il est facile à améliorer

Créer Command1, RichTextBox1,Text1

Source / Exemple : 


Private Sub Command1_Click()
Dim a
Dim IsBold As Boolean
Dim IsUnderline As Boolean
Dim IsItalic As Boolean
On Error Resume Next
IsItalic = False
IsUnderline = False
IsBold = False
For a = 0 To Len(RichTextBox1.Text) + 2
RichTextBox1.SelStart = a
If RichTextBox1.SelStart = Len(RichTextBox1.Text) Then IsBold = False: IsUnderline = False: IsItalic = False
'Mettre en Gras
If RichTextBox1.SelBold = True And IsBold = False Then IsBold = True: Text1.SelText = "<B>"
If RichTextBox1.SelBold = False And IsBold = True Then IsBold = False: Text1.SelText = "</B>"
'Mettre en souligner
If RichTextBox1.SelUnderline = True And IsUnderline = False Then IsUnderline = True: Text1.SelText = "<U>"
If RichTextBox1.SelUnderline = False And IsUnderline = True Then IsUnderline = False: Text1.SelText = "</U>"
'Mettre en italic
If RichTextBox1.SelItalic = True And IsItalic = False Then IsItalic = True: Text1.SelText = "<I>"
If RichTextBox1.SelItalic = False And IsItalic = True Then IsItalic = False: Text1.SelText = "</I>"
If Asc(Mid(RichTextBox1.Text, a + 1, 1)) = vbKeyReturn Then Text1.SelText = "<br>" Else Text1.SelText = Mid(RichTextBox1.Text, a + 1, 1)
If a = Len(RichTextBox1.Text) - 1 Then Text1.SelText = "</I>": Text1.SelText = "</U>": Text1.SelText = "</B>"
Next
End Sub

Conclusion :


En passant certain commentaire on pasw vraiment rapport, c'était une autre source avant mis en double

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_max12)