日韩黑丝制服一区视频播放|日韩欧美人妻丝袜视频在线观看|九九影院一级蜜桃|亚洲中文在线导航|青草草视频在线观看|婷婷五月色伊人网站|日本一区二区在线|国产AV一二三四区毛片|正在播放久草视频|亚洲色图精品一区

分享

ASP使用正則表達(dá)式批量將HTML代碼里的標(biāo)簽大寫轉(zhuǎn)換成小寫

 悟靜 2011-04-29
編輯器做的代碼,每次發(fā)布文章時HTML標(biāo)簽都是大寫的,一直沒找到解決辦法,今天去搜索了下,先找個治標(biāo)的方法用用,關(guān)鍵問題還得修改編輯器。
現(xiàn)在把代碼共享出來,省得大家去找。
大家在做程序的時候,都了解了,搜索引擎對html標(biāo)簽及代碼都需要規(guī)范,比如不能有不閉合的標(biāo)簽等。
還有一個重要的規(guī)范,就是標(biāo)簽一定要小寫。
在很多時候,使用網(wǎng)頁編輯器在后臺編寫文章,編輯器經(jīng)常會自動將標(biāo)簽小寫轉(zhuǎn)成大寫,這樣很不友好,下面,我就來介紹一下如何使用正則表達(dá)式來批量將HTML標(biāo)簽大寫轉(zhuǎn)換成小寫。
特別是在后臺使用的時候,可以將html代碼標(biāo)簽替換成小寫。
 

Function oflink_lcasetag(imgstrng)
 Dim regEx, Match, Matches '建立變量。
 Set regEx = New RegExp '建立正則表達(dá)式。
 regEx.Pattern = "<.+?\>" '設(shè)置模式。
 regEx.IgnoreCase = true '設(shè)置是否區(qū)分字符大小寫。
 regEx.Global = True '設(shè)置全局可用性。
 Set Matches = regEx.Execute(imgstrng) '執(zhí)行搜索。
 imgstrng=imgstrng
 For Each Match in Matches '遍歷匹配集合。
 imgstrng=replace(imgstrng,Match.Value,lcase(Match.Value))
 Next
 oflink_lcasetag = imgstrng
End Function


    本站是提供個人知識管理的網(wǎng)絡(luò)存儲空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點。請注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請點擊一鍵舉報。
    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多