国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > Regex > 正文

ubb代碼轉換為html

2020-03-16 21:24:16
字體:
來源:轉載
供稿:網友

記得以前貼過一個ubb代碼轉換為html格式的代碼,前幾天讀ubb的源代碼。所以有了這個新的版本。注意,這個版本可能還不能正常使用,詳細見注。

這段代碼將用戶輸入的ubb代碼轉化為html格式,注意,需要Script Engine 5.0的支持(使
用了RegExp對象)

注:pattern中使用()將知道regexp記憶搜索到的值,$1是第一個(),其余類推。但$2的
語法并不被5.0版本的vbscript.dll所支持,我檢查了自己機器上的版本(安裝過ie 5.5),
發現vbscript.dll的版本為5.50.4629,最后修改日期為12月25日。該版本支持$1之類的語
法,這個簡單的改進使regexp的功能逐漸與perl的正則表達式靠近

  1. function UBBCode(strContent) 
  2.  
  3. dim objRegExp 
  4. Set objRegExp=new RegExp 
  5. objRegExp.IgnoreCase =true 
  6. objRegExp.Global=True 
  7. 'url 
  8. objRegExp.Pattern="(/[URL/])(http://///S+?)(/[//URL/])" 
  9. strContent= objRegExp.Replace(strContent,"<A HREF=""$2"" TARGET=_blank>$2</A>"
  10. objRegExp.Pattern="(/[URL/])(/S+?)(/[//URL/])" 
  11. strContent= objRegExp.Replace(strContent,"<A HREF=""http://$2"" TARGET=_blank>$2</A>"
  12.  
  13. 'email 
  14. objRegExp.Pattern="(/)(/S+/@/S+?)(/[//EMAIL/])" 
  15. strContent= objRegExp.Replace(strContent,"<A HREF=""mailto:$2"">$2</A>"
  16.  
  17. objRegExp.Pattern="(/[IMG/])(/S+?)(/[//IMG/])" 
  18. strContent=objRegExp.Replace(strContent,"<IMG SRC=""$2"">"
  19.  
  20. objRegExp.Pattern="(/[QUOTE/])(.+?)(/[//QUOTE/])" 
  21. strContent=objRegExp.Replace(strContent,"<BLOCKQUOTE><font size=1  
  22. face=""Verdana, Arial"">quote:</font><HR>$2<HR></BLOCKQUOTE>") 
  23.  
  24. objRegExp.Pattern="(/[i/])(.+?)(/[//i/])" 
  25. strContent=objRegExp.Replace(strContent,"<i>$2</i>"
  26.  
  27. objRegExp.Pattern="(/[b/])(.+?)(/[//b/])" 
  28. strContent=objRegExp.Replace(strContent,"<b>$2</b>"
  29. set objRegExp=Nothing 
  30. UBBCode=strContent 
  31.  
  32. end function 

原版的轉化程序,摘自freeware版本的ubb論壇,可到 http://www.ultimatebb.com/ 下載(Perl CGI方式)

  1. sub UBBCode { 
  2.  
  3. my $ThePost = shift; 
  4. $ThePost =~ s/(/[URL/])(http://///S+?)(/[//URL/])/ <A HREF="$2"  
  5. TARGET=_blank>$2<//A> /isg; 
  6.  
  7. $ThePost =~ s/(/[URL/])(/S+?)(/[//URL/])/ <A HREF="http:////$2"  
  8. TARGET=_blank>$2<//A> /isg; 
  9.  
  10. $ThePost =~ s/(/)(/S+/@/S+?)(/[//EMAIL/])/ <A  
  11. HREF="mailto:$2">$2<//A> /isg; 
  12.  
  13. if (($UBBImages eq "ON") && ($OverrideImages ne "yes")) { 
  14. $ThePost =~ s/(/[IMG/])(/S+?)(/[//IMG/])/ <IMG SRC="$2"> /isg; 
  15.  
  16. $ThePost =~ s/(/[QUOTE/])(.+?)(/[//QUOTE/])/ <BLOCKQUOTE><font size="1"  
  17. face="Verdana, Arial">quote:<//font><HR>$2<HR><//BLOCKQUOTE>/isg; 
  18.  
  19. $ThePost =~ s/(/[i/])(.+?)(/[//i/])/<i>$2<//i>/isg; 
  20.  
  21. $ThePost =~ s/(/[b/])(.+?)(/[//b/])/<b>$2<//b>/isg; 
  22.  
  23. return ($ThePost); 
  24.  

學習Asp的同志,不要放棄對CGI的學習,特別是一些老外的CGI程序,看后對我們的asp編程會有很大的啟發 

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 天柱县| 尼玛县| 故城县| 金山区| 博爱县| 宿松县| 宝清县| 马山县| 大埔区| 全椒县| 资中县| 彭州市| 锦屏县| 雅江县| 黄平县| 抚松县| 章丘市| 桃园市| 西华县| 读书| 中江县| 青阳县| 遂溪县| 岚皋县| 公主岭市| 信宜市| 湘乡市| 伽师县| 历史| 灵台县| 中卫市| 邯郸市| 沙田区| 三穗县| 武乡县| 柳江县| 田东县| 蓝田县| 泽普县| 西畴县| 会泽县|