在博客中显示不走样的代码

　在日常的代码开发中。习惯于在自己的代码编辑器里设置自己喜欢的代码字体及颜色。在写博客的过程中，有不可避免的要粘贴一些自己写的代码。问题就来了，往往在博客中提供的代码显示工具显示的代码格式和之前在代码编辑器里就发生了变化。虽不是什么大问题，但总是觉得有点不舒服。

　　本人用的编辑器是VS系列。一次在无意中将代码复制后，贴到写字板中，发现格式没有发生变化，将文件保存后，用记事本打开，发现是保存为Rtf格式。也就是说，在VS中复制代码，实际内存中保存着该代码的Rtf格式，这样也就是保留了该代码的格式。那么接下来要做的事情就是写一段代码，将该Rtf格式的代码改写成Html格式的代码。由于两种格式之间相似度还是比较高的，所以写代码也不是一件很难的事。

　　要注意的是，由于该代码用到了HttpUtility类，因此还得手动添加对System.Web的引用，而不仅仅是添加一句“Imports System.Web”。

　　在调用的时候，启用clsFormatCode.CodeRtfToHtml(Clipboard.GetText(System.Windows.Forms.TextDataFormat.Rtf))这句代码就可以了。

　　下面是代码，用的是VB2005。

 

Imports System.Web

Public  Class clsFormatCode
Private  Shared  Function CodeRtfToHtml( ByVal RtfCode  As  String,  ByVal DefaultFont  As  String)
Dim tS  As  New System.Text.StringBuilder

RtfCode = RtfCode.Replace(vbNewLine,  "")

tS.AppendLine( "<style>")

Dim I  As  Integer, J  As  Integer, K  As  Integer = 1

I = RtfCode.IndexOf( "{\colortbl;") + 11

Do  While RtfCode.Chars(I + 1) <>  "}"
　　　　　　J = RtfCode.IndexOf( ";", I + 1)
tS.AppendLine( ".cf" & K &  " {color:" & GetColorHex(RtfCode.Substring(I + 1, J - I)) &  "}")
K += 1
I = J
Loop

　　　　tS.AppendLine( "</style>")
tS.AppendLine(DefaultFont)

I = RtfCode.IndexOf( "\fs") + 3
K = I
Dim CurColor  As  String =  "\cf0"

　　　　J = RtfCode.IndexOf( "\", I)
Do  While J <> -1
If RtfCode.Substring(J, 2) =  "\\"  Then
　　　　　　　　I = J + 2
ElseIf RtfCode.Substring(J, 2) =  "\{"  Then
　　　　　　　　I = J + 2
ElseIf RtfCode.Substring(J, 2) =  "\}"  Then
　　　　　　　　I = J + 2
ElseIf RtfCode.Substring(J, 4) =  "\par"  Then
　　　　　　　　tS.Append(GetText(RtfCode.Substring(K, J - K), CurColor))
I = J + 5
K = J + 5
tS.Append( "<br />" & vbNewLine)
ElseIf RtfCode.Substring(J, 3) =  "\cf"  Then
　　　　　　　　tS.Append(GetText(RtfCode.Substring(K, J - K), CurColor))
K = RtfCode.IndexOf( " ", J + 1) - J
CurColor = RtfCode.Substring(J, K)
I = J + K + 1
K = I
Else
　　　　　　　　I = J + 1
End  If
　　　　　　J = RtfCode.IndexOf( "\", I)
Loop

　　　　tS.Append(GetText(RtfCode.Substring(K, RtfCode.Length - K - 1), CurColor))

tS.AppendLine( "</div>")
Return tS.ToString
End  Function

　　 Public  Shared  Function CodeRtfToHtml( ByVal RtfCode  As  String,  ByVal Font  As  String,  ByVal FontSize  As  String)
Return CodeRtfToHtml(RtfCode,  String.Format( "<div style='color:black;font-family:{0};font-size:{1};'>", Font, FontSize))
End  Function

　　 Public  Shared  Function CodeRtfToHtml( ByVal RtfCode  As  String)  As  String
　　　　 Return CodeRtfToHtml(RtfCode,  "<div style='color:black;font-family:Verdana;font-size:12pt;'>")
End  Function

　　 Private  Shared  Function GetText( ByVal Text  As  String,  ByVal CurColor  As  String)  As  String
　　　　Text = Text.Replace( "\\",  "\")
Text = Text.Replace( "\{",  "{")
Text = Text.Replace( "\}",  "}")
Text = Text.Replace( "  ",  "　")
If CurColor =  "\cf0"  Then
　　　　　　 Return HttpUtility.HtmlEncode(Text)
Else
　　　　　　 Return  "<span class='" & CurColor.Substring(1) &  "'>" & HttpUtility.HtmlEncode(Text) &  "</span>"
　　　　 End  If
　　 End  Function

　　 Private  Shared  Function GetColorHex( ByVal ColorText  As  String)  As  String
　　　　 Dim SR  As  Integer = ColorText.IndexOf( "\red")
Dim SG  As  Integer = ColorText.IndexOf( "\green")
Dim SB  As  Integer = ColorText.IndexOf( "\blue")

Dim R  As  Integer =  CInt(ColorText.Substring(SR + 4, SG - SR - 4))
Dim G  As  Integer =  CInt(ColorText.Substring(SG + 6, SB - SG - 6))
Dim B  As  Integer =  CInt(ColorText.Substring(SB + 5, ColorText.Length - 1 - SB - 5))

Return  "#" & R.ToString( "X2") & G.ToString( "X2") & B.ToString( "X2")
End  Function
End  Class

    本文转自万仓一黍博客园博客，原文链接： http://www.cnblogs.com/grenet/archive/2012/01/10/2317965.html ，如需转载请自行联系原作者