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

Hi All,

I have a question.

I am typing some text in textbox or richtextbox in vb.net(2003 version) and on the button click event i want a html file (its good if the output is in marquee format) to be created in a desired location which contains the text written in textbox or richtextbox.

Please can anyone helpme out!!

Hi.I used this code but how can I use with Underline tag? Confused | :confused:

Please help me on this.

Thank you.

Hi, I combined your code with the RTBEx code found on the MSDN site. This generates a Rich Text Box control that has .System.Drawing functionality, which can be used to print the RTB contents.

So now with your code added, the Rich Text Box Control will also have an .HTML function which will return the HTML string.

I want to know if it’s ok that I post this and reference this to your page or would you like to post this? I'm sure other people will find it helpful.

Marco

Post whatever you like Smile | :)

I'd also like to see your modifications. Just post some sort of linkback if you use code.

pls cn i have the reference and the post ls

Hi,

thanks for your great Example. I don't know, how I change the Font and the FontSize for the selected. Can you post the code for them, please.
thank you

gredds

it no more a problem

I Really Like your code.
I have made some modifications to your code as per your permissions granted. These Modifications include adding spaces so the converted HTML is spaced exactly like the RTF is spaced. I discovered that after converting and placing in a HTML document it was all Left aligned. I also found that when copying the RTF from VB IDE that if the VB code referenced HTML formatting that it used the references to HTML. So I made a modification to prevent this. I am at present looking into a way to change the embedded objects to their respective Image or Thumb nails. The only way I could get this to post the code correctly Was to unchecked "Use HTML in post" and unchecked Encode. Because it caused the HTML code " " to change to a " ". Wrapping it did nothing to help.
But here is the code the way it is modified starting from Alignment Which was not modified.
<pre>
'Alignment
If intPos = 0 Then
strReturn &= "" '
altCurrent = _rtfSource.SelectionAlignment
Else
If _rtfSource.SelectionAlignment <> altCurrent Then
strReturn &= ""
strReturn &= ""
altCurrent = _rtfSource.SelectionAlignment
End If
End If
'" (1) Modified to allow spaces and Html control syntex to be displayed(Curtis Underwood,April/29/2010 )
If intPos > 1 Then
If _rtfSource.Text.Substring(intPos, 1) = CStr(Chr(60)) And _rtfSource.Text.Substring(intPos - 1, 1) = CStr(Chr(34)) Then
strReturn &= "<"
intPos += 1
Do Until _rtfSource.Text.Substring(intPos, 1) = CStr(Chr(34)) Or _rtfSource.Text.Substring(intPos, 1) = CStr(Chr(62))
strReturn &= _rtfSource.Text.Substring(intPos, 1)
intPos += 1
Loop
End If
ElseIf intPos < _rtfSource.Text.Length Then
If _rtfSource.Text.Substring(intPos, 1) = CStr(Chr(62)) And _rtfSource.Text.Substring(intPos + 1, 1) = CStr(Chr(34)) Then
strReturn &= ">"
End If
End If

If _rtfSource.Text.Substring(intPos, 1) = " " Then
strReturn &= " "
Else
strReturn &= _rtfSource.Text.Substring(intPos, 1)
End If
Next</pre>

Awesome

Hi, this is a really nice and helpful article.
Is there any specific code to convert from HTML to richtext ? I currently have a richtextbox where i need to show the html content from a HTML-page.

I found a little bug:incorrect HTML
<div>Penguin!</div>

1.It translates letter by letter
2.<span....>ABC -not correct Thumbs Down | :thumbsdown:

, The first letter looks like the first in RTF, but others-Times New Roman,12
ABC -correct Thumbs Up | :thumbsup:

I found the same problem. To fix it I moved the two lines "clrBackColor = _rtfSource.SelectionBackColor" to before the colors are converted to html color. The conversion some how changes it from "WindowColor" as it is first read to "White". (vb 2008 at least)

dear , can you tell me exactly what i must do to save the problem?

I don't have the code here and can't download it here. I'll try to remember to post in the next few days. There were only to places it needed to be changed. If you search for:

clrBackColor = _rtfSource.SelectionBackColor

Cut it and then look look for the sub/function call just a few (one or two I think) lines before it and paste it. Still I'll try to post the part I'm talking about later in case you still cannot find it.

Hello,

