VBScript 实现 UBB 显示代码([code][/code])附加行号, 正则实现 By Stabx

原创 2006年06月16日 18:41:00
标题: VBScript 实现 UBB 显示代码([code][/code])附加行号, 正则实现 By Stabx

正文:

QUOTE:

VBScript 实现 UBB 显示代码([code][/code])附加行号, 正则实现 By Stabx

完成了, 实现这个该死的功能有几小时丢了...

作用: 显示 UBB 代码时, 加上行号. [↓下面代码显示区就是]
此功能由 正则实现替换, ol li 标签实现显示效果, li 标签 属性设置为 list-style-type:decimal;
那些行号只是一个显示, 不是一个实在的号码, 就一障眼法.

1. 替换 UBB [code][/code] 为 HTML 标签
2. 解密 内容为 UBB [code][/code] 标签
3. 相关 CSS
话外音: 秩序就是一切, 不是我喜欢把内容弄得一塌糊涂, 而是 CSDN 的编辑器太东施...

shawl.qiu<shawl.qiuATgmail.com>
绿色学院 | http://blog.csdn.net/btbtd/
2006-6-16

CODE:

  1. ----3. 相关 CSS
  2. ----------------------------------------
  3. <style type="text/css">
  4. /*<![CDATA[*/ 
  5. /* UBB */
  6. ol {margin:0px; padding:0px;}
  7. code, quote, cite {
  8.     line-height: 150%;
  9.     }
  10. .u_code, .marginE, .u_quote, .marginQuote, .u_cite, .cite {
  11.     padding:15px 10px;
  12.     margin:0px auto;
  13.     overflow:auto;
  14.     width:90%;
  15.     font-size: 12px;
  16.     line-height:150%;
  17.     }
  18. .u_code, .marginE {
  19.     color: #3333FF;
  20.     border: 1px dotted #000000;
  21.     }
  22. .u_quote, .marginQuote{
  23.     color: #CC3366;
  24.     border: 1px dotted #FF9900;
  25.     }
  26. .u_cite, .cite {
  27.     border: 1px dotted #CCCCCC;
  28.     font-style:normal;
  29.     }
  30. .u_code ol li { list-style-type:decimal; color:blue !important;}
  31. .u_code ol {margin:0px 0px 0px 28px;}
  32.  /*]]>*/
  33. </style>
  34. ----------------------------------------
  35. ----2. 解密 内容为 UBB [code][/code] 标签
  36. ----------------------------------------
  37.     Set re1 = New regExp
  38.         re1.Global = true
  39.         re1.IgnoreCase = true
  40.         re1.Multiline = true
  41.             re1.Pattern = "<p/><b>CODE:</b><code><div class=""u_code""><ol>(?:[/s/S]+)</ol></div></code>"  
  42.         Set Matches = re1.Execute(str)
  43.             for each match in Matches
  44.                 match=replace(match,"<p/><b>CODE:</b><code><div class=""u_code""><ol>","")
  45.                 match=replace(match,"</ol></div></code>","")
  46.                 match=replace(match,"<li>","")
  47.                 match=replace(match,"</li>","")
  48.                 re1.Pattern = "<p/><b>CODE:</b><code><div class=""u_code""><ol>(?:[/s/S]+)</ol></div></code>"  
  49.                 str = re1.Replace(str,"[code]"&match&"[/code]")
  50.             next
  51.     set    re1=nothing
  52. ----------------------------------------
  53. ----1. 替换 UBB [code][/code] 为 HTML 标签
  54. ----------------------------------------
  55.     Set re1 = New regExp
  56.         re1.Global = true
  57.         re1.IgnoreCase = true
  58.         re1.Multiline = true
  59.             re1.Pattern = "/[code/]([?:/s/S]+)/[//code/]"  
  60.         Set Matches = re1.Execute(str)
  61.             for each match in Matches
  62.                 match=replace(match,"<br/>","")
  63.                 match=replace(match,"[code]","")
  64.                 match=replace(match,"[/code]","")
  65.                 
  66.                 re1.Pattern = "(^[/s/S]?)"
  67.                 match = re1.Replace(match,"<li>$1")
  68.                 
  69.                 re1.Pattern = "([/s/S]$)"
  70.                 match = re1.Replace(match,"$1</li>")
  71.  
  72.                 re1.Pattern = "/[code/][/s/S]+/[//code/]"  
  73.                 str = re1.Replace(str,"<p/><b>CODE:</b><code><div class=""u_code""><ol>"&match&"</ol></div></code>")
  74.             next
  75.     set    re1=nothing
  76. ----------------------------------------

word中实现代码自动显示行号

  • 2008年11月02日 01:22
  • 652B
  • 下载

Region Filling and Object Removal by Exemplar-Based Image Inpainting-code-2004(代码改进)

原:http://blog.csdn.net/yujiang5/article/details/46594893 VC++ 6.0 中,代码格式调整快捷键:Alt+F8;...

Quick-Cocos2d3.2RC1在Code IDE中实现代码提示

之前写Lua最痛苦的就是代码提示问题,现在官方给了IDE非常好用,下面说Quick使用IDE添加代码提示问题。 第一步:制作api提示压缩包。需要使用控制台实现方法如下: 1、找到framewor...
  • qqMCY
  • qqMCY
  • 2014年10月16日 16:09
  • 2318

Google Code Prettify 实现代码高亮

Google Code Prettify 实现代码高亮 Posted 2012-11-13  | 分类: JavaScript     prettify  P...

C# and VB.NET Code Searcher - Using Roslyn(使用Roslyn实现的C#和VB.Net的代码查询器)

Table of Contents IntroductionScreenshotThe problemBackground about RoslynThe solutionWhy would y...

CSDN粘贴代码显示行号,并实现代码高亮

我想很多同学都觉得下面这种代码快看起来简单整洁,有行号,有高亮,那么究竟该如何实现呢,其实很简单. 1.选择工具栏中的“源代码”: 如果文章还有别的内容,点击源代码后,文章内容会有所改变,尽量...

行号显示关键字高亮的简单实现

  • 2011年12月26日 10:29
  • 18KB
  • 下载

实现ubb代码的java类

  • 2003年10月05日 00:00
  • 31KB
  • 下载

Nexus5 实现全屏显示(屏幕状态监听)(code)

最近开发的时候发现,nexus5在全屏显示方面有一个不好处理的地方nexus5没有实体按键,所以在屏幕显示区域 有一个 NavigationBar 存在,也就是Android机型最经典的三个按键。如果...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VBScript 实现 UBB 显示代码([code][/code])附加行号, 正则实现 By Stabx
举报原因:
原因补充:

(最多只允许输入30个字)