實現UBB代碼

來源:互聯網
上載者:User
ubb 上一次,我們談到在ASP中如何利用“Regex”對象來實現各種資料的校正,文中描述了Regex對象的強大功能,接下來,
我們來看看有關“Regex”對象的其他功能。當我們在網上衝浪的時候,尤其是瀏覽各類論壇的時候,經常會見到“UBB代碼”
這個詞語。什麼是UBB代碼呢?UBB代碼是HTML的一個變種http://www.alixixi.com/program/a/,是Ultimate Bulletin Board (國外一個BBS程式,國內也有不少地方
使用這個程式)採用的一種特殊的TAG。為了避免使用者無意或者有意的HTML代碼對論壇的攻擊,各種論壇基本上都屏蔽了HTM
L代碼,但是為了使得論壇更加“多姿多彩”,論壇都會相應的開放一些自訂的Tag標籤,類似於HTML中的Tag,比如
“http://www.alixixi.com/program/a/,http://www.alixixi.com/program/a/,[RED]http://www.alixixi.com/program/a/,[/RED]”,這樣,可以提供一些等同於HTML代碼的功能,又避免了論壇受到惡意攻擊,這些自訂的
各種Tag就是俗稱的UBB代碼。眼下時髦的論壇均支援UBB代碼,比如:http://www。chinaasp。com(動
感技術網路)的論壇就很好的支援UBB代碼。現在,我們一同使用“Regex”對象來實現我們自己的豐富多彩的UBB代碼吧。

首先,你的伺服器端(IIS或者PWS)要有VBScript5.0的支援環境,一般指要安裝了IE5.X就已經可以支援“Regex”對
象了。

關於“Regex”對象的常見方法、屬性的使用方法,我在本刊的“在ASP中利用“Regex”對象實現資料的校正”一文中已
經有詳細介紹了,可以參見那一篇文章,在這裡,我主要介紹一下實現“UBB代碼”的主要Regex對象方法:Replace()方
法。

Replace方法文法如下:

描述

替換在Regex尋找中找到的文本。

文法