can you send me the changed QC via Mail? chefkoch@djbepy.de THX Smile | :)

'Background color
 If intPos = 0 Then
 strReturn &= ""
 clrBackColor = _rtfSource.SelectionBackColor
 Else
 'If _rtfSource.SelectionBackColor <> clrBackColor Then
 If _rtfSource.SelectionBackColor.A <> clrBackColor.A _
 Or _rtfSource.SelectionBackColor.R <> clrBackColor.R _
 Or _rtfSource.SelectionBackColor.G <> clrBackColor.G _
 Or _rtfSource.SelectionBackColor.B <> clrBackColor.B Then
 strReturn &= ""
 strReturn &= ""
 clrBackColor = _rtfSource.SelectionBackColor
 End If
 End If

I totally forgot about this until I got an email on it about this post. So here is the original code.

'Background color
      If intPos = 0 Then
        strReturn &= "<span style=""background-color:" & HtmlColorFromColor(_rtfSource.SelectionBackColor) & """>"
       clrBackColor = _rtfSource.SelectionBackColor '<-Originally Here
      Else
        If _rtfSource.SelectionBackColor <> clrBackColor Then
          strReturn &= "</span>"
          strReturn &= "<span style=""background-color:" & HtmlColorFromColor(_rtfSource.SelectionBackColor) & """>"
          clrBackColor = _rtfSource.SelectionBackColor '<-Originally Here
        End If
      End If

And then what fixed it for me was simply.

'Background color
      If intPos = 0 Then
        clrBackColor = _rtfSource.SelectionBackColor '<-Moved Here
        strReturn &= "<span style=""background-color:" & HtmlColorFromColor(_rtfSource.SelectionBackColor) & """>"
      Else
        If _rtfSource.SelectionBackColor <> clrBackColor Then
          clrBackColor = _rtfSource.SelectionBackColor '<-Moved Here
          strReturn &= "</span>"
          strReturn &= "<span style=""background-color:" & HtmlColorFromColor(_rtfSource.SelectionBackColor) & """>"
        End If
      End If

The above solution from Sorwen only fixes the problem with respect to the first character. I solved the issue by converting Windows Color to HTML Colour before comparison and temporary storage.

The original code:

'Background color
   If intPos = 0 Then
      strReturn &amp;= "&lt;span style=""background-color:" &amp; HtmlColorFromColor(_rtfSource.SelectionBackColor) &amp; """&gt;"
      clrBackColor = _rtfSource.SelectionBackColor
   Else
      If _rtfSource.SelectionBackColor &lt;&gt; clrBackColor Then
         strReturn &amp;= "&lt;/span&gt;"
         strReturn &amp;= "&lt;span style=""background-color:" &amp; HtmlColorFromColor(_rtfSource.SelectionBackColor) &amp; """&gt;"
         clrBackColor = _rtfSource.SelectionBackColor
      End If
   End If

The fix:

'Background color
   If intPos = 0 Then
      HtmlColorFromColor(_rtfSource.SelectionBackColor) 'Added this line to do pre-conversion
      strReturn &amp;= "&lt;span style=""background-color:" &amp; HtmlColorFromColor(_rtfSource.SelectionBackColor) &amp; """&gt;"
      clrBackColor = _rtfSource.SelectionBackColor
   Else
      HtmlColorFromColor(_rtfSource.SelectionBackColor)
      If _rtfSource.SelectionBackColor &lt;&gt; clrBackColor Then
         strReturn &amp;= "&lt;/span&gt;"
         strReturn &amp;= "&lt;span style=""background-color:" &amp; HtmlColorFromColor(_rtfSource.SelectionBackColor) &amp; """&gt;"
         clrBackColor = _rtfSource.SelectionBackColor
      End If
   End If

Amit

pleas can you help mi with a patient management system with vb.net

Hi ,
This is realy cool peice of code.....
but i am stuck on saving out images inside my RTF control,
like i have images in my RTF control, but after using your code it won't save out my images inside the HTML file ?
any idea to sort this
i am realy stuck at thwe movement ...
thanks

But it is not converting images from RTF and also the html size matters as well... Unsure | :~

Abhishek Sur

hi,
a very nice code

it converts very well

but i want that converted html code to save as an html file in my desired location

thanks in advance

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

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

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

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

Introduction

Using the code

History

License

Comments and Discussions