Click here to Skip to main content

Article

Using a VB.NET 2005 Class to Convert RichText to HTML

George H. Slaterpryce III

Rate me:

4.55/5 (31 votes)

2 Nov 2006CPOL

213.8K

10.2K

78

61

A quick way to convert RichText to HTML.

Download class source - 1.61 Kb

Introduction

This code was written to solve the problem of having RichText data needing to be displayed in HTML, both in HTML reports and in ASP.NET web pages.

Using the code

Use of the code is exceptionally simple. Simply create a new instance of the class and then use the properties to first pass in the RichText to parse and then use the html property to get the resulting HTML. (The code file for the class is attached to this article).

VB

''Assume you have a RichTextBox on your 
''form named rtbFoo and a button named btnBar

  Private Sub btnBar_Click(ByVal sender as object, _
          e as System.EventArgs) Handles btnBar.Click
    dim r2h as new RTFtoHTML
    r2h.rtf = rtbFoo.rtf
    messagebox.show(r2h.html)
  End Sub

History

Initial release - 11/02/2006.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Written By

George H. Slaterpryce III

Architect

United States

Developing software since 1995, starting out with Borland Turbo C++ 3 & Motorolla Assembly.
Eventually learning several different languages such as
Pascal/Delphi,Basic, Visual Basic,FoxPro, ASP, PHP, and Perl.

Currently using the .net framework for most development task.

Hobbies include underwater robotics, and electronics.

George's current language of choice is C#.

Comments and Discussions

karenpayne6-Aug-07 3:09

6-Aug-07 3:09

Nicely done!
Might be nice for beginners to have the example project to go along with the class.

Kevin S. Gallagher
Programming is an art form that fights back

escape characters

gary73-Aug-07 10:52

3-Aug-07 10:52

This is cool, but it would be super if it could also convert extended text charcters such as: "< >" ?

By the way, in typing the above characters, I used the extended characters, which produced the signs as displayed. I would really like to code that into a project so my wife doesn't have to do the manual conversions!

Any ideas about code for such conversions?

Cool project, though!

Gary

frederic.robert29-May-07 5:02

frederic.robert

29-May-07 5:02

Hello,

I would like to adapt the source code to display underline text and bullet list items.

How can it be done ?

Thanks for any help,

Frédéric ROBERT

frederic.robert@rocketmail.com

George H. Slaterpryce III18-Jul-07 13:29

George H. Slaterpryce III

18-Jul-07 13:29

Relatively easily you can check for underline or bulleted items just like I check for formatting. then for underline do a at the beginning and a at the end, OR you can do it in a span with style (better solution)

As for bullets you'll need to check for congrous bullets and stick them in a list then loop through the list and place each elemeng in an

structure.

Member 1392768115-Aug-19 23:33

Member 13927681

15-Aug-19 23:33

can you post the code?

Kaushal Mca16-May-07 2:23

16-May-07 2:23

Nice work buddy,
This is good but it is more batter if u provides reverse compatibility,
My means to say HTML to Rich Text conversion...

If you have any idea, than please let me know.
Smile | :)

Smile | :)

craver8413-May-07 0:57

13-May-07 0:57

Great class! I only notice that the class doesn't convert bullets...

bigbro_19859-Aug-10 0:54

9-Aug-10 0:54

Here is what I did to get bullets.
Define the following Boolean:

Dim bltCurrent As Boolean = False   'EDIT NOTE: - Boolean to check bullet for selection

The following code is just above strReturn &= Me.Text.Substring(intPos, 1):

'Bullets - EDIT NOTE New Below code
If intPos = 0 Then
    bltCurrent = _rtfSource.SelectionBullet
Else
    If _rtfSource.SelectionBullet <> bltCurrent Then
        If _rtfSource.SelectionBullet = True Then
            strReturn &= "<ul>"
            strReturn &= "<li>"
        Else
            strReturn &= "</ul>"
        End If
        bltCurrent = _rtfSource.SelectionBullet
    Else
        If (_rtfSource.SelectionBullet = True) And (_rtfSource.Text.Substring(intPos, 1) = Convert.ToChar(10)) Then
            strReturn &= "</li>"
        End If
        If (_rtfSource.SelectionBullet = True) And (_rtfSource.Text.Substring(intPos - 1, 1) = Convert.ToChar(10)) Then
            strReturn &= "<li>"
        End If
    End If
End If
'EDIT NOTE New Above Code

I'm sure its not the best way to do it but it works.

Marco

rtf2HTML - Example Source code

Rajesh Moriyani2-Jan-07 1:59

Rajesh Moriyani

2-Jan-07 1:59

Hi George,

This is really a useful component indeed. Also, I'm fascinated by the RichText Editor part which you used in the example (but only the image-view is shown in article). I would appreciate if you could share the code for that example also.

Great work... Keep it up.

Regards & Greetings,
Rajesh

Rajesh Moriyani
rkmoriyani@gmail.com

pablleaf3-Nov-06 7:21

3-Nov-06 7:21

In the images the word HTML is blue in the RTF but black in HTML

George H. Slaterpryce III3-Nov-06 7:24

George H. Slaterpryce III

3-Nov-06 7:24

Indeed it is, Thanks for noticing that

I'll update it so it matches.

General News Suggestion Question Bug Answer Joke Praise Rant Admin

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

Go to top