Comments

1. shovmyfist
   05 Aug 2005 at 20:43

   i am really confused on how to call this function. I have a .rtf file lets say and i dont want any of the options so i just want to call this function out of my main .asp page and then have the .rtf be converted to html. Please help sorry for being a noob but i just started using VB
   

   
   thanks in advance
   

   
   kenny

2. partha chatterjee
   03 Jun 2005 at 11:48

   Hi Dears
   

   
   I am developing in VB6. I want to take any print from Data Report to Dot Matrix Printer. I using Data Report (VB6) not any Crystal Reports. If it is possible to take any print to Dot Matrix Printer from Data Report (VB6) so please help me as soon as possible and please write me how to solve this porblem by source codes.
   

   
   Thanking you,
   

   
   Partha Chatterjee
   India
   impartha@hotmail.com
   partha@chitajute.com

3. jayes99
   28 Jun 2004 at 00:31

   Can this convert HTML code to RTF code?

4. James Crowley
   22 Jan 2004 at 06:15

   Apologies - it seems in the conversion from source code to HTML on this website, a few errors were introduced. We're now hosting a Zip file with the source code instead.

5. Mike
   20 Oct 2003 at 11:54

   I tried a number of RTF files against this and this code seems to cut chunks of the actual text off!!
   

   
   I found another RTF -> HTML convert at www.easybyte.com, it seems to do the job fine.
   

   
   

6. Thushan Fernando
   28 Aug 2003 at 21:50

   wow what code! I'm not the author but by looking at the params i would think its rtf2html3!
   

   
   

   Code:

   
   Function rtf2html3(strRTF As String, Optional strOptions As String) As String
   

   
   

   
   so youd do rtf2html3 <richtextbox>.rtftext, <options>
   

   
   the options are:
     'Options:
     '+H              add an HTML header and footer
     '+G              add a generator Metatag
     '+T="MyTitle"    add a title (only works if +H is used)
     '+CR             add a carraige return after all <br>s
     '+I              keep html codes intact
     '+F=X            default font size (blanks out any changes to this size - saves on space)
     '-FF             ignore font faces
   

   
   does that hlep?
   

7. JJ
   28 Aug 2003 at 17:51

   How do I call these functions?Which one is the main function?
   Thanks

8. TheMadHatter
   16 May 2003 at 10:50

   This code is almost exactly what I've been looking for.  
   I've run into a couple small problems though.
   

   
   1. Why does it put everything in tables?
   2. It seems to be adding an extra <br> between each line.  
   Ex:
   This is a test
   This is only a test
   

   
   Displays like:
   This is a test
   

   
   This is only a test
   

   
   

   
   If you could help me fix those problems I would be eternally gratefull!
   

   
   As far as Gustav's post about Easybyte. They're "Free" converter is nagware and they want $400 dollars for their dll with out the nag and $700 for the source code.  I MIGHT have considered paying $10 or $20, but not a penny more, especially after looking at their pathetic excuse for a web site.  

9. Samurai
   31 Dec 2002 at 14:38

   Hi,
   

   
   I cann't Convert this Code:
   

   
   "{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fnil\fcharset2 Tawfiq;}}
   \viewkind4\uc1\pard\f0\fs41\'b4\'c0\'a5\'c3\'b7\'a5\'ba
   \par }
   

   
   

   
   Thanks
   Samurai

10. thai binh
    26 Dec 2002 at 22:55

    How can I convert html file from charset window-1252 to UTF-8?
    You can help me with dll
    Thanks
    

11. phil64
    03 Dec 2002 at 09:16

    Special characters are not recognize !!
    for example: à é '
    The function HTMLCode seems to be the one which do the job but it 's not called.
    What the matter!

