|
编辑器做的代码，每次发布文章时HTML标签都是大写的，一直没找到解决办法，今天去搜索了下，先找个治标的方法用用，关键问题还得修改编辑器。
现在把代码共享出来，省得大家去找。
大家在做程序的时候，都了解了，搜索引擎对html标签及代码都需要规范，比如不能有不闭合的标签等。
还有一个重要的规范，就是标签一定要小写。
在很多时候，使用网页编辑器在后台编写文章，编辑器经常会自动将标签小写转成大写，这样很不友好，下面，我就来介绍一下如何使用正则表达式来批量将HTML标签大写转换成小写。
特别是在后台使用的时候，可以将html代码标签替换成小写。
Function oflink_lcasetag(imgstrng)
Dim regEx, Match, Matches '建立变量。
Set regEx = New RegExp '建立正则表达式。
regEx.Pattern = "<.+?\>" '设置模式。
regEx.IgnoreCase = true '设置是否区分字符大小写。
regEx.Global = True '设置全局可用性。
Set Matches = regEx.Execute(imgstrng) '执行搜索。
imgstrng=imgstrng
For Each Match in Matches '遍历匹配集合。
imgstrng=replace(imgstrng,Match.Value,lcase(Match.Value))
Next
oflink_lcasetag = imgstrng
End Function
|
