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
网上找到上面的正则,实测成功,但想在这个基础上加个替换
把
替换成
,替换成
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 '遍历匹配集合。imgstr