12. Sanjeev Gaur
    30 Nov 2002 at 13:25

    Try This One...
    

    
    Here is the code which converts RTF fromat to XML
    

    
    Include the following references from Project Menu
    1. Microsoft Word 8.0 Object Library / I have Microsoft Word 10.0 Object Library
    2. Microsoft Scripting Runtime
    

    
    Insert component from Project Menu
    1. Microsoft Internet Controls
    

    
    Draw an instance of Web Browser
    Paste this code : Under Command button Command1
    

    
    Private Sub Command1_Click()
    

    
    Dim wordApp As Application
    Dim Doc As Document
    

    
    Dim fso As New FileSystemObject
    Dim txtStream As TextStream
           Set wordApp = CreateObject("Word.Application")
             Set txtStream = fso.CreateTextFile(App.Path & "\abc.rtf", True, False)
               txtStream.Write (RichTextBox1.TextRTF)
               txtStream.Close
               Set Doc = wordApp.Documents.Open(App.Path & "\abc.rtf")
               Doc.SaveAs App.Path & "\abc.html", wdFormatHTML
               Doc.Close
               Set Doc = Nothing
       
           WebBrowser1.Navigate (App.Path & "\abc1.html")
    

    
    End Sub
    

    
    Type some text in Rtf and click on Command 1
    

13. Lester Ian V. Espiritu
    13 Nov 2002 at 11:48
    hi!
    
    i'll give you a tip in html character codes (well, if you like to extend it...) , why don't you try to look for the html codes in some sites (example, your code in your "select case" statement inside HTMLCode) and try to place it in a "for - next" statement. just get the sequence of the bytecode and try to make a formula to make it more faster and easier for the compiler... even though its my first time to register here in developer fusion, i've got a lot of experiences in programming languages: HTML, ASP, Javascript, VB, C++ (native one), SQL... but at least i tried to help you optimize your code. any help you need from me or tips to give to me, just e-mail me here at eight_bytes@yahoo.com
14. Geoff Osbaldestin
    31 Oct 2002 at 10:28

    This piece of code goes into a never ending loop
           While Len(strRTFTmp) > 0
               strSecTmp = NabNextLine(strRTFTmp)
               While Len(strSecTmp) > 0
                   strWordTmp = NabNextWord(strSecTmp)
                   If Len(strWordTmp) > 0 Then ProcessWord(strWordTmp)
               End While
           End While
    

    
    I am using VB.Net has nayone got any suggestions?

15. Geoff Osbaldestin
    31 Oct 2002 at 10:27

    I found this one (in the proc rtf2html)
    

    
    Original
    

    
       lBOS = InStr(strRTFTmp, "\colortbl")
      If lBOS > 0 Then
          strSecTmp = NabSection(strRTFTmp, lBOS)
          GetColorTable strSecTmp, strColorTable()
      End If
    

    
    This works
    

    
       lBOS = InStr(strRTFTmp, "\colortbl")
      If lBOS > 0 Then
          strSecTmp = NabSection(strRTFTmp, lBOS)
          GetColorTable(strSecTmp, strColorTable)
      End If

16. az
    15 Sep 2002 at 13:25

    The modified function (GetColorTable) has an error with array construction. This will not work under Windows 95. (crash with an error : Runtime error 9, subscript out of range). Though it works well under 2000/XP.
    

17. Confuzer
    30 Aug 2002 at 11:13

    Hey,
    

    
    I tried to use your code, but am quite new to asp and got this error:
    

    
    Runtimeerror Microsoft VBScript (0x800A000D)
    Types do not match: 'rtf2html'
    

    
    I try to implement it like this:
    <%=rtf2html("blaat", "+H")%>
    

    
    and I put the code in rtf2html.inc wich I include on top of the page I load...
    

    
    I am making a stupid mistake so please correct me
    

    
    Greetz,
    

    
    Rutger

