[perl-win32-gui-users] RTF 2 HTML

[Ultimate R. D. <scc...@ho...>]

Well, I worked for a bit tonight and I finally came up with a (admitantly 
pathetic) basic RTF to HTML converter.

It's not that great, I don't claim it's efficient, just that it works.

Currently, it supports new lines, bold, italics and underline.

I'm working on converting < and > correctly, as well as a HTML 2 RTF sub (or 
is there already one?)

sub rtf2html{
   my $re = $main->reDesc;  #Just set this to the RichEdit object
   my $i = 0;
   my $b = 0;
   my $u = 0;
   my $text = '';
   my $oldtext = $re->Text();
   foreach my $x (0..(length($oldtext)+1)){
      $re->Select($x,$x+1);
      my %att = $re->GetCharFormat();
      #Note: The odd if statements are to avoid
      #      annoying warning messages
      if(($i && !exists($att{-italic})) || (!$i && exists($att{-italic}))){
         $i = $att{-italic};
         $text .= ($i ? '<I>' : '</I>');
      }
      if(($b && !exists($att{-bold})) || (!$b && exists($att{-bold}))){
         $b = $att{-bold};
         $text .= ($b ? '<B>' : '</B>');
      }
      if(($u && !exists($att{-underline})) || (!$u && 
exists($att{-underline}))){
         $u = $att{-underline};
         $text .= ($u ? '<U>' : '</U>');
      }
      $text .= substr($oldtext,$x,1);
   }
   $text =~ s/\r//g;
   $text =~ s/\n/<BR>/gio;
   return $text;
}


Comments, questions, suggestions?  I know the output leaves something to be 
desired, but most browsers can translate it well enough...  Feel free to 
take this and run with it, I just ask that ya post any improvements :)

_________________________________________________________________
Send and receive Hotmail on your mobile device: http://mobile.msn.com