編輯器做的代碼，每次發(fā)布文章時(shí)HTML標(biāo)簽都是大寫的，一直沒找到解決辦法，今天去搜索了下，先找個(gè)治標(biāo)的方法用用，關(guān)鍵問(wèn)題還得修改編輯器。
現(xiàn)在把代碼共享出來(lái)，省得大家去找。
大家在做程序的時(shí)候，都了解了，搜索引擎對(duì)html標(biāo)簽及代碼都需要規(guī)范，比如不能有不閉合的標(biāo)簽等。
還有一個(gè)重要的規(guī)范，就是標(biāo)簽一定要小寫。
在很多時(shí)候，使用網(wǎng)頁(yè)編輯器在后臺(tái)編寫文章，編輯器經(jīng)常會(huì)自動(dòng)將標(biāo)簽小寫轉(zhuǎn)成大寫，這樣很不友好，下面，我就來(lái)介紹一下如何使用正則表達(dá)式來(lái)批量將HTML標(biāo)簽大寫轉(zhuǎn)換成小寫。
特別是在后臺(tái)使用的時(shí)候，可以將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
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)
點(diǎn)擊舉報(bào)。
