Rtf ---> html

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 463 fois - Téléchargée 68 fois

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

Ajouter un commentaire Commentaires
Messages postés
2
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
7 février 2002

C'est justement ce que je voulais mettre, mais no problemo je vais mettre Html-->RTF question de changer un peu
Bon en fait je vais ajouter une source qui résoud tous les problèmes. (cf. RTF ---> Code HTML)
Je crois qu'il y a une légère erreur dans le code...
avec le code :"RichTextBox1.SelStart a" les balises sont décalé d'un cran vers la droite. remplacer par : "RichTextBox1.SelStart a + 1"

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.