一区二区三区我不卡,欧美精品v日韩精品v国产精品,香蕉久久夜色精品国产

asp之自動(dòng)閉合UBB標(biāo)簽函數(shù)

網(wǎng)絡(luò) 2010/1/21 20:07:19 深山行者字體:大中小瀏覽 8642

asp之自動(dòng)閉合UBB標(biāo)簽函數(shù)

以下為詳細(xì)代碼

Function closeUBB(strContent)
'*************************************
'自動(dòng)閉合UBB
'*************************************
    Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match
    Set re = New RegExp            '申明re對(duì)象
    re.IgnoreCase = True        '設(shè)置是否區(qū)分字符大小寫
    re.Global = True            '設(shè)置全局可用性
    arrTags = Array("code", "quote", "list", "color", "align", "font", "size", "b", "i", "u", "html")    '建立數(shù)組，存儲(chǔ)相關(guān)需要檢測(cè)是否閉合的標(biāo)簽
    For i = 0 To UBound(arrTags)    '循環(huán)對(duì)數(shù)組里的每一個(gè)元素進(jìn)行檢測(cè)
        OpenPos = 0                '初始化當(dāng)前標(biāo)簽開始標(biāo)記的個(gè)數(shù)
        ClosePos = 0            '初始化當(dāng)前標(biāo)簽結(jié)束標(biāo)記的個(gè)數(shù)
        re.Pattern = "\[" + arrTags(i) + "(=[^\[\]]+|)\]"    '開始分別正則判斷開始與結(jié)束標(biāo)記的個(gè)數(shù)
        Set strMatchs = re.Execute(strContent)    
        For Each Match in strMatchs
            OpenPos = OpenPos + 1
        Next
        re.Pattern = "\[/" + arrTags(i) + "\]"
        Set strMatchs = re.Execute(strContent)
        For Each Match in strMatchs
            ClosePos = ClosePos + 1
        Next
        For j = 1 To OpenPos - ClosePos    '當(dāng)開始與結(jié)束標(biāo)記數(shù)量不一致時(shí)，閉合當(dāng)前標(biāo)簽
            strContent = strContent + "[/" + arrTags(i) + "]"
        Next
    Next
    closeUBB = strContent
    Set re = Nothing
End Function

前一頁:asp之自動(dòng)閉合HTML標(biāo)簽函數(shù)

后一頁:ASP漢字轉(zhuǎn)拼音，支持自定義特殊詞語

相關(guān)閱讀: 旅行社網(wǎng)站模板12; 比較實(shí)用的利用javascript按比例相應(yīng)縮放圖片大小; window.location.href跳轉(zhuǎn)無反應(yīng)不跳轉(zhuǎn)解決; flash利用as調(diào)用執(zhí)行外部設(shè)置的exe文件; 啟用新版文章管理系統(tǒng); 向各位網(wǎng)友匯報(bào)下許愿墻進(jìn)程。; 更變態(tài)的頁面右擊失效代碼,選擇,全選,全部失效; jquery實(shí)現(xiàn)移動(dòng)端下拉加載刷新更多信息

共有0條關(guān)于《asp之自動(dòng)閉合UBB標(biāo)簽函數(shù)》的評(píng)論: 發(fā)表評(píng)論

正在加載評(píng)論......

返回頂部發(fā)表評(píng)論

呢稱:
表情:
內(nèi) 容:	評(píng)論內(nèi)容:不能超過 1000 字,需審核,請(qǐng)自覺遵守互聯(lián)網(wǎng)相關(guān)政策法規(guī)。
驗(yàn)證碼:

網(wǎng)友評(píng)論聲明,請(qǐng)自覺遵守互聯(lián)網(wǎng)相關(guān)政策法規(guī)。

您發(fā)布的評(píng)論即表示同意遵守以下條款:
一、不得利用本站危害國家安全、泄露國家秘密,不得侵犯國家、社會(huì)、集體和公民的合法權(quán)益;
二、不得發(fā)布國家法律、法規(guī)明令禁止的內(nèi)容;互相尊重,對(duì)自己在本站的言論和行為負(fù)責(zé);
三、本站對(duì)您所發(fā)布內(nèi)容擁有處置權(quán)。

更多信息>>欄目類別選擇: 百度小程序開發(fā); 微信小程序開發(fā); 微信公眾號(hào)開發(fā); uni-app; asp函數(shù)庫; ASP; DIV+CSS; HTML; python

更多>>同類信息: ASP中Utf-8與Gb2312編碼轉(zhuǎn)換亂碼問題的解決方法頁面編碼聲明; asp顯示隨機(jī)密碼; 通過阿里云服務(wù)接口獲得ip地址詳細(xì)信息; iis點(diǎn)開后任務(wù)欄上有顯示，但是窗口看不到的解決辦法; RSA加密解密插件; 微軟Encoder加密解密函數(shù)

更多>>最新添加文章: dw里面查找替換使用正則刪除sqlserver里面的CONSTRAINT; Android移動(dòng)端自動(dòng)化測(cè)試：使用UIAutomatorViewer與Selenium定位元素; 抖音直播音掛載小雪花懂車帝小程序; javascript獲取瀏覽器指紋可以用來做投票; 火狐Mozilla Firefox出現(xiàn)：無法載入您的Firefox配置文件它可能已經(jīng)丟失或是無法訪問問題解決集合處理辦法; 在Android、iOS、Windows、MacOS中微信小程序的文件存放路徑; python通過代碼修改pip下載源讓下載庫飛起; python里面requests.post返回的res.text還有其它的嗎

更多>>隨機(jī)抽取信息: 深山留言板釣魚島效果; 酒店客房預(yù)訂商建站解決方案; 純div+css制作的彈出菜單-01; shopify廣告與Facebook廣告操作; 樂旅行; asp截取字符串：根據(jù)右邊第一個(gè)點(diǎn)(.)去掉擴(kuò)展名

更多標(biāo)簽熱門標(biāo)簽

border margin 文件大小縮放容器濾鏡繁體 hack cpu 調(diào)用 XMLHTTP 郵箱 onmouserout label 窗口 px 商城教程深山旅游網(wǎng)站管理系統(tǒng)V1.0 列 VBScript 過期上一頁布局控制 checkbox time 青春文件夾 maryabbsby Response 源文件灰色全選增高邊界重疊 flash 網(wǎng)站心情標(biāo)簽左右全 input 關(guān)于我們間隔破解彈出滑動(dòng) 默認(rèn)高度購物彈窗安裝包

99热热热_国产成人自拍一区_欧美一级网站_99热在线播放_国产精品乱码一区二区三区_久久精品国产一区二区三区

asp之自動(dòng)閉合UBB標(biāo)簽函數(shù)