18. Philip Leitch
    10 Jul 2002 at 02:14

    Although the colour section worked perfiectly well, it was a bit messy.  Here is a reword of that function:
    Function GetColorTable(strSecTmp As String, strColorTable() As String)
    Dim i As Integer
       'get font table data and fill in strFontTable array
       
       'We can turn the whole thing into an aray, based of ";", where we ignore the first and last  item.
       ReDim strColorTable(CInt(UBound(Split(strSecTmp, ";")) - 2)) As String
       For i = 1 To UBound(Split(strSecTmp, ";")) - 1
           'We only want the section from the first space to the end....using ";}{" as an array splitter
           strColorTable(i - 1) = GetColor(CStr(Split(strSecTmp, ";")(i)))
       Next i
    End Function
    

    
    Function GetColor(ByVal ColourSection As String) As String
    Dim strRed As String
    Dim strGreen As String
    Dim strBlue As String
       strRed = Hex(CByte(Right(Split(ColourSection, "\")(1), Len(Split(ColourSection, "\")(1)) - 3)))
       If Len(strRed) = 1 Then strRed = "0" & strRed
       strGreen = Hex(CByte(Right(Split(ColourSection, "\")(2), Len(Split(ColourSection, "\")(2)) - 5)))
       If Len(strGreen) = 1 Then strGreen = "0" & strGreen
       strBlue = Hex(CByte(Right(Split(ColourSection, "\")(3), Len(Split(ColourSection, "\")(3)) - 4)))
       If Len(strBlue) = 1 Then strBlue = "0" & strBlue
       GetColor = "#" & strRed & strGreen & strBlue
    End Function

19. Philip Leitch
    10 Jul 2002 at 01:37

     Sorry I keep replying to my self over and over..... but I just wanted to correct myself again....
    There were, in fact, at least [5]35 [/5] unused variables!!!!!
    

    
    Wow.....

20. Philip Leitch
    10 Jul 2002 at 01:34

    Here is a list of variables that are not used:
    Modular Level:
    'Dim gWBPlain As Boolean          'plain will be true after next text
    'Dim lColors As Long              '# of colors
    'Dim lFonts As Long               '# of fonts
    'Dim strBOL As String             'string to include after <br>
    

    
    within RTFtoHTML:
    '    Dim strHTML As String
    '    Dim l As Long
    '    Dim lTmp As Long
    '    Dim lTmp2 As Long
    '    Dim lTmp3 As Long
    '    Dim lRTFLen As Long
    '    Dim lEOS As Long                 'end of section
    '    Dim strTmp As String
    '    Dim strTmp2 As String
    '    Dim strEOS As String             'string to be added to end of section
    '    Dim strBOS As String             'string to be added to beginning of section
    '    Dim strEOP As String             'string to be added to end of paragraph
    '    Dim strBOL As String             'string to be added to the begining of each new line
    '    Dim strEOL As String             'string to be added to the end of each new line
    '    Dim strEOLL As String            'string to be added to the end of previous line
    '    Dim strCurFont As String         'current font code eg: "f3"
    '    Dim strCurFontSize As String     'current font size eg: "fs20"
    '    Dim strCurColor As String        'current font color eg: "cf2"
    '    Dim strFontFace As String        'Font face for current font
    '    Dim strFontColor As String       'Font color for current font
    '    Dim lFontSize As Integer         'Font size for current font
    '    Const gHellFrozenOver = False    'always false
    '    Dim gSkip As Boolean             'skip to next word/command
    '    Dim strCodes As String           'codes for ascii to HTML char conversion
    '    Dim strCurLine As String         'temp storage for text for current line before being added to strHTML
    '    Dim strFontCodes As String       'list of font code modifiers
    '    Dim gSeekingText As Boolean      'True if we have to hit text before inserting a </FONT>
    '    Dim gText As Boolean             'true if there is text (as opposed to a control code) in strTmp
    '    Dim strAlign As String           '"center" or "right"
    '    Dim gAlign As Boolean            'if current text is aligned
    '    Dim strGen As String             'Temp store for Generator Meta Tag if requested
    '    Dim strTitle As String           'Temp store for Title if requested
    

    
    

    
    

    
    *NOTE*
    I have not checked other functions.
    

    
    

    
    Like I said in my first post, this code is a good start and probably saved me a good day or two.... but it has still taken me a day to port this code to something more stable.
    

    
    

21. Philip Leitch
    09 Jul 2002 at 23:10

    The ProcessWord, /F option - else if replacement should look like this:
    

    
               ElseIf IsNumeric(Mid(strWord, 3)) Then 'Font Type
                   
                   strFontFace = strFontTable(Mid(strWord, 3))
                   If strFontFace <> "" Then
                   strFont = ParseFont(strFontColor, strFontSize, strFontFace)
                       If InNext("</font>") Then
                           ReplaceInNextBeg "</font>", strFont
                       ElseIf InCodes("</font>") Then
                           PushNext ("</font>")
                           PushNextBeg (strFont)
                           Codes2NextTill "</font>"
                       Else
                           PushNext ("</font>")
                           PushNextBeg (strFont)
                       End If
                   End If
               End If
    

    
    If it doesn't then every some fonts will be ignored.  Sorry again

22. Philip Leitch
    09 Jul 2002 at 22:46

    My syntax was wrong in the ParseFont Function.  It should be:
    Function ParseFont(strColor As String, strSize As String, strFont As String) As String
       Dim strTmpFont As String
    

    
       strTmpFont = "<font"
       If strColor <> "" Then
          strTmpFont = strTmpFont & " color=""" & strColor & """"
       End If
       If strSize <> "" And strSize <> "2" Then
           strTmpFont = strTmpFont & " size=" & strSize
       End If
       If strFontFace <> "" Then
           strTmpFont = strTmpFont & " face=""" & strFont & """"
       End If
       strTmpFont = strTmpFont & ">"
       ParseFont = strTmpFont
    End Function
    

    
    Notice the font face now has double quotation marks.

23. Thushan Fernando
    09 Jul 2002 at 22:34

    a more hands-on approach i guess than PSC... its got quality source-code and tutorials and some of the best support poeple around... the main attraction would be i guess the forums!
    

24. Philip Leitch
    09 Jul 2002 at 22:30

    
    ummm.... don't mean to grumble but the way the Font type was being constructed appeared buggy.  I have rewritten it below (feel free to tell me if I am doing it wrong).  Much much smaller and I think it might even be faster.
    

    
    Function GetFontTable(strSecTmp As String, strFontTable() As String)
    Dim i As Integer
       'get font table data and fill in strFontTable array
       
       'We already know that this is multiple {} seperated values, and we should be looking
       'at font definitions ONLY....
       Dim strFonts As String
       'Strip off the begining of the section (and the first curly brace and last brace and semi-colon)
       strFonts = Mid(strSecTmp, 11, Len(strSecTmp) - 13)
       ReDim strFontTable(CInt(UBound(Split(strFonts, ";}{")))) As String
       For i = 0 To UBound(Split(strFonts, ";}{"))
           'We only want the section from the first space to the end....using ";}{" as an array splitter
           strFontTable(i) = Right(Split(strFonts, ";}{")(i), Len(Split(strFonts, ";}{")(i)) - InStr(1, Split(strFonts, ";}{")(i), " "))
       Next i
    end Function

25. Philip Leitch
    09 Jul 2002 at 21:35

    No problem.  I found this sight through Google.... what is it all about?  Is it like PlanetSourceCode?

26. Philip Leitch
    09 Jul 2002 at 21:33

    Upon further review.... the code is simply incomplete.
     There are numerous (15-20) variables that are declared but not used.
     The code loaded a "Font" table, but then just ignored it
     The code indicated multiple arguments, of which only two were used.
    

    
     I added Font handling by adding this code:
    In the General section:
    Dim strFontFace as string
    Function ParseFont(strColor As String, strSize As String, strFont As String) As String
       Dim strTmpFont As String
    

    
       strTmpFont = "<font"
       If strColor <> "" Then
          strTmpFont = strTmpFont & " color=""" & strColor & """"
       End If
       If strSize <> "" And strSize <> "2" Then
           strTmpFont = strTmpFont & " size=" & strSize
       End If
       If strFontFace <> "" Then
           strTmpFont = strTmpFont & " face=" & strFont
       End If
       strTmpFont = strTmpFont & ">"
       ParseFont = strTmpFont
    End Function
    

    
    ALSO in the ProcessWord function alterations need to be made
    in the Case "\f" section, remove the main "End IF" (the endif for the first if) and replace it with
               ElseIf IsNumeric(Mid(strWord, 3)) Then 'Font Type
                   strFontFace = strFontTable(Mid(strWord, 3))
               End If
    

    
    ALSO in the ProcessWord function change every call to ParseFont to:
    ParseFont(strFontColor, strFontSize, strFontFace)
    

    
     To include a basic HTML headder (+H option) just add this at the very last line of the  RFT2HTML function:
       If InStr(strOptions, "+H") Then
           RTF2HTML = "<html><body>" & RTF2HTML & "</body></html>"
       End If
    

    
    Crude, but effective.
    

    
    

    
     Finally, you might want to comment out ALL local and module scoped variables and then de-comment the ones the compiler says are needed..... cuts right down on the number of variables....

27. Thushan Fernando
    09 Jul 2002 at 20:20

    good to see more aussies around!
    

28. Philip Leitch
    09 Jul 2002 at 18:58

    Good - but what about the text Font type, background colours and image support?

29. butterfly
    03 Jun 2002 at 08:33

    Thanks!!
    

    
    I tried to execute the code as per ur direction... but it gave the following result:

    
    

    
    \rtf1
    \ansi
    \deff0
    \viewkind4
    \uc1
    \pard
    \lang1033
    \f0
    \fs17
    Test
    \par
    This is a test.....
    \par
    Doono what kind of output it will be!!
    \par
    Test <br>This is a test.....<br>Doono what kind of output it will be!!
    

    
    

    
    

    
    The generated code was not at all displaying the input text as html.
    

    
    I used to following code for this:

    
    

    
    Private Sub Command1_Click()
    Debug.Print rtf2html(RichTextBox1.TextRTF, "+H")
    End Sub
    

    
    Private Sub Form_Load()
    RichTextBox1.BackColor = &H80000004
    RichTextBox1.Font = Verdana
    RichTextBox1.TextRTF = "Test"
    End Sub

    
    

    
    

    
    Kindly direct me more to achive the desired result.
    

    
    In appriciation
    

    
    Butterfly

30. James Crowley
    01 Jun 2002 at 08:38

    You need to call the rtf2html function.
    

    Code:

    Function rtf2html(strRTF As String, Optional strOptions As String) As String

31. butterfly
    01 Jun 2002 at 06:34

    Hi there,
    

    
    The code displayed here is really commandable. but i couldnt understand which all funtions to be used to execute to convert RTFtext to HTML.
    

    
    It states to copy the code and paste in a module (.bas) but which all functions need to be executed to convert the code it hasn't mention that.
    

    
    Please direct me for the same.
    

    
    Thanks.
    

    
    Butterfly.

32. James Crowley
    03 Apr 2002 at 05:31

    RTF =RichTextFormat ... it is used in the RichTextBox (which allows you to add bold/italic text effects etc). This code lets you convert the bold/italic text in a richtextbox into a HTML page.
    

    
    Take a look at some of the items in the "related" panel on the right-hand side of the code for some links to related articles.

33. Pranay Shrivastava
    03 Apr 2002 at 03:01

    
    what is the meaning of RTF?
    what is the need to convert it into HTML codes?
    thankx in advance.

34. James Crowley
    23 Feb 2002 at 16:00
    The code has now been updated to Version 3.... which should solve your problem.
35. James Crowley
    22 Feb 2002 at 15:54
    What error do you get?
36. ulisse quadri
    22 Feb 2002 at 15:09
    I have download the rtf2html.bas project.
    and implemented in the my simple project.
    probably in my project there is an error because
    the software run incorrectly.
    
    Please help me.
    
    Thank You very for your kindness.
    
    Ulisse Quadri
    
    email: ulisse.quadri@libero.it
    
37. sparkz
    30 Oct 2001 at 17:47

    Perfect - thanks for saving me from learning RTF.
    

    
    An inspired piece of code!

38. Developer Fusion Bot
    01 Jan 1999 at 00:00

    This thread is for discussions of Convert RTF to HTML.