一区二区三区欧美成人,久久av一区二区,欧美日韩一区二区三

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

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

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

以下為詳細代碼

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

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

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

相關(guān)閱讀: 用javascript美化Select,并獲取相應(yīng)的值; 湖南樂途旅行社; 昆山旅游網(wǎng); 解析css屬性的另類屬性之媒體（Media）類型; 石家莊燕趙旅行社有限公司; 自由鳥; 定義鏈接的樣式CSS; 溫州遠方國際旅行社

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

正在加載評論......

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

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

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

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

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

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

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

更多>>隨機抽取信息: Html中的Frame詳解; 穿越火線風(fēng)格-網(wǎng)吧留言本V4.3; 雙擊文字后實現(xiàn)編輯文本功能; nyfreetour.com; asp許愿墻程序終于設(shè)計得差不多了，現(xiàn)在開放; uni-app基礎(chǔ)知識事件傳參（動態(tài)參數(shù)演示）

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

版權(quán)聲明調(diào)節(jié) 圖片上傳旅游 meta 表單文本展示 vb 學(xué)習(xí) 珍惜 ajax 選項卡憂化首字母字符 blog 單選 IP 模式 mop 框 eof display 文件關(guān)鍵字布局安裝包正則查詢經(jīng)典 Cookie 十字個性想 relative 項目固定后臺變大加密小旋風(fēng) FSO 色彩設(shè)置藍色理想自適應(yīng)高度鏈接樣式頁面鎯

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

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