object.Replace(string1http://www.alixixi.com/program/a/, string2)

Replace 方法的文法包含以下幾個部分:

部分       描述

object       必需的。總是一個 RegExp 對象的名稱。

string1      必需的。string1 是將要進行文本替換的字串。

string2      必需的。 string2 是替換文本字串。

 

說明

被替換的文本的實際模式是通過 RegExp 對象的 Pattern 屬性設定的。

Replace 方法返回 string1 的副本,其中的 RegExp.Pattern 文本已經被替換為 string2。如果沒有找到匹配的文本,將返回
原來的 string1 的副本。

接下來,我們要確定我們最終想要實現一套什麼樣的UBB代碼?這次我們要實現的UBB代碼功能如下:

URL超級連結
在你的資訊裡加入超級連結,只要按下列方式套入就可以了(UBB代碼是粗體).

http://www.alixixi.com/program/a/www.test.net

按上例套入,UBB代碼會自動對URL產生連結,並保證當使用者點擊新的視窗時這個連結是開啟著的。

電子郵件連結
在你的資訊裡加入電子郵件的超級連結,只要按照下例套入就可以了(UBB代碼是粗體)

uestc95@263.net

按上例套入,UBB代碼會對電子郵件自動產生連結。

加入圖象
在你的資訊裡加入圖象,只要按下例套入就可以了(UBB代碼是粗體).



在上例中,UBB代碼會自動讓圖象在你的資訊裡顯示。

其他Tag

還有這些tag http://www.alixixi.com/program/a/, u small h1 h2 h3 h4 h5 h6 strike blink sub sup del pre big http://www.alixixi.com/program/a/, 這些tag的功能與html的功能等同

[h1]這是一個標題[/h1]

[/tag]是必須的

讓一段文字使用顏色顯示
這是一個特殊的tag

[#ff0000]一段紅色的字[/#]

#後面跟的顏色的16進位RGB代碼,如紅色是ff0000http://www.alixixi.com/program/a/,綠色是00ff00http://www.alixixi.com/program/a/,而藍色是0000ff

至於其他各式各樣的UBB代碼的實現方式同上面的類似,我們就以上面UBB代碼實現作為例子來講解“Regex”對象的強大功
能。

我們主要使用Replace()方法配合相應的模版,就可以方便的實現UBB代碼功能了,在這裡我們主要用到了兩個自己編寫的函數,第
一個函數ReplaceTest,這個函數實現的功能主要是將“Regex”對象進行了封裝,提供三個入口參數:

Patrn
這個參數傳遞的是UBB代碼的匹配模版

Str
這個參數傳遞的是將要以UBB方式處理的字串,比如文章內容。

ReplStr
這個參數傳遞的是匹配成的HTML代碼語言。

ReplaceTest函數的出口參數是經過模版匹配替換之後的字串。

ReplaceTest函數代碼如下:

Function ReplaceTest(patrnhttp://www.alixixi.com/program/a/,strhttp://www.alixixi.com/program/a/,replStr)

Dim regExhttp://www.alixixi.com/program/a/, str1 ' 建立變數。

str1=trim(str)

Set regEx = New RegExp ' 建立Regex。

regEx.Pattern = patrn ' 設定模式。

regEx.IgnoreCase = true ' 設定是否區分大小寫。

ReplaceTest = regEx.Replace(str1http://www.alixixi.com/program/a/, replStr) ' 作替換。

set regEx=nothing ‘銷毀Regex對象

End Function

我們要編寫的第二個函數是:UBB()函數。這個函數實現的功能就是將一段文本進行UBB功能的轉換。這個函數僅僅只有一個入口參
數:

Str
這個參數傳遞要被處理的字串。

  UBB函數的出口參數是經過UBB代碼處理過後的字串。 

  UBB函數的代碼如下:(程式中有詳細注釋資訊)

Function UBB(str)

dim ihttp://www.alixixi.com/program/a/,temp ‘聲明變數

i=1

temp=""

do while instr(ihttp://www.alixixi.com/program/a/,strhttp://www.alixixi.com/program/a/,"[/"]>=1 ‘如果沒有達到字串的末尾

if trim(temp)="" then

temp=ReplaceTest("(\)(\S+)(\ )"http://www.alixixi.com/program/a/,strhttp://www.alixixi.com/program/a/,"<i>$2</i>")  ‘進行UBB代碼的模版匹配與替換

else

temp=ReplaceTest("(\)(\S+)(\ )"http://www.alixixi.com/program/a/,temphttp://www.alixixi.com/program/a/,"<i>$2</i>")  ‘進行UBB代碼的模版匹配與替換

end if

temp=ReplaceTest("(\)(\S+)(\ )"http://www.alixixi.com/program/a/,temphttp://www.alixixi.com/program/a/,"<b>$2</b>")  ‘進行UBB代碼的模版匹配與替換

temp=ReplaceTest("(\[big])(\S+)(\[/big])"http://www.alixixi.com/program/a/,temphttp://www.alixixi.com/program/a/,"<big>$2</big>") ‘進行UBB代碼的模版匹配與替換

temp=ReplaceTest("(\[strike])(\S+)(\[/strike])"http://www.alixixi.com/program/a/,temphttp://www.alixixi.com/program/a/,"<strike>$2</strike>")‘進行UBB代碼的模版匹配與替換

temp=ReplaceTest("(\[sub])(\S+)(\[/sub])"http://www.alixixi.com/program/a/,temphttp://www.alixixi.com/program/a/,"<sub>$2</sub>")‘進行UBB代碼的模版匹配與替換

temp=ReplaceTest("(\[sup])(\S+)(\[/sup])"http://www.alixixi.com/program/a/,temphttp://www.alixixi.com/program/a/,"<sup>$2</sup>")

temp=ReplaceTest("(\[pre])(\S+)(\[/pre])"http://www.alixixi.com/program/a/,temphttp://www.alixixi.com/program/a/,"<pre>$2</pre>")

temp=ReplaceTest("(\ )(\S+)(\)"http://www.alixixi.com/program/a/,temphttp://www.alixixi.com/program/a/,"<u>$2</u>")

temp=ReplaceTest("(\[small])(\S+)(\[/small])"http://www.alixixi.com/program/a/,temphttp://www.alixixi.com/program/a/,"<small>$2</small>")

temp=ReplaceTest("(\[h1])(\S+)(\[/h1])"http://www.alixixi.com/program/a/,temphttp://www.alixixi.com/program/a/,"<h1>$2</h1>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。