注册 登录
LUPA开源社区 返回首页

smile11的个人空间 http://www.lupaworld.com/?437000 [收藏] [复制] [分享] [RSS]

我的博客

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

热度 1已有 2008 次阅读2012-1-10 13:23 |系统分类:IT技术|

在日常的代码开发中。习惯于在自己的代码编辑器里设置自己喜欢的代码字体及颜色。在写博客的过程中,有不可避免的要粘贴一些自己写的代码。问题就来了,往往在博客中提供的代码显示工具显示的代码格式和之前在代码编辑器里就发生了变化。虽不是什么大问题,但总是觉得有点不舒服。
  本人用的编辑器是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 StringByVal 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 StringByVal Font As StringByVal 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 StringAs String
    Return CodeRtfToHtml(RtfCode, "<div style='color:black;font-family:Verdana;font-size:12pt;'>")
  End Function

  Private Shared Function GetText(ByVal Text As StringByVal CurColor As StringAs 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 StringAs 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
作者:万仓一黍
本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利。

刚表态过的朋友 (0 人)

评论 (0 个评论)

facelist

您需要登录后才可以评论 登录 | 注册
验证问答 换一个 验证码 换一个

关于LUPA|人才芯片工程|人才招聘|LUPA认证|LUPA教育|LUPA开源社区 ( 浙B2-20090187 浙公网安备 33010602006705号   

返回顶部