250分最高分:求把rtf格式的文本转成HTML格式的代码

来源：百度知道 编辑：UC知道 时间：2024/05/18 05:17:28
VB问题请教VB高手:
RichTextBox提交的rtf格式"黑体;红色;一号;粗体"的源代码如下:
黑体红色一号粗体{\rtf1\ansi\ansicpg936\deff0\deflang1033\deflangfe2052{\fonttbl{\f0\fnil\fcharset134 \'ba\'da\'cc\'e5;}{\f1\fnil\fcharset134 \'cb\'ce\'cc\'e5;}}
{\colortbl ;\red255\green0\blue0;}
\viewkind4\uc1\pard\cf1\lang2052\b\f0\fs52\'ba\'da\'cc\'e5\'ba\'ec\'c9\'ab\'d2\'bb\'ba\'c5\'bc\'d3\'b4\'d6\cf0\b0\f1\fs18
\par }
如何将其转换成HTML格式(目的是在浏览器中读其中的文字及其属性如<font color=...等等)呢?请写出实现代码.(不想用WORD第三方软件另存的方法实现)
有一个转换的函数,可以成功实现颜色和加粗、字体的转换,但可惜无法转换字号，也就是转换号字号标志丢失了,哪位大哥能帮我改一改吗?

在richtohtml函数中增加下面的代码就行了:

Dim strLastFontsize As Long

If strLastFontsize <> rtbRichTextBox.SelFontSize Then
strLastFontsize = rtbRichTextBox.SelFontSize
strHTML$ = strHTML$ + "<font-size=""" & strLastFontsize & """>"
End If

QQ

下一个代码转换器，看的我眼睛都晕了```不做回答！太麻烦那了~~```

<html>
<body>
<?
if(!($userfile)) {
?>
<form enctype="multipart/form-data" action="<?print($PHP_SELF);?>" method=post>
<input type=hidden name="max_file_size" value=2000>
Send this file: <input name=userfile type=file>
<input type=submit value=Upload>
</form>
</body>
</html>
<?
exit;
}
function ProcessTags($tags, $line) {
$html = "";
global $colo